Clear contents of cell range based on cell value

[mickyflash]

Hello, I wonder if anyone could help me. I am looking for a code/formula which I am pretty sure can be done but I do not know VBA well enough to adapt anything I found on this site.

I would like to delete the values in cell C2:AF2 IF C2 = sheet2!a2

only I would like the range to include all rows upto row 60

so if C59 - SHEET!A2 then delete the values in C59:AF59

I apologies in advance for my lack of knowledge and I hope I am explaining myself well.

 

[mickyflash]

No help yet.. but I have looked into this a bit more and this is what I have come up with:

Sub clear_stuff()
If Sheets("Sheet1").Range("c2").Value = "Yes" Then
Sheets("Sheet1").Range("d2:ag2").ClearContents
End If
End Sub

This works for one cell ("C2")
is there an easy way to adapt this to work for all cells is C:C?

 

[VoG]

Try

Sub clear_stuff()
Dim LR As Long, i As Long
With Sheets("Sheet1")
    LR = .Range("C" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        If .Range("C" & i).Value = "Yes" Then
            .Range("D" & i & ":AG" & i).ClearContents
        End If
    Next i
End With
End Sub

 

[mickyflash]

Fantastic, Thanks Peter.

Works a treat, and I continue to learn.