API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 20th, 2019
72
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.88 KB | None | 0 0
raw download clone embed print report
  1. Sub juntarfim()
  2. '
  3. Range("A1").Select
  4. Sheets("PLANILHA1").Select
  5. Range("A5:E500").Select
  6. Application.CutCopyMode = False
  7. Selection.Copy
  8. Sheets("CONSOLIDADOJUNTOS").Select
  9. ActiveSheet.Paste
  10. '
  11. Range("A501").Select
  12. Sheets("PLANILHA2").Select
  13. Range("A6:E500").Select
  14. Application.CutCopyMode = False
  15. Selection.Copy
  16. Sheets("CONSOLIDADOJUNTOS").Select
  17. ActiveSheet.Paste
  18. '
  19. End sub
  20.  
  21. Sub juntarfim()
  22.  
  23. Application.ScreenUpdating = False 'desativa atualização de tela.
  24. Range("A1").Select
  25. Sheets("PLANILHA1").Select
  26. Range("A5:E500").Select
  27. Application.CutCopyMode = False
  28. Selection.Copy
  29. Sheets("CONSOLIDADOJUNTOS").Select
  30. ActiveSheet.Paste
  31. '
  32. Range("A501").Select
  33. Sheets("PLANILHA2").Select
  34. Range("A6:E500").Select
  35. Application.CutCopyMode = False
  36. Selection.Copy
  37. Sheets("CONSOLIDADOJUNTOS").Select
  38. ActiveSheet.Paste
  39. '
  40. End sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!