Error 91 Excel VBA Contar Valores Filtrados

2 envíos / 0 nuevos
Último envío
Eduardo Gaytán
Imagen de Eduardo Gaytán
Offline
última acción: Hace 3 años 2 meses
alta: 05/01/2021 - 17:18
Puntos: 25
Error 91 Excel VBA Contar Valores Filtrados

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

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 21 horas 38 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Sin el archivo de ejemplo es

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.