Notifications
Clear all

Combobox com duas colunas

3 Posts
2 Usuários
0 Reactions
936 Visualizações
(@blocodenot)
Posts: 0
New Member
Topic starter
 

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
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente assim:

Private Sub UserForm_Initialize()

'Vai carregar as combobox assim que inicializar o userform
Sheets("plan1").Activate
Range("a2").Select

'Limpa para garantir que não vão aparecer itens repetidos
cbdestino1.Clear
cbdestino2.Clear
cmb_tipo_perfil.ColumnCount = 2

Do While ActiveCell <> ""
    If ActiveCell.Offset(0, 7).Value = "n" Then
        cmb_tipo_perfil.AddItem ActiveCell
        cmb_tipo_perfil.List(cmb_tipo_perfil.ListCount - 1, 1) = ActiveCell.Offset(0, 1)
    End If
ActiveCell.Offset(1, 0).Activate
Loop

End Sub
 
Postado : 30/05/2015 9:03 pm
(@blocodenot)
Posts: 0
New Member
Topic starter
 

Funcionou cara. Vou tentar entender o que você fez agora.

Obrigado

 
Postado : 30/05/2015 9:08 pm