Basic question regarding cell.value

[ExcelFL]

I am trying to have the value in cell A1 which is dal be the basis to clear the values in cells a5 to a500. The below formula does not work for the loop function; help much appreciated.
-------------
Option Explicit

Sub test()

Dim x As Variant
Dim y As Long
x = Cells(1, 1).Value
MsgBox x
y = 5

For y = y To 500 Step 1
If Cells(y, 1).Value = x Then
Cells(y, 1).Clear
End If
Next y

End Sub

 

[VoG]

Try looping backwards

Sub test()

Dim x As Variant
Dim y As Long
x = Cells(1, 1).Value
MsgBox x
y = 5

For y = 500 To y Step -1
If Cells(y, 1).Value = x Then
Cells(y, 1).Clear
End If
Next y

End Sub

 

[Jonmo1]

It could be an issue with Case Sensitiveness (VBA is case sensitive)
So if x = DAL, but the Cells(y,1) = dal, then it won't be considered a match.

Try

If UCase(Cells(y, 1).Value) = UCase(x) Then

 

[Cindy Ellis]

Also, if you're comparing numbers there may be rounding, "coersion", and/or machine storage involved. For instance, if your values in rows 5 to 500 are displayed to 2 decimals, but are results of calculations with more stored digits, they won't match a number entered in cell(1,1) even if they look like they should.

 

[ExcelFL]

Thanks; issue resolved! The ucase did the trick