Combobox com duas colunas

2024 - VBA & Macros

Post Recente por blocodenot 10 anos atrás

3 Posts

2 Usuários

0 Reactions

959 Visualizações

RSS

blocodenot

(@blocodenot)

Posts: 15

Active 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

Fernando Fernandes

(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 30/05/2015 9:03 pm