Delete Rows

[piresmdb]

I am using the followin code to delete rows
Sub DeleteEmptyRows()
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To FinalRow
If ActiveSheet.Cells(i, 1).Value = "" Then
ActiveSheet.Cells(i, 1).EntireRow.Delete
End If
Next i

End Sub
It is working ok but deletes only one row in between two filled rows If for exaplpe in the spreadsheet there are two empti rows between A2 and A5 it deletes only A3 I have to run the macro again to delets the empty rows that were not deleted when the macro ran for the first time


Regards

 

[MickG]

You need to loop throught the code backward (Bottom to Top)
Like this:-

For i =  FinalRow to 1 step -1

 

[piresmdb]

Hi MickG

It works now
Thank you very much

 

[Rick Rothstein]

I am using the followin code to delete rows
Sub DeleteEmptyRows()
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To FinalRow
If ActiveSheet.Cells(i, 1).Value = "" Then
ActiveSheet.Cells(i, 1).EntireRow.Delete
End If
Next i

End Sub
It is working ok but deletes only one row in between two filled rows If for exaplpe in the spreadsheet there are two empti rows between A2 and A5 it deletes only A3 I have to run the macro again to delets the empty rows that were not deleted when the macro ran for the first time

IF (and that is a big "if"), all the blanks in Column A are true blanks, that is, they are not formulas displaying the empty string (""), then here is another way to do this which should be faster than your current method...

Sub DeleteEmptyRows()
On Error Resume Next
Columns("A").SpecialCells(xlBlanks).EntireRow.Delete
End Sub