Hi, Im using a vba code for what could be done by vlookup, but I need the
code not the function. The code below is what I am using.

Sub Help()
For Each ce In Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
If WorksheetFunction.CountIf(Range("b:b"), ce.Value) Then
ce.Offset(0, 13).Value = Cells(ce.Row, 3)
Else
ce.Offset(0, 100).Value = ""
End If
*My Data looks like this. When i run the program the answer im getting for
2217 is 465, but the correct answer is 414. Same with 2540. The answer thats
correct for 2540 is 465, but im getting 332. Any ideas?
Col A Col B Col C
2265 2265 332
2540 2265 332
2217 2540 465
2217 414


Next ce
End Sub

try:
ce.Offset(0, 13).Value = Cells(ce.Row - 1, 3)



"Busybee" skrev:

Hi, Im using a vba code for what could be done by vlookup, but I need the
code not the function. The code below is what I am using.

Sub Help()
For Each ce In Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
If WorksheetFunction.CountIf(Range("b:b"), ce.Value) Then
ce.Offset(0, 13).Value = Cells(ce.Row, 3)
Else
ce.Offset(0, 100).Value = ""
End If
*My Data looks like this. When i run the program the answer im getting for
2217 is 465, but the correct answer is 414. Same with 2540. The answer thats
correct for 2540 is 465, but im getting 332. Any ideas?
Col A Col B Col C
2265 2265 332
2540 2265 332
2217 2540 465
2217 414


Next ce
End Sub