JAti
New Member
- Joined
- Aug 21, 2024
- Messages
- 1
- Office Version
- 365
- Prefer Not To Say
- Platform
- Windows
Hi Everyone,
I would like to insert a "few" step(s) to my Recorded Macro, where the Weekly Data amount will be copyed to an other sheet (That should be an other Workbook, but first i would like to understand that step first)
What i need is always the last 6 rows and 8 columns.
-As a first step i would like to choose any cell to make sure that i am on the right sheet
-find the last row
-select 7 colums to the right and 5 rows up
Sheets("Sheet1").Select
Range("A200").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.End(xlDown).Select
ActiveCell.Offset(7, -5).Copy (So i need that step here to be choosen in this week A206:H211 but next week should be a different range)
Sheets("OtherSheet1").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("AXI-Auswertung").Select
is it possible somehow?
Thanks for any hints!
I would like to insert a "few" step(s) to my Recorded Macro, where the Weekly Data amount will be copyed to an other sheet (That should be an other Workbook, but first i would like to understand that step first)
What i need is always the last 6 rows and 8 columns.
-As a first step i would like to choose any cell to make sure that i am on the right sheet
-find the last row
-select 7 colums to the right and 5 rows up
Sheets("Sheet1").Select
Range("A200").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.End(xlDown).Select
ActiveCell.Offset(7, -5).Copy (So i need that step here to be choosen in this week A206:H211 but next week should be a different range)
Sheets("OtherSheet1").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("AXI-Auswertung").Select
is it possible somehow?
Thanks for any hints!