| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert and sum in empty cell
Hi,
I need help in writing the macro to do the following: After sorting by column R, I need to insert a line between the groups, and then sum the total of column M for both groups (see below) Column M Column R 14.50 03COM 14.50 03COM 14.50 03COM 14.50 03COM 58.00 <------------- 14.50 05IT 14.50 05IT 29.00 <-------------- Can you please help me? Thanks! |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Insert and sum in empty cell
Take a look at Data Subtotals and follow the menus........
Vaya con Dios, Chuck, CABGx3 "salsal" wrote: Hi, I need help in writing the macro to do the following: After sorting by column R, I need to insert a line between the groups, and then sum the total of column M for both groups (see below) Column M Column R 14.50 03COM 14.50 03COM 14.50 03COM 14.50 03COM 58.00 <------------- 14.50 05IT 14.50 05IT 29.00 <-------------- Can you please help me? Thanks! |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Insert and sum in empty cell
Thanks! That's good! But I need this to be written in a macro in order
to use it in other workbooks. thx! CLR wrote: Take a look at Data Subtotals and follow the menus........ Vaya con Dios, Chuck, CABGx3 "salsal" wrote: Hi, I need help in writing the macro to do the following: After sorting by column R, I need to insert a line between the groups, and then sum the total of column M for both groups (see below) Column M Column R 14.50 03COM 14.50 03COM 14.50 03COM 14.50 03COM 58.00 <------------- 14.50 05IT 14.50 05IT 29.00 <-------------- Can you please help me? Thanks! |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Insert and sum in empty cell
Try this............
Sub SubtotalColumnM() Application.DisplayAlerts = False Columns("M:R").Select Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(1, 6), _ Replace:=True, PageBreaks:=False, SummaryBelowData:=True Range("Q12").Select Application.DisplayAlerts = True End Sub Vaya con Dios, Chuck, CABGx3 "salsal" wrote in message oups.com... Thanks! That's good! But I need this to be written in a macro in order to use it in other workbooks. thx! CLR wrote: Take a look at Data Subtotals and follow the menus........ Vaya con Dios, Chuck, CABGx3 "salsal" wrote: Hi, I need help in writing the macro to do the following: After sorting by column R, I need to insert a line between the groups, and then sum the total of column M for both groups (see below) Column M Column R 14.50 03COM 14.50 03COM 14.50 03COM 14.50 03COM 58.00 <------------- 14.50 05IT 14.50 05IT 29.00 <-------------- Can you please help me? Thanks! |
|
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Insert and sum in empty cell
Great! Thanks!
CLR wrote: Try this............ Sub SubtotalColumnM() Application.DisplayAlerts = False Columns("M:R").Select Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(1, 6), _ Replace:=True, PageBreaks:=False, SummaryBelowData:=True Range("Q12").Select Application.DisplayAlerts = True End Sub Vaya con Dios, Chuck, CABGx3 "salsal" wrote in message oups.com... Thanks! That's good! But I need this to be written in a macro in order to use it in other workbooks. thx! CLR wrote: Take a look at Data Subtotals and follow the menus........ Vaya con Dios, Chuck, CABGx3 "salsal" wrote: Hi, I need help in writing the macro to do the following: After sorting by column R, I need to insert a line between the groups, and then sum the total of column M for both groups (see below) Column M Column R 14.50 03COM 14.50 03COM 14.50 03COM 14.50 03COM 58.00 <------------- 14.50 05IT 14.50 05IT 29.00 <-------------- Can you please help me? Thanks! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Linear Mode
