hi all;

i get error message for this code any help.

Sub dd()

Dim d1, d3 As Long

Dim d2, d4 As Characters(i want d2,d4) as float


For i = 1 To 6112

d3 = Sheet1.Range("c" & i)

d4 = Sheet1.Range("e" & i)

For k = 2 To 21

d1 = Sheet6.Range("a" & k)

d2 = Sheet6.Range("h" & k)

If d1 = d3 And d2 = d4 Then

Sheet1.Range("j" & i) = Sheet6.Range("b" & k)

kk = 25

End If

Next k

Next i

End Sub