Este fórum está sendo desativado

[inestei]

Boa noite. É o seguinte eu criei uma form com 4 combobox diferentes NUMA FORM.
Tenho uma tabela parecida com a do link abaixo.



Na combobox1 tenho: maças
Na combobox 2: peso
Na combobox3: Tamanho
Na combobox4: Número

O meu objetivo é: Quando seleciono na combobox1 "Vermelho" estar associado o valor da coluna ao lado "3"
Quando seleciono na combobox2 "50-100" estar associado o valor da coluna ao lado "0.09"

E no final da 4 somar tudo e divir por 4 (Como se fosse uma média)

Alguem pode ajudar?

[alexandrevba]

Bom dia!!

Como não postou seu arquivo modelo...

Código: Selecionar todos

Private Sub UserForm_Initialize()

With ComboBox1
    For Row = 2 To 10 'Inicia na linha 2 até linha 10
        .AddItem Sheets("Plan1").Cells(Row, 3) 'Adiciona os dados da guia Plan1 coluna C
    Next Row
End With

End Sub

Leia:
http://www.globaliconnect.com/excel/ind ... d-property

Att

[inestei]

Envio meu ficheiro.
O objetivo é na TextList aparecer o calculo de :

(Combobox 1 + Combobox 2 + Combobox 3 + Combobox 4)

Sendo que quando seleciono 150 na combobox 1 = 45%


Por exemplo
Nivel 150 = 45
Cota 400-450 = 6
Resistência 500 - 525 = 0.3
Concelho Abrantes = 14

Logo valor apresentado na TextList = (45+6+0.3+14)/4

[inestei]

Muito obrigada. Pode dar uma vista de olhos no ficheiro que postei ?
Obrigada

Bom dia!!

Como não postou seu arquivo modelo...

Código: Selecionar todos

Private Sub UserForm_Initialize()

With ComboBox1
    For Row = 2 To 10 'Inicia na linha 2 até linha 10
        .AddItem Sheets("Plan1").Cells(Row, 3) 'Adiciona os dados da guia Plan1 coluna C
    Next Row
End With

End Sub

Leia:
http://www.globaliconnect.com/excel/ind ... d-property

Att

[alexandrevba]

Bom dia!!

Seu arquivo não tem o ProjetoVBA (Módulos com códigos, Userform etc).

Att

[inestei]

Bom dia ! O meu tem no botão " Probabilidade de Incidente por descarga atmosférica "
Não aparece ?

[alexandrevba]

Bom dia!!

Eu não vi o projeto VBA!!!!!!!

O que acontece se vc apertar o botão?


Obs: Como não tem o projeto VBA, no arquivo que eu baixei, nada vai acontecer pois não tem macro associada e nem macro e nem módulo algum!!!

Att

[inestei]

Aparece esta form

[alexandrevba]

Boa tarde!!

favor postar o arquivo com as macros e formulários!!!!!!


Att

[inestei]

Já percebi qual é o erro .

Veja agora

[alexandrevba]

Boa tarde!!


Você deve está de brincadeira comigo, o arquivo não tem o projeto VBA com rotinas ou userforms!!

Att

[inestei]

Neste ficheiro aparece. No separador do programador. Eu já enviei para outro computador para testar.

[alexandrevba]

Boa tarde!!

O que acha de inserir 3 textbox, deixa-las "ocultas" no userform?

Se sim, então acrescente as linhas abaixo.

Código: Selecionar todos

txtNivel.Value = Application.VLookup(ComboBox1.Value, Sheets("Metodologia").Range("F10:G12"), 2, 0) * 100
txtCota.Value = Application.VLookup(ComboBox2.Value, Sheets("Metodologia").Range("F13:G29"), 2, 0) * 100
txtResistencia.Value = Application.VLookup(ComboBox3.Value, Sheets("Metodologia").Range("F30:G46"), 2, 0) * 100

TextBox1.Value = CDbl(Val(txtNivel.Value) + Val(txtCota.Value) + Val(txtResistencia.Value))

Att