This is what I use to delete empty rows - is there a way I can get it to skip the first 3 rows - I really like this one as it is very quick. I suppose I could put a fony value in A1:A3 - then set them = vbnullstring after (but I really dont want to do so).
Code:ActiveSheet.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
xl2007 - Windows 7
xl hates the 255 number
Code:Application.Intersect(ActiveSheet.Columns(1).Cells(4).Resize(Rows.Count - 4 + 1), ActiveSheet.Columns(1).SpecialCells(xlCellTypeBlanks)).EntireRow.Delete
A dream is not something you see when you are asleep, but something you strive for when you are awake.
It's usually a bad idea to say that something can't be done.
The difference between dream and aim, is that one requires soundless sleep to see and the other requires sleepless efforts to achieve
Join us at Facebook
This would be more elegant though
Code:ActiveSheet.Cells(4, 1).Resize(Rows.Count - 4 + 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
A dream is not something you see when you are asleep, but something you strive for when you are awake.
It's usually a bad idea to say that something can't be done.
The difference between dream and aim, is that one requires soundless sleep to see and the other requires sleepless efforts to achieve
Join us at Facebook
By the way, why do you want to delete the entire range all the way to the last row in the sheet? Shouldn't you be using a more dynamic one based on the last filled cell of the column?
Like
Code:With ActiveSheet .Range(.Cells(4, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With
A dream is not something you see when you are asleep, but something you strive for when you are awake.
It's usually a bad idea to say that something can't be done.
The difference between dream and aim, is that one requires soundless sleep to see and the other requires sleepless efforts to achieve
Join us at Facebook
My column A is a position column - so it always have a value - if the record is valid. So your answer is perfect - tyvm
xl2007 - Windows 7
xl hates the 255 number
Posting Permissions
Reply With Quote
Bookmarks