Initialize - Alimentar duas ComboBox diferentes

2024 - VBA & Macros

Post Recente por rodrigombc 7 anos atrás

4 Posts

3 Usuários

0 Reactions

1,081 Visualizações

RSS

rodrigombc

(@rodrigombc)

Posts: 8

Active Member

Topic starter

Olá pessoal,

Gostaria de uma ajuda com relação a alimentar ComboBox a partir de uma lista.

Coloquei na função Initialize a alimentação da ComboBox 1 (que se refere ao tipo de gás), porém, também quero alimentar a ComboBox 2 com o tipo de equipamento.

A lista se encontra na Aba "Referência" do arquivo excel, onde a coluna A se refere ao tipo de gás, e a coluna B se refere ao tipo de equipamento.

Estou tentando fazer duas funções if no Initialize, porém, algo está dando errado e não sei o que é.

Poderiam por gentileza me ajudar a "popular" essas duas combobox simultaneamente?

O arquivo se encontra em anexo.

Desde já, muito obrigado.

Postado : 23/02/2018 9:13 am

fcarlosc

(@fcarlosc)

Posts: 453

Honorable Member

Boa-tarde

Veja se é dessa forma...!?

Postado : 23/02/2018 9:40 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Experimente conforme rotina abaixo, e vea se atende

Private Sub UserForm_initialize()
Dim i As Integer
'Popula combobox1
For i = 1 To Plan2.Cells(Cells.Rows.Count, "A").End(xlUp).Row
    UserForm1.ComboBox1.AddItem Cells(i, 1).Value
Next i
    
'Popula combobox2
For i = 1 To Plan2.Cells(Cells.Rows.Count, "B").End(xlUp).Row
    UserForm1.ComboBox2.AddItem Cells(i, 2).Value
Next i
End Sub

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

Postado : 23/02/2018 9:41 am