According to your last attachment just using the Excel basics like any beginner can yet operates manually :
PHP Code:
Sub Demo0()
Dim V
Application.ScreenUpdating = False
With Range("A2", [A1].End(xlDown)).Resize(, 7).Columns
.Item(7).Formula = "=ROUND(SUMIF(" & .Item(6).Address & ",F2," & .Item(5).Address & "),2)=0"
.Sort .Cells(7), xlAscending, Header:=xlNo
V = Application.Match(True, .Item(7), 0)
If IsNumeric(V) Then .Rows(V & ":" & .Rows.Count).Clear
.Item(7).Clear
End With
Application.ScreenUpdating = True
End Sub
► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄
Bookmarks