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
