Espero se encuentren muy bien quisiera pedirles de favor su apoyo para un problema que no he podido resolver, lo que sucede es que me sale el error 91: variable de objeto o bloque with no establecido, la verdad estuve tratando de diferentes formas pero no encuentro que puede ser el error, les dejo el código, gracias de antemano.
Lo que se supone que debe hacer es primero filtrar para quitar todos los espacios en blanco y luego contar el número de datos que quedan.
Sub Pruebas2()
Sheets("Punto Venta R").Select
Worksheets("Punto Venta R").ListObjects("Tabla_PuntVtaR").Range.AutoFilter _
Field:=1, Criteria1:="<>"
Dim Cont As Long
Cont = Worksheets("Punto Venta R").AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
MsgBox Cont
End Sub
Sin el archivo de ejemplo es difícil, pero a simple vista veo una diferencia:
En la primera llamada al filtro utilizas ListObject (es decir te refieres al filtro de la lista
Worksheets("Punto Venta R").ListObjects("Tabla_PuntVtaR").Range.AutoFilter
En cambio, en la segunda ocasión no utilizas ListObjects
Worksheets("Punto Venta R").AutoFilter.Range
Prueba a poner ambas líneas de un modo similar haciendo referencia al objeto ListObject, es decir, a la tabla que tiene el filtro aplicado.
------
Ya sé Excel, pero necesito más.