Clear cell based on value

[esmecat]

Hi

I managed to get some code which found any zeros in range G2:G500 and clear the cell, but now I also need a code that clears the cell beside it in column H. Is that possible?

Thanks in advance

 

[alansidman]

Option Explicit


Sub esmecat()
    Dim c As Range, rng As Range
    Set rng = Range("G2:G500")
    For Each c In rng
        If c = 0 Then
            c.ClearContents
            c.Offset(0, 1).ClearContents
        End If
    Next c


End Sub

 

[DanteAmor]

How about

Sub Macro1()
    ActiveSheet.Range("G1").AutoFilter Field:=1, Criteria1:="0"
    ActiveSheet.AutoFilter.Range.Offset(1).Resize(Rows.Count - 1, 2).ClearContents
    ActiveSheet.ShowAllData
End Sub

 

[esmecat]

Excellent. Thank you

 

[DanteAmor]

Excellent. Thank you

I'm glad to help you. Thanks for the feedback.