S
Stephen
Hi Folks,
I have a sheet (Receives) that generates a dataset based on date parameters
from a different sheet (Date Selection), then subtotals column "E" of the
dataset at each change in column "A". That works like a charm.
I need to be able to copy only the subtotal rows to a third sheet but I
would like those copied rows to paste sequentially to row 1,2,3, etc. - does
that make sence?
Here is what I have so far...
Sub Receives()
ThisWorkbook.Worksheets("Receives").Select
Range("A2").Select
Selection.RemoveSubtotal
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.Outline.ShowLevels RowLevels:=3
Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
MsgBox "Operation completed successfully."
End Sub
I would like to have code prior to the Msgbox that would copy subtotals to
sheet three.
TIA!
I have a sheet (Receives) that generates a dataset based on date parameters
from a different sheet (Date Selection), then subtotals column "E" of the
dataset at each change in column "A". That works like a charm.
I need to be able to copy only the subtotal rows to a third sheet but I
would like those copied rows to paste sequentially to row 1,2,3, etc. - does
that make sence?
Here is what I have so far...
Sub Receives()
ThisWorkbook.Worksheets("Receives").Select
Range("A2").Select
Selection.RemoveSubtotal
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.Outline.ShowLevels RowLevels:=3
Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
MsgBox "Operation completed successfully."
End Sub
I would like to have code prior to the Msgbox that would copy subtotals to
sheet three.
TIA!