Run-time error '13': Type mismatch

[John Davis]

Hello All:

I'm getting the title error in the following code. Range("W" & i).Value...... line is highlighted:

Dim i As Integer
For i = 2 To 10000
If Range("V" & i).Value = "3701.30.0000" Then
Range("K" & i).Formula = _
"=VLOOKUP(L & i,'[CONVERSION FACTORS PLATES.xls]import'!$A$2:$B$10000,2,FALSE)"
Range("W" & i).Value = Range("K" & i).Value * Range("R" & i).Value
End If
Next i


Can anyone offer any help??

 

[mikerickson]

The formula in Ki is returning a error, which can't be muliplied.
When I put that formula in K1, the formula was
=VLOOKUP(L & i,'[CONVERSION FACTORS PLATES.xls]import'!$A$2:$B$10000,2,FALSE)

unless L is a named formula, L & i won't be found in the lookup range.

 

[RoryA]

Per Mike's comment:

Dim i As Long
For i = 2 To 10000
If Range("V" & i).Value = "3701.30.0000" Then
Range("K" & i).Formula = _
"=VLOOKUP(L" & i & ",'[CONVERSION FACTORS PLATES.xls]import'!$A$2:$B$10000,2,FALSE)"
Range("W" & i).Value = Range("K" & i).Value * Range("R" & i).Value
End If
Next i

 

[John Davis]

Per Mike's comment:

Dim i As Long
For i = 2 To 10000
If Range("V" & i).Value = "3701.30.0000" Then
Range("K" & i).Formula = _
"=VLOOKUP(L" & i & ",'[CONVERSION FACTORS PLATES.xls]import'!$A$2:$B$10000,2,FALSE)"
Range("W" & i).Value = Range("K" & i).Value * Range("R" & i).Value
End If
Next i

Thanks, Rory. I was still in the process of trying to solve this one. Your suggestion works.