VBA for update a cell based off another cell

[Helloitsmemargaret]

Hi I am unable to get my macro to work to update one cell based off another cell. I need " Escalated to Issue" cells in Column N to transform "Risk" value cells in Column H to "Issue" value cells in Column H.
Can someone help

This is what I have

Sub Test()
Dim LastRow As Long
Dim i As Long
LastRow = Range("N" & Rows.Count).End(xlUp).Row
For i = 3 To LastRow
If Range("N" & i).Value = "Escalated to Issue" Then
Range("H" & i).Value = "Issue"
End If
Next cell
End Sub

 

[Roderick_E]

A couple of things to consider, case-sensitivities
Put this line before your SUB.

Option Compare Text 'ignore text case

Next, the potential the user input an extra space in "Escalated to Issue" so instead of an exact match, just a string match like this

If instr(Range("N" & i).Value, "esca") then

 

[Helloitsmemargaret]

A couple of things to consider, case-sensitivities
Put this line before your SUB.

Option Compare Text 'ignore text case

Next, the potential the user input an extra space in "Escalated to Issue" so instead of an exact match, just a string match like this

If instr(Range("N" & i).Value, "esca") then

What would be the exact VBA utilizing this?

 

[Helloitsmemargaret]

Also, the lists are drop down so case sensitivities is not an issue

 

[Roderick_E]

Hmm... then what error/issue are you getting with your code?

 

[Helloitsmemargaret]

Hmm... then what error/issue are you getting with your code?

It doesn't update the spreadsheet. This is my first time utilizing a VBA in excel.

 

[Roderick_E]

Maybe you need to refer to the sheet...and remove the .value since you are working with Text.
See example below, change sheet1 to whatever you need.

Ahhhh...as I was proof reading I noticed you had "Next cell" it should be Next i because i is the loop.

Sub Test()
Dim LastRow As Long
Dim i As Long
LastRow = sheet1.Range("N" & Rows.Count).End(xlUp).Row
For i = 3 To LastRow
If sheet1.Range("N" & i) = "Escalated to Issue" Then
sheet1.Range("H" & i) = "Issue"
End If
Next i
End Sub