Datos filtrados de una hoja mostrarlos en un listbox

Instrucciones:

1. Agrega un botón de comando a tu formulario llamado "llenalista"

2. Le das doble click y pegas el siguiente código

Private Sub llenalista_Click()
'Por Dam
Dim cell As Range
Dim Rng As Range
ListBox1.ColumnCount = 6
With ThisWorkbook.Sheets("Cobros")
Set Rng = .Range("A1", .Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible)
End With

ListBox1.Clear
For Each cell In Rng.Cells
With Me.ListBox1
.AddItem cell.Value
.List(.ListCount - 1, 1) = cell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cell.Offset(0, 2).Value
.List(.ListCount - 1, 3) = cell.Offset(0, 3).Value
.List(.ListCount - 1, 4) = cell.Offset(0, 4).Value
.List(.ListCount - 1, 5) = cell.Offset(0, 5).Value
End With
Next cell
End Sub

Hola Dam:

Agradezco infinitamente tu respuesta. Ya usé el código que me proporcionaste y cuando llega a la línea ".AddItem cell.Value" me lanza el siguiente mensaje: "Se ha producido el error '70' en tiempo de ejecución, Permiso denegado". Por el momento he estado buscando corregirlo, pero no lo he conseguido.

Si me haces el favor de revisarlo, probablemente podrás detectar el error más fácilmente. Sigo agradeciendo la ayuda.

Saludos cordiales

Víctor (Vico)