How do i read this message?

[wai2kit]

Hi all,

I'm fairly new to VBA and recently i was working on a file with a VBA code as per below which deletes rows that has zero in column 'I'.

Dim i As Long, n As Long
Dim rg As Range
Application.ScreenUpdating = False
With ActiveSheet
Set rg = Intersect(.UsedRange, .Columns("I"))
n = rg.Rows.Count
For i = n To 8 Step -1
If Not IsError(rg.Cells(i, 1).Value) Then
If rg.Cells(i, 1).Value = 0 Then rg.Rows(i).EntireRow.Delete
End If
Next
End With

I was having trouble understanding this whole sequence so i did a test where i input a single row in column 'J' to zero. Then i changed the above Columns("I") to Columns ("J") and it then deleted a whole bunch of rows which are not supposed to be deleted.

Can someone assist me with how the vba code above works? Many thanks

 

[James006]

Hi,

Below is your macro commented ...
Keep in mind a macro is very often tailor-made to the worksheet ... to a specific situation ... and might need to be adapted if conditions require it ...

Sub DeleteRows()
Dim i As Long, n As Long
Dim rg As Range
Application.ScreenUpdating = False
    With ActiveSheet
        ' Define the Range to operate on
        Set rg = Intersect(.UsedRange, .Columns("I"))
        ' Define the Number of rows in Column I
        n = rg.Rows.Count
        ' Loop from the bottom row up to row 8 ... with a step of  -1
            For i = n To 8 Step -1
                ' Test cell - if cell = 0 Then delete the entire row
                If Not IsError(rg.Cells(i, 1).Value) Then
                    If rg.Cells(i, 1).Value = 0 Then rg.Rows(i).EntireRow.Delete
                End If
            Next i
    End With
End Sub