daily pastebin goal
37%
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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top