Clear contents of certain cells if condition is met

[deduwa]

Hi,

Going down a table with a dynamic number of rows - If cell G contains the word "Alpha" I want to clear contents in the cell that sits in column S of the same row.

Eg. if cells G20, G34, G49 say 'Alpha' then the contents of cells S20, S34, S49 should be cleared.

Is this possible?

Thanks in advance.

 

[MARK858]

One way maybe...

Sub FilterG()
    Application.ScreenUpdating = False
    With Range("G1:G" & Range("G" & Rows.Count).End(xlUp).Row)
        .AutoFilter 1, "Alpha"
        On Error Resume Next
        .Offset(1, 12).Resize(.Rows.Count - 1).SpecialCells(12).ClearContents
        On Error GoTo 0
        .AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

Code above assumes that you have headers.