Página 1 de 1
Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 18 Jun 2016 às 20:46
por 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?
Re: Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 09:10
por alexandrevba
Bom dia!!
Como não postou seu arquivo modelo...
Código: Selecionar todosPrivate 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
Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 11:36
por 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
Re: Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 11:39
por inestei
Muito obrigada. Pode dar uma vista de olhos no ficheiro que postei ?
Obrigada
alexandrevba escreveu:Bom dia!!
Como não postou seu arquivo modelo...
Código: Selecionar todosPrivate 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
Re: Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 11:49
por alexandrevba
Bom dia!!
Seu arquivo não tem o ProjetoVBA (Módulos com códigos, Userform etc).
Att
Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 11:54
por inestei
Bom dia ! O meu tem no botão " Probabilidade de Incidente por descarga atmosférica "
Não aparece ?
Re: Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 11:56
por 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
Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 12:20
por inestei
Aparece esta form
Re: Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 12:35
por alexandrevba
Boa tarde!!
favor postar o arquivo com as macros e formulários!!!!!!
Att
Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 12:39
por inestei
Já percebi qual é o erro .
Veja agora
Re: Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 12:54
por alexandrevba
Boa tarde!!
Você deve está de brincadeira comigo, o arquivo não tem o projeto VBA com rotinas ou userforms!!
Att
Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 20 Jun 2016 às 13:09
por inestei
Neste ficheiro aparece. No separador do programador. Eu já enviei para outro computador para testar.
Re: Combobox numa FORM - Associar a valor da coluna ao lado
Enviado: 21 Jun 2016 às 13:40
por 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 todostxtNivel.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