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.
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
Neri,
Agradeço pela ajuda,porém apliquei e nada aconteceu.
Poderia aplicar dentro do próprio arquivo por favor?
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
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: telegui4do@gmail.com
Muito Obrigado Teleguiado.
Funcionou perfeitamente.
att.,
Alexandre