VALIDAR SI UN RANGO ESTA VACIO O NO

... como puedo validar si el rango que estoy tomando contiene valores o no?
... estoy utilizando un par de instrucciones que al filtrar mis datos elimine las celdas visibles
... quiero que si las celdas visibles no tienen datos simplemente que no se ejecute la instruccion de ELIMINAR
Sub ECV()
Dim R As Range
If R.Value = "" Then
Exit Sub
Else
Set R = ActiveCell.CurrentRegion.Offset(1)
R.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If
End Sub

hola, Marvin !

> ... como puedo validar si el rango que estoy tomando contiene valores o no?
> ... estoy utilizando un par de instrucciones que al filtrar mis datos elimine las celdas visibles
> ... quiero que si las celdas visibles no tienen datos simplemente que no se ejecute la instruccion de ELIMINAR
> Sub ECV()
> Dim R As Range
> If R.Value = "" Then
> Exit Sub
> Else
> Set R = ActiveCell.CurrentRegion.Offset(1)
> R.SpecialCells(xlCellTypeVisible).EntireRow.Delete
> End If
> End Sub

1) el codigo que expones [segun se aprecia] -> es llamado 'a posteriori' de otro procedimiento [p.e. luego de un autofiltro] -?-
2) [por lo anterior]... seria 'conveniente' que expongas-tambien- el criterio que hubieras utilizado para los autofiltros -?-
3) y ya... 'de pasadita'... algun otro detalle que se te hubiera 'quedado en el tintero' :))

saludos,
hector.

El criterio de filtrado se basa en eliminar encabezados, mi reporte se conforma de la fusion de varios reportes
cada uno tiene el mismo encabezado, (titulos de campo), lo quiero hacer solo dejar el principal (el primer titulo de campo)
... a veces solo es un reporte un solo titulo de campo y cuando ejecuto mi filtro pues me genera un error ya que no hay nada que eliminar...