Excel - Rango vacio

   
Vista:

Rango vacio

Publicado por bego (4 intervenciones) el 02/02/2010 16:12:33
Hola a todos,

Estoy haciendo una macro que aplica un autofilter a una hoja y luego sobre el resultado del filtro...hago un tratamiento con sus celdas.

El problema en el que me he atascado es este:

With Worksheets("Hoja1").Range("D5:H5")
.AutoFilter
.AutoFilter Field:=1, Criteria1:=criterio
.AutoFilter Field:=4, Criteria1:="<>"
.AutoFilter Field:=5, Criteria1:="<>"
'formato del campo Contractor_No
.AutoFilter Field:=5, Criteria1:="XXXX????"
End With

'aplicar filtro a la hoja
Set rango = Worksheets("Hoja1").AutoFilter.Range

cuando me devuelve datos todo funciona bien.
Pero quiero preguntar por vacio, por si el filtro no me devuelve filas...y eso no sé hacerlo!

Me podrías ayudar?

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder