irfananeeza
Active Member
- Joined
- Feb 15, 2008
- Messages
- 334
- Office Version
- 2010
Hi excel experts, below is a macro which runs good with Workbooks.Open "Book2"code . Instead, Workbooks.Open "Book2", I need a simple code to read/access data within Workbooks"Book2" without opening it to be inserted right above With Workbooks("Book2").Worksheets("Sheet2"). Let's say I do not want to open "Book2" and then close it.
Sub basic_Vlookup()
Dim myLookupValue As String
Dim myFirstRow As Long
Dim myFirstColumn As Long
Dim myLastRow As Long
Dim myLastColumn As Long
Dim myColumnIndex As Long
Dim myVlookupResult As Long
Dim myTableArray As Range
myLookupValue = "Raymond Allen"
myFirstRow = 2
myFirstColumn = 1
myLastRow = 10
myLastColumn = 3
myColumnIndex = 3
'Workbooks.Open Filename:="C:\Users\User\Desktop\Book2.xlsx"
'Workbooks.Open "Book2"
With Workbooks("Book2").Worksheets("Sheet2")
Set myTableArray = .Range(.Cells(myFirstRow, myFirstColumn), _
.Cells(myLastRow, myLastColumn))
End With
myVlookupResult = WorksheetFunction.VLookup(myLookupValue, _
myTableArray, myColumnIndex, False)
MsgBox "Sales by " & myLookupValue & " are " & Format(myVlookupResult, "#,##0")
End Sub
Sub basic_Vlookup()
Dim myLookupValue As String
Dim myFirstRow As Long
Dim myFirstColumn As Long
Dim myLastRow As Long
Dim myLastColumn As Long
Dim myColumnIndex As Long
Dim myVlookupResult As Long
Dim myTableArray As Range
myLookupValue = "Raymond Allen"
myFirstRow = 2
myFirstColumn = 1
myLastRow = 10
myLastColumn = 3
myColumnIndex = 3
'Workbooks.Open Filename:="C:\Users\User\Desktop\Book2.xlsx"
'Workbooks.Open "Book2"
With Workbooks("Book2").Worksheets("Sheet2")
Set myTableArray = .Range(.Cells(myFirstRow, myFirstColumn), _
.Cells(myLastRow, myLastColumn))
End With
myVlookupResult = WorksheetFunction.VLookup(myLookupValue, _
myTableArray, myColumnIndex, False)
MsgBox "Sales by " & myLookupValue & " are " & Format(myVlookupResult, "#,##0")
End Sub