Delete empty rows

Hi all,

I use the following macro:

Sub hidden()
Dim r As Integer, tot As Integer
  tot = Range("A228").CurrentRegion.Rows.Count + 1000 
  For r = 228 To tot
    If Cells(r, 1) = "" And Cells(r, 1) = "" _
      And Cells(r, 17) = "" Then _
      Rows(r).Hidden = True
  Next r
End Sub

It is possible that the emty rows be removed instead of hidden?

Regards,

Danielle

It is possible that the empty rows be removed instead of hidden?
It may or may not, depending on what is in empty cell

If Cells(r, 1) = ""  repeated twice.

When the row in column 1 and 17 is empty, then the macro must delete the line.

I have tried this code:

Sub delete()
  Sheets("TariefDisplay").Select
Dim r As Integer, tot As Integer
  tot = Range("A228").CurrentRegion.Rows.Count + 1000 'verwijderen tot de aangegeven rijnummer
  For r = 228 To tot
    If Cells(r, 1) = "" And Cells(r, 17) = "" _
      Then _
      Rows(r).EntireRow.Delete
  Next r
End Sub

But is not working.

What's wrong with the macro?

Regards,

Danielle

Try looping back ward

You can not use reserved word(delete) to name your sub

Sub deleteme()
Dim r As Integer, tot As Integer

 With Sheets("TariefDisplay")

    tot = .Range("A228").CurrentRegion.Rows.Count + 1000 'verwijderen tot de aangegeven rijnummer
    For r = tot To 228 Step -1
      If .Cells(r, 1) = "" And .Cells(r, 17) = "" _
        Then _
        .Rows(r).delete
    Next r
 End With
End Sub

Thanks

This code works:

Sub deleteme()
Dim r As Integer, tot As Integer

 With Sheets("TariefDisplay")

    tot = .Range("A228").CurrentRegion.Rows.Count + 1000 
    For r = tot To 228 Step -1
      If .Cells(r, 1) = "" And .Cells(r, 17) = "" _
        Then _
        .Rows(r).delete
    Next r
 End With
End Sub