ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Vlookup with tableLookup is external workbook (https://www.excelbanter.com/excel-programming/290949-vlookup-tablelookup-external-workbook.html)

Carlos[_2_]

Vlookup with tableLookup is external workbook
 
Hello, i try use in VBA the Worksheetfuncion Vlookup with table lookup
another workbook.

Sub test()
Dim Look As Range
Dim tLook As Range

Set Look = Cells(2, 2)

---------------Error in next line ("P" is a name range)-----------------
Set tLook = Workbooks("c:\temp\test.xls").Sheets("test").Range ("P")

ActiveCell = Application.WorksheetFunction.VLookup(Look, tLook, 10, 0)

End Sub

Any help is appreciate

Thanks



Vasant Nanavati

Vlookup with tableLookup is external workbook
 
Assuming the workbook is open, you only need:

Set tLook = Workbooks("test.xls").Sheets("test").Range("P")

--

Vasant



"Carlos" wrote in message
...
Hello, i try use in VBA the Worksheetfuncion Vlookup with table lookup
another workbook.

Sub test()
Dim Look As Range
Dim tLook As Range

Set Look = Cells(2, 2)

---------------Error in next line ("P" is a name

range)-----------------
Set tLook = Workbooks("c:\temp\test.xls").Sheets("test").Range ("P")

ActiveCell = Application.WorksheetFunction.VLookup(Look, tLook, 10, 0)

End Sub

Any help is appreciate

Thanks





Carlos[_2_]

Vlookup with tableLookup is external workbook
 
Thanks Vasant, but probably the workbook most of the time is close.
It possible to point to external reference or i have to open the Book and
keep hidden

I thanks to the fast support

"Vasant Nanavati" <vasantn *AT* aol *DOT* com wrote in message
...
Assuming the workbook is open, you only need:

Set tLook = Workbooks("test.xls").Sheets("test").Range("P")

--

Vasant



"Carlos" wrote in message
...
Hello, i try use in VBA the Worksheetfuncion Vlookup with table lookup
another workbook.

Sub test()
Dim Look As Range
Dim tLook As Range

Set Look = Cells(2, 2)

---------------Error in next line ("P" is a name

range)-----------------
Set tLook = Workbooks("c:\temp\test.xls").Sheets("test").Range ("P")

ActiveCell = Application.WorksheetFunction.VLookup(Look, tLook, 10,

0)

End Sub

Any help is appreciate

Thanks








All times are GMT +1. The time now is 02:26 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com