Dear Siti, Thanks a lot
Best Regards, Venkat On Fri, Sep 24, 2010 at 3:47 PM, siti Vi <villager.g...@gmail.com> wrote: > Sub splittabel() > ' siti Vi / jakarta, 24 sept 2010 > Dim RefTbl As Range > Dim DesTbl As Range > Dim sNames As String, ArrNames > Dim r As Long, n As Long, i As Long, c As Integer > > Set RefTbl = Sheets("RAW Data").Cells(1, 1).CurrentRegion > > ' creating unique list of Names > For r = 2 To RefTbl.Rows.Count > If InStr(1, sNames, RefTbl(r, 6) & "|") = 0 Then > sNames = sNames & RefTbl(r, 6) & "|" > End If > Next > ArrNames = Split(sNames, "|") > > ' creating new sheet/table > For i = LBound(ArrNames) To UBound(ArrNames) - 1 > Sheets.Add after:=Sheets(Sheets.Count) > ActiveSheet.Name = ArrNames(i) > RefTbl.Resize(1, RefTbl.Columns.Count).Copy ActiveSheet.Range("A1") > n = 1 > For r = 2 To RefTbl.Rows.Count > If RefTbl(r, 6) = ArrNames(i) Then > n = n + 1 > RefTbl(r, 1).Resize(1, RefTbl.Columns.Count).Copy > Cells(n, 1).PasteSpecial xlPasteValuesAndNumberFormats > End If > Next r > Application.CutCopyMode = False > Next i > > End Sub > > > > On Thu, Sep 23, 2010 at 5:03 PM, Venkatesan c <venkat1....@gmail.com>wrote: > >> Dear Group, >> >> I have attached file containes data i want to split based on *Exe Name* In >> Muliple sheets by using macro's i have attached sample data & Required data >> also. >> Best Regards, >> *Venkat* > > > -- > > ---------------------------------------------------------------------------------- > 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 7000 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 > -- ---------------------------------------------------------------------------------- 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 7000 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