Help to ClearContents by Columns based on cell value

[georgede]

Hi all,
What i am looking to do seems simple enough but i just dont have the expertise to figure out the VBA for it, any help would be greatly appreciated!

I would like to evaluate a cell (B7) where if the value = "SUN" or value = "SAT" and then clearcontents of range B9:B37 if that value is TRUE, then move to column C eval C7 and clearcontents of range C9:C37 if TRUE. All the way through Column AF.

I hope this is as simple as i thought it was, many thanks!

 

[Joe4]

Welcome to the Board!

Try this:

Sub MyMacro()

    Dim cell As Range
    
    Application.ScreenUpdating = False
    
    For Each cell In Range("B7:AF7")
        If (cell = "SAT") Or (cell = "SUN") Then
            Range(cell.Offset(2, 0), cell.Offset(30, 0)).ClearContents
        End If
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

 

[georgede]

First thank you for the welcome and more importantly this works PERFECTLY. I was definitely trying to over complicate it. This does exactly what i need.

Many thanks,
George

 

[Joe4]

You are welcome.
Glad I was able to help!