Filtro filas en blanco

Buen día:
Tengo una serie de macros que se ejecutan al presionar un botón en un userform, Ej: macro1, macro2 etc. Y he logrado que en la hoja1 se seleccionen todos los datos y me los filtra en la columna B todas las palabras que empiecen por "P", hasta aquí muy bien, el problema surge cuando ninguna palabra empieza por "P" y solo quedan los encabezados en la primera fila, y lo demás en blanco. Lo que quiero es que si el filtro no contiene ningún valor se ejecute la macro siguiente y si contiene valores que se ejecute otra macro.
Gracias

1 Respuesta

Respuesta
1
Para saber si un rango filtrado devolvió filas necesitas 'contarlas'
Te dejo una rutina completa para que la adaptes a lo que ya tenés
Sub Filtrando()
'x Elsamatilde
'se filtra tabla por col B
Range("B1").Select
Selection.AutoFilter Field:=2, Criteria1:="emm", Operator:=xlAnd
'se cuenta el total de celdas filtradas (incluye títulos)
conta = Range("B1").CurrentRegion.SpecialCells(xlCellTypeVisible).Count
'se divide por la cantidad de columnas (3 ya que el rango va de A:C) y se resta 1 por la fila de títulos
cantidad = conta / 3 - 1
'se muestra el resultado en un mensaje- OPCIONAL
MsgBox cantidad
End Sub
PD) Ya se inició la promo 'fin de año' en manuales y aplicaciones de mi sitio...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas