Appendix-Thread-Evaluate-Range-(-Codes-for-other-Threads-HTML-Tables-etc-)

[DocAElstein]

did not work see here: where it did....
http://www.excelfox.com/forum/f17/ht...eet-test-1899/

[DocAElstein]

I apply this code

Sub Evaluate_Left()Dim rngName As Range
Set rngName = ThisWorkbook.Worksheets("Sheet1").Range("A3:A10")
Dim rngEE As Range
Set rngEE = ThisWorkbook.Worksheets("sheet1").Range("E3:E10")
Let rngEE = Evaluate("if(row(3:10),LEFT(" & rngName.Address & ",4))")
End Sub 'Evaluate_Left()

and again get wot I expact....

see again...
http://www.excelfox.com/forum/f17/ht...eet-test-1899/

Now I apply this code

Sub Evaluate_VLOOKUP()Dim rngName As Range
Set rngName = ThisWorkbook.Worksheets("Sheet1").Range("A3:A10")
Dim rngCC As Range
Set rngCC = ThisWorkbook.Worksheets("sheet1").Range("C3:C10")
Let rngCC = Evaluate("if(row(3:10),VLOOKUP(" & rngName.Address & ",$A$16:$C$33,3,FALSE))")
End Sub 'Evaluate_VLOOKUP()

[DocAElstein]

and get this:

see again:
http://www.excelfox.com/forum/f17/ht...eet-test-1899/


. I would have expected that result without The extra If Row() stuff, which I thought overcame this problem.
. can anyone suggest wot is going wrong, or how I obtain the correct results (Using the Evaluate Function for a range)
Thanks
Alan.


P.s. I can post a spreadsheet in the test area but not apparently here in a thread??. Can you help me on that one as well?