Put a new value in another cell once find a specific word using a macro in an excel report

This macro is like the replace function, I use it when I need to search for a particular word, once it finds it, I want to put another word in another column in the same row.

macro excel macro excel

 

When I use the macro ?

Each time that I want to put a new value in another cell once it finds the specific word.

 

How to create the macro ?

Read How to create, edit, hide and select a macro in an excel report

 

How to create the button to associate it with the macro ?

Read How to create a button and associated it to a macro in an excel report

 

How is/are the macro(s) ?

Copy the code below and paste it into your macro. You will see my comments in green if exist so follow the help to adapt to your need.


Sub test()
' change the number you want to search
For i = 2 To 14
  ' change the sheet1 name
  With Sheets("Sheet1")
    ' change A by the column letter where you want to find chocolate
    ' change B by the column letter where you want to put black
    If .Range("A" & i).Value = "chocolate" Then _
      .Range("B" &i ).Value = "black"
  End With
Next i
End Sub

Interesting Topics