Worksheet Function Help

[Hernan_g_f]

Hello all,

I'm writing the following code:

Dim rng3, rng4 As Range
Set rng3 = sh.Range("E16:H2500")
Set rng4 = sh.Range("E14:H14")

Dim x1 As Long

x1 = 100 / sh.Cells(14, 9).Value

For i = 1 To awx1

For j = 1 To 4

If rng1.Cells(i, 1).Value > 0 Then
rng3.Cells(i, j).Value = WorksheetFunction.VLookup(rng1.Cells(i, 1).Value, rng2, rng4.Cells(1, j).Value, 0) * x1
Else
rng3.Cells(i, j).Value = ""
End If


Next j

Next i

But x1 is incorrect. How can I write the correctly code so the line: rng3.Cells(i, j).Value = WorksheetFunction.VLookup(rng1.Cells(i, 1).Value, rng2, rng4.Cells(1, j).Value, 0) * x1

Thank your very much!
Hernán

 

[Alex Blakenburg]

Does rng4.Cells(1, j).Value return a number and is the number of a column in the range rng2 ?
You are not showing the Dim statement for rng1 & rng2.
What is awx1 ?
What is in sh.Cells(14, 9).Value ?

Make sure you have the VLookup working in Excel before trying to convert it to VBA.

 

[Hernan_g_f]

Dear Alex Blakenburg, thank you for the suggestions teacher. I had resolved the trouble last week!

 

[Alex Blakenburg]

Thanks for letting me know. Glad I was of some help.