Clearing Contents if Col A equals value and also clearing D if not blank

[GWG210]

I have a situation where I'm wanting to clear the cell from Column A if it equals A, B, or C and also check that if D is not blank to clear that cell also for the entire sheet.

Thank you in advance!

COL A	COL B	COL C	COL D
c	value	value	value	clear A and D
b	value	value		clear A only
123	value	value	value	clear D only
123	value	value		skip

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub GWG()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("if((@=""A"")+(@=""B"")+(@=""C"")+(@=""""),"""",@)", "@", .Address))
      .Offset(, 3).Value = ""
   End With
End Sub

 

[GWG210]

Hi & welcome to MrExcel.
How about

Sub GWG()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("if((@=""A"")+(@=""B"")+(@=""C"")+(@=""""),"""",@)", "@", .Address))
      .Offset(, 3).Value = ""
   End With
End Sub

Worked awesome thank you!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[GWG210]

You're welcome & thanks for the feedback.

Sorry looks like I spoke to soon instead of clearing the cell contents it shifts the row up. Any way to address that? TYIA.

 

[Fluff]

That code just clears the cells, it does not shift anything. Do you have any event code running on that sheet?

 

[GWG210]

That code just clears the cells, it does not shift anything. Do you have any event code running on that sheet?

Sorry that was my mistake I tried it on a clean xlsm and it worked. My apologies!

 

[Fluff]

No worries, thanks for letting us know.