Leave cells blank case statement not working

[I3atnumb3rs]

Hi,

I'm trying to loop through each row in column c to look for a string, if that string is there I want it to enter a certain price in column H, otherwise I want to leave the data currently in column H untouched. My code sort of works but seems to delete the data in H during the loop. Please help!

Sub PostalPricingSpecial()

Dim x As Long
Application.ScreenUpdating = False
For x = 2 To Cells(Rows.Count, "C").End(xlUp).Row
Select Case UCase(Cells(x, 3))


Case "K0A 3M0"
Cells(x, 8).FormulaR1C1 = "195"
Case "K0B 1K0"
Cells(x, 8).FormulaR1C1 = "195"
Case Else
Cells(x, 8).Formula = "="""""

End Select
Next x
End Sub

 

[Rick Rothstein]

Hi,

I'm trying to loop through each row in column c to look for a string, if that string is there I want it to enter a certain price in column H, otherwise I want to leave the data currently in column H untouched. My code sort of works but seems to delete the data in H during the loop. Please help!

Sub PostalPricingSpecial()

Dim x As Long
Application.ScreenUpdating = False
For x = 2 To Cells(Rows.Count, "C").End(xlUp).Row
Select Case UCase(Cells(x, 3))


Case "K0A 3M0"
Cells(x, 8).FormulaR1C1 = "195"
Case "K0B 1K0"
Cells(x, 8).FormulaR1C1 = "195"
Case Else
Cells(x, 8).Formula = "="""""

End Select
Next x
End Sub

What happens if you delete what I highlighted in red above?

 

[I3atnumb3rs]

Worked! Thanks!