Cleiton,
Boa noite !

Veja se este link pode te ajudar ?

http://info.abril.com.br/forum/viewtopic.php?f=101&t=16934

Abrs!

macro funciona, unico problema é mostrar o restante das colunas, nesse exemplo o listbox carrega só coluna "A", gostaria de carregar da coluna A:H

segue o codigo para quem puder ajudar

Private Sub UserForm_Initialize()
Dim lLast As Long
Dim l As Long

With ThisWorkbook.Sheets("lista")

lLast = .Cells(.Rows.Count, "A").End(xlUp).Row
'Considerando uma linha de cabeçalho:
For l = 2 To lLast
If .Rows(l).Hidden = False Then
ListBox1.AddItem .Cells(l, "A")
End If
Next l
End With
End Sub

Cleiton,

Veja se desta forma atende :

Private Sub UserForm_Initialize()
Dim lLast As Long
Dim l As Long

With ThisWorkbook.Sheets("lista")

lLast = .Cells(.Rows.Count, "A","B").End(xlUp).Row
'Considerando uma linha de cabeçalho:
For l = 2 To lLast
If .Rows(l).Hidden = False Then
ListBox1.AddItem .Cells(l, "A")
End If
Next l
End With
End Sub

Abrs,

não funciono Robert, deu errro:
Numeros de argumento incorreto ou atribuição de propriedade inválida
Obrigado pela tentativa roberto, fico no aguardo esperando mais feras que possam ajudar essa questão..

abrass

Apenas adaptando sua rotina...

Private Sub CarregarListbox()
Dim lLast As Long
Dim l As Long

With ThisWorkbook.Sheets("Lista")
Me.ListBox1.ColumnCount = 7
ListBox1.Clear
lLast = .Cells(.Rows.Count, "A").End(xlUp).Row
'Considerando uma linha de cabeçalho:
For l = 2 To lLast
If .Rows(l).Hidden = False Then
ListBox1.AddItem .Cells(l, "A")
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Plan1.Cells(l, "B")
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Plan1.Cells(l, "C")
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Plan1.Cells(l, "D")
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Plan1.Cells(l, "E")
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Plan1.Cells(l, "F")
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Plan1.Cells(l, "G")

End If
Next l
End With
End Sub

perfeito joseA, vc é o cara, show de bola...

Obrigado a vc joseA, e a todos do forum...
abrass..