API tools faq
paste
Guest User

Untitled

a guest
Mar 18th, 2018
96
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.09 KB | None | 0 0
raw download clone embed print report
  1. Sub L4toMetrics()
  2.  
  3. Application.ScreenUpdating = False
  4. Application.DisplayAlerts = False
  5.  
  6. Dim MainWorkfile As String
  7. Dim OtherWorkfile As String
  8.  
  9. MainWorkfile = ActiveWorkbook.Name
  10.  
  11. lRow = Range("C1048576").End(xlUp).Row
  12.  
  13. Sheets("February 2018 Tracker (Raw)").Select
  14. Range("B2:Q2" & lRow).ClearContents
  15. Range("C1").Select
  16.  
  17. Application.AskToUpdateLinks = False
  18. Application.DisplayAlerts = False
  19. Application.ScreenUpdating = False
  20.  
  21. Workbooks.Open Filename:=Application.GetOpenFilename
  22. OtherWorkfile = ActiveWorkbook.Name
  23.  
  24. Sheets("Filtered Data").Select
  25. If ActiveWorkbook.ActiveSheet.FilterMode Or _
  26. ActiveWorkbook.ActiveSheet.AutoFilterMode Then _
  27. ActiveWorkbook.ActiveSheet.AutoFilterMode = False
  28. lRw = Range("C1048576").End(xlUp).Row
  29.  
  30. Range("B2:F2" & lRw).Select
  31. Selection.Copy
  32.  
  33. Windows(MainWorkfile).Activate
  34. Sheets("February 2018 Tracker (Raw)").Select
  35. lstrw = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row + 1
  36. Range("B" & lstrw).Select
  37. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  38. :=False, Transpose:=False
  39.  
  40.  
  41.  
  42. Windows(OtherWorkfile).Activate
  43. Sheets("Filtered Data").Select
  44. If ActiveWorkbook.ActiveSheet.FilterMode Or _
  45. ActiveWorkbook.ActiveSheet.AutoFilterMode Then _
  46. ActiveWorkbook.ActiveSheet.AutoFilterMode = False
  47. lRw = Range("C1048576").End(xlUp).Row
  48.  
  49. Range("J2" & lRw).Select
  50. Selection.Copy
  51.  
  52. Windows(MainWorkfile).Activate
  53. Sheets("February 2018 Tracker (Raw)").Select
  54. lstrw = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row + 1
  55. Range("C" & lstrw).Select
  56. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  57. :=False, Transpose:=False
  58.  
  59.  
  60.  
  61. Windows(OtherWorkfile).Activate
  62. Sheets("Filtered Data").Select
  63. If ActiveWorkbook.ActiveSheet.FilterMode Or _
  64. ActiveWorkbook.ActiveSheet.AutoFilterMode Then _
  65. ActiveWorkbook.ActiveSheet.AutoFilterMode = False
  66. lRw = Range("C1048576").End(xlUp).Row
  67.  
  68. Range("N2:Q2" & lRw).Select
  69. Selection.Copy
  70.  
  71. Windows(MainWorkfile).Activate
  72. Sheets("February 2018 Tracker (Raw)").Select
  73. lstrw = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row + 1
  74. Range("D" & lstrw).Select
  75. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  76. :=False, Transpose:=False
  77.  
  78.  
  79.  
  80. Windows(OtherWorkfile).Activate
  81. Sheets("Filtered Data").Select
  82. If ActiveWorkbook.ActiveSheet.FilterMode Or _
  83. ActiveWorkbook.ActiveSheet.AutoFilterMode Then _
  84. ActiveWorkbook.ActiveSheet.AutoFilterMode = False
  85. lRw = Range("C1048576").End(xlUp).Row
  86.  
  87. Range("S2:O2" & lRw).Select
  88. Selection.Copy
  89.  
  90. Windows(MainWorkfile).Activate
  91. Sheets("February 2018 Tracker (Raw)").Select
  92. lstrw = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row + 1
  93. Range("D" & lstrw).Select
  94. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  95. :=False, Transpose:=False
  96.  
  97.  
  98.  
  99.  
  100. Application.CutCopyMode = False
  101. Application.AskToUpdateLinks = True
  102. Application.DisplayAlerts = True
  103. Application.ScreenUpdating = True
  104.  
  105. End Sub
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!