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 the macro ?

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 Management