Notifications

Clear all

Lista em Combox - Não Aparece

2024 - VBA & Macros

Post Recente por freitasag 6 anos atrás

6 Posts

4 Usuários

0 Reactions

1,699 Visualizações

RSS

freitasag

(@freitasag)

Posts: 32

Eminent Member

Topic starter

Bom Dia meu Amigos,
estou precisando de uma grande ajuda,já tentei de todas as formas mais não consigo colocar os dados "FONTE" como lista no combobox,já tentei diversos macros e não consigo.
pelo amor de Deus me ajudem.

Se alguém já descrever uma macro que funciona em COMBOBOX1, o resto eu aplico..

agradeço a todos que vem nos ajudando nesse grande SITE.

Postado : 30/08/2018 9:10 am

NERI S

(@neri-s)

Posts: 0

Estimable Member

Boa tarde Amigo
Não sei se é exatamente o que vc precisa, mas segue:

Private Sub cboCondicoes_Enter()

lblmsg.Caption = " Escolha a forma de pagamento"
' os dados ficam na planilha chamada "Condicoes"
    With Worksheets("condicoes")
    cbocondicoes.List = _
    .Range(.Cells(2, 2), .Cells(.Range("b1").CurrentRegion.Rows.Count, 2)).Value
    End With
End Sub

Ou no Initialize:

    
    With Cboano ' cbo chamada CboAno
    .AddItem "2017"
    .AddItem "2018"
    .AddItem "2019"
End With

Postado : 30/08/2018 10:25 am

freitasag

(@freitasag)

Posts: 32

Eminent Member

Topic starter

Neri,
Agradeço pela ajuda,porém apliquei e nada aconteceu.

Poderia aplicar dentro do próprio arquivo por favor?

Postado : 30/08/2018 10:29 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

freitasag,

Boa tarde!

Não entendi o que você quer dizer com:

não consigo colocar os dados "FONTE" como lista no combobox

O que é que você quer colocar e aonde? Seja mais específico. Colocar os dados da aba FONTE... que dados? Que colunas, Que linhas? Colocar aonde? Que controles? Que combobox? Que listBox? Qual o nome dos controles? Como se dá o processo?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 30/08/2018 11:46 am

teleguiado

(@teleguiado)

Posts: 142

Estimable Member

freitasag, veja esse 3 exemplos que fiz e se te ajuda.

Private Sub UserForm_Initialize()
Dim s As Integer
   With Planilha3
    i = Planilha3.UsedRange.Rows.Count
    Me.ComboBox3.RowSource = "c2:c" & i
    Me.ComboBox4.RowSource = "d2:d" & i
    Me.ComboBox5.RowSource = "e2:e" & i
    End With
    
End Sub

Obrigado.

Teleguiado.
E-mail: [email protected]

Postado : 30/08/2018 1:03 pm