API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 21st, 2017
93
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.16 KB | None | 0 0
raw download clone embed print report
  1. Range("B8:G8").Copy
  2. NextRow = Sheets("History 5440").Cells(Rows.Count, 1).End(xlUp).Row + 1
  3. Sheets("History 5440").Paste
  4.  
  5. Range("B3").Copy
  6. Sheets("History 5440").Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
  7.  
  8. Range("B8:E8").Copy Sheets("History 5440").Range("B1048576").End(xlUp).Offset(1, 0)
  9.  
  10. Sheets("History 5440").Range("F6").Copy Sheets("History 5440").Range("F1048576").End(xlUp).Offset(1, 0)
  11.  
  12. Range("B8:e8").Copy Sheets("History 5440").Range("B1048576").End(xlUp).Offset(1, 0)
  13.  
  14. Range("B9:e9").Copy Sheets("History 7450").Range("B1048576").End(xlUp).Offset(1, 0)
  15.  
  16. Range("B10:e10").Copy Sheets("History 7470").Range("B1048576").End(xlUp).Offset(1, 0)
  17.  
  18. Range("B11:e11").Copy Sheets("History MBP 15 Retina").Range("B1048576").End(xlUp).Offset(1, 0)
  19.  
  20. Range("B12:e12").Copy Sheets("History MBP 13 Retina").Range("B1048576").End(xlUp).Offset(1, 0)
  21.  
  22. 'Copy week and move to history
  23.  
  24. Range("B3").Copy
  25. Sheets("History 5440").Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
  26.  
  27. Range("B3").Copy
  28. Sheets("History 7450").Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
  29.  
  30. Range("B3").Copy
  31. Sheets("History 7470").Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
  32.  
  33. Range("B3").Copy
  34. Sheets("History MBP 15 Retina").Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
  35.  
  36. Range("B3").Copy
  37. Sheets("History MBP 13 Retina").Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
  38.  
  39. 'Copy Last weeks
  40.  
  41. Sheets("History 5440").Range("F6").Copy Sheets("History 5440").Range("F1048576").End(xlUp).Offset(1, 0)
  42.  
  43. Sheets("History 5440").Range("F6").Copy Sheets("History 5440").Range("F1048576").End(xlUp).Offset(1, 0)
  44.  
  45. Sheets("History 5440").Range("F6").Copy Sheets("History 5440").Range("F1048576").End(xlUp).Offset(1, 0)
  46.  
  47. Sheets("History 5440").Range("F6").Copy Sheets("History 5440").Range("F1048576").End(xlUp).Offset(1, 0)
  48.  
  49. Sheets("History 5440").Range("F6").Copy Sheets("History 5440").Range("F1048576").End(xlUp).Offset(1, 0)
  50.  
  51. Private Sub CommandButton1_Click()
  52. ThisWorkbook.Sheets("Sheet2").Range("a2").Value = ThisWorkbook.Sheets("Sheet1").Range("a2").Value
  53. 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!