SheriffWoody
New Member
- Joined
- Jul 7, 2015
- Messages
- 3
I'm looking to run a vlookup across multiple tabs; however, I'd like to specify the lookup to only search within tabs starting with the current month / user defined date.
I located the below which has been extremely useful with pulling the data across EVERY tab but I need help with editing the code to only set the tabs starting with July, August, etc... as the parameter range.
Vlookup. Excel Vlookup Across Excel Worksheets. Custom VLookup Formula/Function
Function VLOOKAllSheets(Look_Value As Variant, Tble_Array As Range, _
Col_num as Integer, Optional Range_look as Boolean)
Dim wSheet As Worksheet
Dim vFound
On Error Resume Next
For Each wSheet In ActiveWorkbook.Worksheets
With wSheet
Set Tble_Array = .Range(Tble_Array.Address)
vFound = WorksheetFunction.VLookup _
(Look_Value, Tble_Array, _
Col_num, Range_look)
End With
If Not IsEmpty(vFound) Then Exit For
Next wSheet
Set Tble_Array = Nothing
VLOOKAllSheets = vFound
End Function
I located the below which has been extremely useful with pulling the data across EVERY tab but I need help with editing the code to only set the tabs starting with July, August, etc... as the parameter range.
Vlookup. Excel Vlookup Across Excel Worksheets. Custom VLookup Formula/Function
Function VLOOKAllSheets(Look_Value As Variant, Tble_Array As Range, _
Col_num as Integer, Optional Range_look as Boolean)
Dim wSheet As Worksheet
Dim vFound
On Error Resume Next
For Each wSheet In ActiveWorkbook.Worksheets
With wSheet
Set Tble_Array = .Range(Tble_Array.Address)
vFound = WorksheetFunction.VLookup _
(Look_Value, Tble_Array, _
Col_num, Range_look)
End With
If Not IsEmpty(vFound) Then Exit For
Next wSheet
Set Tble_Array = Nothing
VLOOKAllSheets = vFound
End Function
