I would appreciate any of your help in the following:
How can it be detected whether all cells in a row are completely empty?
In this case I want to delete empty rows.
Thanks very much for your attention and/or reply and best regards,
Cor Steeghs

For n=Range("A65536").end(xlup).row to 1 step -1
If Application.Counta(Rows(n))=0 then Rows(n).Delete
next

A live, online Excel Master Class is starting in September (which I'm
teaching).
For details, please follow this link:

http://www.iil.com/str_link_all_resu...ect_cartid=395


Bob Umlas
Excel MVP


"Cor Steeghs" wrote in message
...
I would appreciate any of your help in the following:
How can it be detected whether all cells in a row are completely empty?
In this case I want to delete empty rows.
Thanks very much for your attention and/or reply and best regards,
Cor Steeghs

Cor,

Dim x as Long
Dim lrow as Long

lrow = Cells(Rows.COUNT, "A").End(xlUp).Offset(1, 0).Row
' determine number of rows

For x = lrow to 1 step -1
If Worksheetfunction.Counta(Rows(x)) = 0 then
Rows(x).EntireRow.Delete
End if
Next

steve

"Cor Steeghs" wrote in message
...
I would appreciate any of your help in the following:
How can it be detected whether all cells in a row are completely empty?
In this case I want to delete empty rows.
Thanks very much for your attention and/or reply and best regards,
Cor Steeghs

for i = 10 to 1 step -1
if application.CountA(cells(i,1).EntireRow) = 0 then
cells(i,1).EntireRow.Delete
end if
Next


--
Regards,
Tom Ogilvy

"Cor Steeghs" wrote in message
...
I would appreciate any of your help in the following:
How can it be detected whether all cells in a row are completely empty?
In this case I want to delete empty rows.
Thanks very much for your attention and/or reply and best regards,
Cor Steeghs