No funciona mi listbox

[EdmundoFF]

Estimados Foreros:

Otra vez yo para pedir si es posible de que me orienten del porque no funciona bien mi listbox...

me desaparece mis encabezados y no carga la información que le quiero decir...

en si quiero que el listbox se cargue con la info de la base de datos pero solo con los que tienen en la columna H un "1"

gracias de antemano.

saludos.

REPORTE.zip

[Enigma25]

Hola

Intenta con este codigo y colocalo en el evento active de la hoja, tal como lo tienes actualmente:

Sub Carga()
Dim Lin As Long
With ListBox1
.ColumnCount = 6
.ColumnHeads = True
.ColumnWidths = "65pt; 55pt; 60pt; 150pt; 150pt; 550pt"
End With
Lin = 5
ListBox1.Clear
Do While Hoja10.Cells(Lin, 1) <> ""
If Hoja10.Cells(Lin, 8) = "1" Then
ListBox1.AddItem Hoja10.Cells(Lin, 2)
ListBox1.List(ListBox1.ListCount - 1, 1) = Hoja10.Cells(Lin, 3)
ListBox1.List(ListBox1.ListCount - 1, 2) = Hoja10.Cells(Lin, 4)
ListBox1.List(ListBox1.ListCount - 1, 3) = Hoja10.Cells(Lin, 5)
ListBox1.List(ListBox1.ListCount - 1, 4) = Hoja10.Cells(Lin, 6)
ListBox1.List(ListBox1.ListCount - 1, 5) = Hoja10.Cells(Lin, 7)
End If
Lin = Lin + 1
Loop

End Sub

[/PHP]