Excel Macro - Clear cell contents of range of columns if criteria is met

[stevia]

Hi all,

Is there a code which is able to look at each row of data in my spreadsheet, where column B in my spreadsheet has the specific text "Calendar". If this text matches, clear the cell contents in these rows in columns C to E while keeping the header intact.

This is a sample of what my spreadsheet looks like with dummy data.

and the end result I am looking for

 

[DanteAmor]

Hi @stevia

Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.​

Try this:

Sub Macro5()
  Dim lr As Long
  lr = Range("B" & Rows.Count).End(3).Row
  Range("A1:$E" & lr).AutoFilter 2, "Calendar"
  Range("C2:E" & lr).ClearContents
  Range("A1").AutoFilter
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Cordially
Dante Amor
--------------​

 

[stevia]

Hi @stevia

Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.​

Try this:

Sub Macro5()
  Dim lr As Long
  lr = Range("B" & Rows.Count).End(3).Row
  Range("A1:$E" & lr).AutoFilter 2, "Calendar"
  Range("C2:E" & lr).ClearContents
  Range("A1").AutoFilter
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Cordially
Dante Amor
--------------​

The macro ran perfectly, thank you!!