VBA Help With Multiple Condition "IF" Statement

[DA7135X]

I need some help writing a visual basic code that says,
"If a cell in column B = "H" and
the corresponding cell in column C = 0, then
change the value in column C from 0 to HLB.

As I am very new to VBA, the simpler the answer the better. Appreciate any help anyone can give.
Thank you.

 

[VoG]

Try

Sub atest()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("C" & i)
        If .Value = 0 And .Offset(, -1).valoe = "H" Then .Value = "HLB"
    End With
Next i
End Sub

 

[DA7135X]

Hi Peter, thank you so much for your quick response. I am receiving the following error message in regards to the "IF" line and I am not sure how to correct.
"Object does not support property or method".

 

[VoG]

Sorry, typo

Sub atest()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("C" & i)
        If .Value = 0 And .Offset(, -1).Value = "H" Then .Value = "HLB"
    End With
Next i
End Sub