Solved: If Subtotal equal to zero delete that paticular group.

[Shazam]

Hi Everyone,


I have a workbook that uses Subtotals. My question is does anyone has a code that will look in column D and if the subtotal equal to zero then delete that subtotal group.

Here is a sample of my workbook.

[Bob Phillips]

[vba]

Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long
Dim rng As Range
Dim StartRow As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
StartRow = 2
For i = 2 To LastRow

If .Cells(i, "A").Value = "Total" Then

If .Cells(i, "D").Value = 0 Then

If rng Is Nothing Then

Set rng = .Rows(StartRow).Resize(i - StartRow + 1)
Else

Set rng = Union(rng, .Rows(StartRow).Resize(i - StartRow + 1))
End If
End If

StartRow = i + 1
End If
Next i

If Not rng Is Nothing Then rng.Delete
End With

End Sub
[/vba]

[Shazam]

awesome!!! Thank you xld.