rfletcher35
Active Member
- Joined
- Jul 20, 2011
- Messages
- 300
- Office Version
- 365
- Platform
- Windows
Hi guys I have the following routine
ActiveSheet.Range("$A$3:$J$10000").AutoFilter Field:=9, Criteria1:=Array("=" _
), Operator:=xlFilterValues, Criteria2:=Array(1, "1/31/2021")
Range("M1").Select
Selection.Copy
Sheets("The Omerta Group").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
This routine filters on column 9 for January, copies a subtotal figure M1, then goes to another sheet and pastes that information for me into a required cell C2.
This repeats for Feb - Dec and pastes the detail in then next cell down on the other sheet, C3, C4, C5.......
As you can imagine this routine occurs 12 time and I was wondering if someone knew of a way to condense all this?
I ask as I also need to add this routine for around 6 or 7 sheets for other company names
Thanks
Fletch
ActiveSheet.Range("$A$3:$J$10000").AutoFilter Field:=9, Criteria1:=Array("=" _
), Operator:=xlFilterValues, Criteria2:=Array(1, "1/31/2021")
Range("M1").Select
Selection.Copy
Sheets("The Omerta Group").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
This routine filters on column 9 for January, copies a subtotal figure M1, then goes to another sheet and pastes that information for me into a required cell C2.
This repeats for Feb - Dec and pastes the detail in then next cell down on the other sheet, C3, C4, C5.......
As you can imagine this routine occurs 12 time and I was wondering if someone knew of a way to condense all this?
I ask as I also need to add this routine for around 6 or 7 sheets for other company names
Thanks
Fletch