API tools faq
paste
Guest User

Untitled

a guest
Jun 18th, 2018
77
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.72 KB | None | 0 0
raw download clone embed print report
  1. Sub jv()
  2. '
  3. ' jv Macro
  4. '
  5. '
  6. ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],F_MRG_TM_06062018_02.CSV!C2:C5,4,0)"
  7. Range("K2").Select
  8. ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-9],F_MRG_TM_06062018_02.CSV!C2:C8,7,0)"
  9. Range("J2:K2").Select
  10. Selection.Copy
  11. Range("H2").Select
  12. Selection.End(xlDown).Select
  13. Range("J7536").Select
  14. Range(Selection, Selection.End(xlUp)).Select
  15. Selection.SpecialCells(xlCellTypeVisible).Select
  16. ActiveSheet.Paste
  17. Windows("F_MRG_TM_06062018_02.CSV").Activate
  18. Windows("CONSOLIDATED JV FILE FOR THE DATE 06-06-201811 W.xlsx").Activate
  19. Application.CutCopyMode = False
  20. Selection.Copy
  21. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  22. :=False, Transpose:=False
  23. Range("J7535").Select
  24. Selection.End(xlUp).Select
  25. Application.CutCopyMode = False
  26. Range("M2").Select
  27. Windows("F_MRG_TM_06062018_02.CSV").Activate
  28. Windows("CONSOLIDATED JV FILE FOR THE DATE 06-06-201811 W.xlsx").Activate
  29. Windows("X_MRG_TM_06062018_02.CSV").Activate
  30. Windows("CONSOLIDATED JV FILE FOR THE DATE 06-06-201811 W.xlsx").Activate
  31. ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-11],X_MRG_TM_06062018_02.CSV!C2:C5,4,0)"
  32. Range("N2").Select
  33. ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-12],X_MRG_TM_06062018_02.CSV!C2:C8,7,0)"
  34. Range("M2:N2").Select
  35. Selection.Copy
  36. Range("K2").Select
  37. Selection.End(xlDown).Select
  38. Range("M7536").Select
  39. Range(Selection, Selection.End(xlUp)).Select
  40. Selection.SpecialCells(xlCellTypeVisible).Select
  41. ActiveSheet.Paste
  42. Range("M7535").Select
  43. Selection.End(xlUp).Select
  44. Application.CutCopyMode = False
  45. Range("P2").Select
  46. Windows("MCX_MARGIN_20180606_ W.xlsx").Activate
  47. Windows("CONSOLIDATED JV FILE FOR THE DATE 06-06-201811 W.xlsx").Activate
  48. ActiveCell.FormulaR1C1 = _
  49. "=VLOOKUP(RC[-14],'[MCX_MARGIN_20180606_ W.xlsx]MCX_MARGIN_20180606_'!C3:C4,2,0)"
  50. Range("P2").Select
  51. Selection.Copy
  52. Range("N2").Select
  53. Selection.End(xlDown).Select
  54. Range("P7536").Select
  55. Range(Selection, Selection.End(xlUp)).Select
  56. Selection.SpecialCells(xlCellTypeVisible).Select
  57. ActiveSheet.Paste
  58. Range("P7535").Select
  59. Selection.End(xlUp).Select
  60. Range("S1").Select
  61. Application.CutCopyMode = False
  62. Range("R2").Select
  63. Windows("00220_MGN_06062018100042 W.xlsx").Activate
  64. Windows("CONSOLIDATED JV FILE FOR THE DATE 06-06-201811 W.xlsx").Activate
  65. ActiveCell.FormulaR1C1 = _
  66. "=VLOOKUP(RC[-16],'[00220_MGN_06062018100042 W.xlsx]00220_MGN_06062018100042'!C3:C4,2,0)"
  67. Range("R2").Select
  68. Selection.Copy
  69. Range("P2").Select
  70. Selection.End(xlDown).Select
  71. Range("R7536").Select
  72. Range(Selection, Selection.End(xlUp)).Select
  73. Selection.SpecialCells(xlCellTypeVisible).Select
  74. ActiveSheet.Paste
  75. Range("R7535").Select
  76. Selection.End(xlUp).Select
  77. Range("R2").Select
  78. Application.CutCopyMode = False
  79. Application.ScreenUpdating = False
  80. Application.Calculation = xlCalculationManual
  81. Application.DisplayStatusBar = False
  82. 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!