API tools faq
paste
Guest User

Untitled

a guest
Jun 19th, 2018
71
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.07 KB | None | 0 0
raw download clone embed print report
  1. Sheets("Output").Select
  2. Range("G7").Select
  3. ActiveCell.FormulaR1C1 = "All stores"
  4. Sheets("Stuurgroep").Select
  5. Range("N4:N18").Select
  6. Selection.Copy
  7. Range("C4").Select
  8. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  9. :=False, Transpose:=False
  10.  
  11. Sheets("Output").Select
  12. Range("G7").Select
  13. ActiveCell.FormulaR1C1 = "Quartile 1"
  14. Sheets("Stuurgroep").Select
  15. Range("N4:N18").Select
  16. Selection.Copy
  17. Range("D4").Select
  18. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  19. :=False, Transpose:=False
  20.  
  21. Set ListScenarios = ActiveWorkbook.Sheets("RefTables").Range("B3:B11")
  22.  
  23. For Each cell In ListScenarios
  24. Application.CutCopyMode = False
  25. Selection.Copy
  26. Sheets("Output").Select
  27. Range("G7").Select
  28. ActiveSheet.Paste
  29.  
  30. Sheets("Stuurgroep").Select
  31. Range("N4:N18").Select
  32. Selection.Copy
  33. Call Paste
  34. Next cell
  35.  
  36. Sub Paste()
  37.  
  38. Set Destination = ActiveWorkbook.Sheets("Stuurgroep").Range("C4:K4")
  39. For Each cell In Destination
  40. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  41. :=False, Transpose:=False
  42. Next cell
Add Comment
Please, Sign In to add comment
Public Pastes
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!