Subtotal ??

Sub SortAndSubTotalOnColumn4()
   Cells(1).CurrentRegion.Select
   Selection.Sort _
      Key1:=Range("A2"), Order1:=xlAscending, _
      Key2:=Range("B2"), Order2:=xlAscending, _
      Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
      Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

   Selection.Subtotal _
      GroupBy:=1, Function:=xlSum, TotalList:=Array(4), _
      Replace:=True, PageBreaks:=False, SummaryBelowData:=True

   Cells(1).Select
End Sub


On Apr 25, 6:49 pm, Sundarvelan N <nsund...@gmail.com> wrote:
> Hi Friends,
> I need a macro to sort the below excel by client and patient in
> Ascendingorder, and insert blank row between each client and
> Groos Assign column to $.
> Please help me to do this work by macro
> Thanks,
> N.Sundarvelan

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!

We reach over 6,800 subscribers worldwide and receive many nice notes about the 
learning and support from the group.Let friends and co-workers know they can 
subscribe to group at http://groups.google.com/group/excel-macros/subscribe

Reply via email to