SHARE
TWEET

CopySheetsToElseWhereVBA.vbs

filledwithgarbages Jan 23rd, 2020 (edited) 273 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub CopySheetsToElseWhere()
  2. '
  3. ' CopySheetsToElseWhere Macro
  4. '
  5.  
  6. '
  7. Dim Moto As String
  8. Dim Saki As String
  9. Moto = "yourfile1.xlsx"
  10. Saki = "yourfile2.xlsx"
  11.  
  12.         Windows(Moto).Activate
  13.         Range("A2:L15").Select
  14.         Selection.Copy
  15.         ActiveSheet.Next.Activate
  16.         Windows(Saki).Activate
  17.         Range("A2:L15").Select
  18.         ActiveSheet.Paste
  19.         ActiveSheet.Next.Activate
  20. End Sub
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