Place number in adjacent cell

[Panoos64]

Hi to all of you, kindly require to provide me support so that a VBA code to run through column "H" and where cells contains the text like "Electricity" should place the code "105020100". in adjacent cell in col. "F"
Thank you all in advance

 

[tyija1995]

Hey,

try this:

Sub SetValue()
Dim rng As Range
Dim cell As Range
Set rng = Range("H1:H" & Cells(Rows.Count, 8).End(xlUp).Row)
    For Each cell In rng
        If LCase(cell.Value) Like "*electricity*" Then
            cell.Offset(0, -2).Value = 105020100
        End If
    Next cell
End Sub

EDIT: If you need specifically "Electricity" and not "electricity" etc, then take out the LCase and put Electricity instead of electricity - I assume that as long as it contains the word it is fine regardless of casing.

 

[Panoos64]

Perfect tyija! thank you so much for your support and your time. Have a great day!

 

[tyija1995]

Glad I could help, thanks you too!