Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como carrego os dad...
 
Notifications
Clear all

Como carrego os dados nas colunas da listbox?

 
2024 - VBA & Macros
Post Recente por RFPCL 10 anos atrás
11 Posts
2 Usuários
0 Reactions
1,559 Visualizações
RSS
 RFPCL
(@rfpcl)
Posts: 15
Active Member
Topic starter
 

Galera, é o seguinte. O codigo (com criterio de cliente e data) que estou usando esta carregando apenas uma das colunas. Gostaria que carregasse todas colunas da planilha, sao 13.
Aqui vai o cod.:

Private Sub CommandButton1_Click()
On Error Resume Next
ListBox1.Clear
Dim tx1 As Date

tx1 = TextBox1
nome = ComboBox1

Sheets("PAYMENTS").Range("A1").Select
linha = 2
Do Until Sheets("PAYMENTS").Cells(linha, 1) = ""
If Sheets("PAYMENTS").Cells(linha, 6) >= tx1 And Sheets("PAYMENTS").Cells(linha, 2) = nome Then
ListBox1.AddItem Sheets("PAYMENTS").Cells(linha, 1)

linha = linha + 1
Else
linha = linha + 1

End If
Loop
ListBox1.ColumnWidths = "150;180;80;30;50;50;50;50;30"

End Sub

 
Postado : 14/03/2015 1:47 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Use a busca do fórum!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

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

 
Postado : 14/03/2015 1:59 pm
 RFPCL
(@rfpcl)
Posts: 15
Active Member
Topic starter
 

O problema é que nao consigo encaixar os codigos que encontro no "if" que preciso, o disponibilizado no codigo acima.

 
Postado : 14/03/2015 2:30 pm
 RFPCL
(@rfpcl)
Posts: 15
Active Member
Topic starter
 

??? Até agora esperando algum salvador da pàtria pra resolver meu problema!

 
Postado : 17/03/2015 3:22 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja

Private Sub UserForm_Initialize()
'Como popular com 3 colunas um listbox
'Mais sobre listbox em: http://www.google.com.br/cse?cx=partner-pub-8829010114171957%3A3054449148&ie=UTF-8&q=carregar+colunas+listbox&siteurl=www.planilhando.com.br%2Fforum%2Findex.php&ref=&ss=11860j9453590j32&oq=carregar+colunas+listbox&gs_l=partner.3...4676.16726.0.17272.32.30.2.0.0.1.392.4202.10j17j2j1.30.0.gsnos%2Cn%3D13...0.11860j9453270j32j4..1ac.1.25.partner..24.8.1118.vqLkguowXPw#gsc.tab=0&gsc.q=carregar%20colunas%20listbox&gsc.page=1
'Do contrário poste seu arquivo!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    Dim lbtarget As MSForms.ListBox
    Dim rngSource As Range
    
    Set rngSource = Worksheets("Sheet1").Range("A2:C31")
    
    Set lbtarget = Me.ListBox1
    With lbtarget
        .ColumnCount = 3
        .ColumnWidths = "50;80;100"
        .List = rngSource.Cells.Value
    End With
End Sub

Att

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

 
Postado : 17/03/2015 5:29 pm
 RFPCL
(@rfpcl)
Posts: 15
Active Member
Topic starter
 

Aqui esta o arquivo. O codigo que estou tentando esta na combobox1 change.

Como carregar a listbox de acordo com os criterios das combobos? Preciso apenas dos codigos que coloquem as info nas colunas

 
Postado : 19/03/2015 8:29 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Veja se ajuda

favor adaptar.

Att

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

 
Postado : 20/03/2015 6:46 am
 RFPCL
(@rfpcl)
Posts: 15
Active Member
Topic starter
 

Valeu, Alexandre, mas eu preciso selecionar as linhas que vao para a listbox de acordo com o valor da combobox! Assim como coloquei no meu file. Sabe como resolver?

 
Postado : 20/03/2015 9:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Explique melhor, em seu anexo não há nada de VBA....

:?

Att

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

 
Postado : 20/03/2015 10:59 am
 RFPCL
(@rfpcl)
Posts: 15
Active Member
Topic starter
 

Foi mal, Alexandre, anexei o arquivo errado.

Aqui està o arquivo.

 
Postado : 20/03/2015 3:07 pm
 RFPCL
(@rfpcl)
Posts: 15
Active Member
Topic starter
 

??? Ninguém???

 
Postado : 27/03/2015 2:30 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico