Cargar listbox descartando las filas con valores "0"
Tengo registros en un rango de celdas ("A2:F") y necesito cargar el listbox con todo el rango, pero descartando las filas si en la columna "E" encuentra el valor "0". El rango le he dado formato tabla(Tabla1).
He intentado ajustar un código que he encontrado, pero no consigo que funcione. ¿Alguien me puede ayudar?
Private Sub UserForm_Initialize() With Hoja2 r = .Range("Tabla1") For i = 2 To .Range("E" & Rows.Count).End(3).Row If .Cells(i, 5) <> "0" Then With ListBox1 .List = r End With End If Next End With End Sub
1 respuesta
Respuesta de Dante Amor
1