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
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
0