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








Switch color theme
Select message background color...
Select message area width...
Enable message width in percentage
Change toolbar background color...
Adjust message text font size...
Disable auto links
Enable acronyms
Disable message header
Vb code Thread #903109 Message #903109