Contar datos de listbox al filtrar vba excel
Tengo el código compartido por algunos compañero y lo he aplicado a un filtro desde un textbox sin embargo al limpiar el textbox el conteo no retorna a contar todos los datos del lisbox, alguien que me pueda apoyar, gracias. Adjunto el código
'contador de registros
Dim m As Integer
If txtFiltro1 = "" Then
For X = 0 To ListBox1.ListCount - 1
If ListBox1.List(X, 0) <> "" Then
m = m + 1
End If
Next
'MsgBox "hay un total de: " & m & " datos, y serán anotados en el textbox1"
Label117.Caption = "Total" & " " & m & " " & "registros"
1 Respuesta
Con las instrucciones que dejaste no se puede resolver tu consulta.
¿Dónde está colocado este código? Debieras copiar toda la macro.
¿Se filtra el Listbox? ¿Cómo lo rellenas? Con RowSource, con un rango, ¿fila x fila...?
Aclara un poco más la situación como para poder ayudarte. También puedes enviarme el libro a mi correo (aparece en el sitio que dejo al pie). No hace falta todo el libro, con el formulario y la hoja que alimenta al listbox alcanzará.
Sdos.
Elsa
