daily pastebin goal
64%
SHARE
TWEET

Untitled

a guest Mar 22nd, 2018 54 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim lastRow As Long
  2.  
  3. With ThisWorkbook.Worksheets("Input Sched-Unsched Split")
  4.  
  5.     lastRow = .Cells(.Rows.Count, "M").End(xlUp).Row
  6.  
  7.     .Range("I15:I" & lastRow).FormulaR1C1 = _
  8.                        "=VLOOKUP(RC[-8],'[" & combinedWorkbook.Name & "]Sheet1'!R1C1:R700000C2,2,0)"
  9.  
  10.     combinedWorkbook.Close False
  11.  
  12. End With
  13.    
  14. Dim lastRow As Long
  15.  
  16. With ThisWorkbook.Worksheets("Input List Repurch")
  17.  
  18.     lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
  19.  
  20.     .Range("D9:D" & lastRow).FormulaR1C1 = _
  21.                        "=VLOOKUP(RC[-2],'[" & combinedWorkbook.Name & "]Sheet1'!R1C1:R700000C2,2,0)"
  22.  
  23.     combinedWorkbook.Close False
  24.  
  25. End With
RAW Paste Data
Top