Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.55 KB | None | 0 0
  1. Details = ThisWorkbook.Worksheets("sheet1").Range("N")
  2.  
  3. with ThisWorkbook.Worksheets("sheet1")
  4. Details = .range(.cells(2, "N"), .cells(.rows.count, "N").end(xlup)).value
  5. end with
  6.  
  7. Dim details As Variant, mydata As Workbook
  8.  
  9. with ThisWorkbook.Worksheets("sheet1")
  10. Details = .range(.cells(2, "N"), .cells(.rows.count, "N").end(xlup)).value
  11. end with
  12.  
  13. Set mydata = Workbooks.Open("C:desktopbook2.xlsx")
  14.  
  15. mydata.Worksheets("template").cells(.rows.count, "B").end(xlup).offset(1, 0).resize(ubound(details, 1), ubound(details, 2)) = YourRef
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement