MurraySMTH
Board Regular
- Joined
- Jun 30, 2020
- Messages
- 81
- Office Version
- 2016
- Platform
- Windows
Hi, I am trying to get the entire vlookup formula to fill down onto my 3rd sheet. I feel like i am close, please help!!
Sub CopyVLOOKUP()
Dim LastRow As Long
Dim StoreData As Range
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set StoreData = Sheets("Manual Hire Upload").Range("A2:A" & LastRow)
With Sheets("Manual Hire Upload")
LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A2:A" & LastRow).Formula = "=VLOOKUP('Onbase Report'!F:F,'Hubble Report'!A:B,2,FALSE)"
End With
Sub CopyVLOOKUP()
Dim LastRow As Long
Dim StoreData As Range
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set StoreData = Sheets("Manual Hire Upload").Range("A2:A" & LastRow)
With Sheets("Manual Hire Upload")
LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A2:A" & LastRow).Formula = "=VLOOKUP('Onbase Report'!F:F,'Hubble Report'!A:B,2,FALSE)"
End With