Change cell value and move to next row VBA loop

[kfahnty]

Hi,

I am very new to VBA and I am trying to automate some processes in my day job.

I am trying to write a code to check:

• if cell J2 value ="Additional" then
• change to "="
• if else leave as "Additional"
• then I want it to move to cell J3, J4 and so on, until the last row.

I've tried several iterations of Loops and If statements but nothing seems to work. Can someone post a sample code that can help me with this?

Thank you!!

 

[Fluff]

Hi & welcome to MrExcel.

Not sure if I've understood you correctly. Are you saying the if J2 is "Additional" then clear J2, otherwise write "Additional" in J2?

 

[kfahnty]

Hi & welcome to MrExcel.

Not sure if I've understood you correctly. Are you saying the if J2 is "Additional" then clear J2, otherwise write "Additional" in J2?

Hi, sorry, I've made a mistake. If J2 is "Additional" then clear, otherwise leave as is. Hope that clarifies it.

 

[Fluff]

Ok, how about

Sub ClearSome()
   With Range("J2", Range("J" & Rows.Count).End(xlUp))
      .Replace "Additional", "", xlWhole, , False, , False, False
   End With
End Sub

 

[kfahnty]

Ok, how about

Sub ClearSome()
   With Range("J2", Range("J" & Rows.Count).End(xlUp))
      .Replace "Additional", "", xlWhole, , False, , False, False
   End With
End Sub

That worked, thank you very much!

 

[Fluff]

You're welcome