- 16 Jan 2018 às 11:03
#29453
Boa Tarde,
Criei dois ComboBox dependentes, porém preciso utilizar a propriedade "Linked Cell" apara trazer o valor de uma outra tabela de acordo com a seleção do ComboBox.
No entanto, a seleção demostrada no ComboBox é sempre o primeiro item da lista, independente da seleção. Já tentei desativar a linha de comando "....ListIndex = 0", mas aí não consigo selecionar nenhum valor no ComboBox.
Poderiam me ajudar a solucionar esse problema, por favor?
Utilizei o seguinte código
Private Sub combobox1_Change()
Dim rng As Excel.Range
Me.combobox2.Clear
For Each rng In Sheets("DADOS").Range("tb_est_seg")
If rng.Value = Me.combobox1.Text Then
Me.combobox2.AddItem (rng.Offset(0, 1).Value)
End If
Next rng
Me.combobox2.ListIndex = 0
End Sub
Obrigado!
Criei dois ComboBox dependentes, porém preciso utilizar a propriedade "Linked Cell" apara trazer o valor de uma outra tabela de acordo com a seleção do ComboBox.
No entanto, a seleção demostrada no ComboBox é sempre o primeiro item da lista, independente da seleção. Já tentei desativar a linha de comando "....ListIndex = 0", mas aí não consigo selecionar nenhum valor no ComboBox.
Poderiam me ajudar a solucionar esse problema, por favor?
Utilizei o seguinte código
Private Sub combobox1_Change()
Dim rng As Excel.Range
Me.combobox2.Clear
For Each rng In Sheets("DADOS").Range("tb_est_seg")
If rng.Value = Me.combobox1.Text Then
Me.combobox2.AddItem (rng.Offset(0, 1).Value)
End If
Next rng
Me.combobox2.ListIndex = 0
End Sub
Obrigado!