Boa Noite pessoal,
Sou iniciante e estou precisando fazer uma combobox com duas colunas.
A primeira coluna está OK, mas a segunda não está puxando o valor correto e eu não sei o porque.
Por exemplo, na primeira linha da combobox deveria aparecer
1 Jaragua
Mas olha como fica:
Private Sub UserForm_Initialize()
'Deixa o código mais rápido
Application.ScreenUpdating = False
'Vai carregar as combobox assim que inicializar o userform
Sheets("pedidos").Activate
Range("a2").Select
'Limpa para garantir que não vão aparecer itens repetidos
cbdestino1.Clear
cbdestino2.Clear
cbdestino1.ColumnCount = 2
Do While ActiveCell <> ""
If ActiveCell.Offset(0, 7).Value = "n" Then
cbdestino1.AddItem ActiveCell
cbdestino1.Column(1, 0) = ActiveCell.Offset(0, 1)
cbdestino2.AddItem ActiveCell
End If
ActiveCell.Offset(1, 0).Activate
Loop
Application.ScreenUpdating = True
End Sub
Postado : 30/05/2015 8:32 pm