Check that you are looking through all valid cells as COUNTA gives count of
non-blank cells; check values of i and x. If there are any blank cells in
your data range, your logic will not work.

And "Find" will find decimal data.


HTH

" wrote:

I have 2 list of data, and try to use find method to match the data.
However, i noted that find method do not work if the value to find is
with decimal point.
eg if the value is 12345, the target range is marked, but if the value
is 12345.5, then find miss the cell even though it really exist.

Do you have any idea?

-----------------------
Dim y As Integer, x As Integer
Dim i As Integer, j As Integer
Dim B As String, A As String, A1 As Long, B1 As Long


x = WorksheetFunction.CountA(Columns(1))
i = WorksheetFunction.CountA(Columns(6))

For y = 1 To x

If Cells(y, 2) = "ABCDEF" Then
A1 = Cells(y, 4) * -1

On Error Resume Next
Err.Clear

ActiveSheet.Range("J3:J" & i).Find(what:=A1,
lookat:=xlWhole).Select

If Not Err < 0 Then
B = ActiveCell.Offset(0, -1).Value

If Left(B, 4) = "XFR " Then

ActiveCell.Offset(0, 1).Value = "y"
Cells(y, 5).Value = "y"

End If
End If
End If

Next