defining a range

[Stefi]

Hi All,

I defined a range containing empty cells in column C:
Dim emptycells As Range
Set emptycells = Columns("C:C").SpecialCells(xlCellTypeBlanks)

How can I define another range that contains all rows in which these empty
cells occur?

Thanks,
Stefi

 

[Norman Jones]

Hi Stefi,

Try:

Dim EmptyCells As Range

On Error Resume Next
Set EmptyCells = Columns("C:C"). _
SpecialCells(xlCellTypeBlanks).EntireRow
On Error GoTo 0

 

[Stefi]

Thanks Norman, how simple it is if one knows the answer!
Stefi


„Norman Jones†ezt írta: