Try :
Sub Parse()
Dim Rg As Range, c As Range, Dict As Object, Rg1 As Range
Dim inCalculationMode As Integer
Application.ScreenUpdating = False
inCalculationMode = Application.Calculation
Application.Calculation = xlCalculationManual
Set Dict = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
Set Rg = Range(.[A1], .Cells(.Rows.Count, 13).End(xlUp))
For Each c In Range(.[M2], .Cells(.Rows.Count, 13).End(xlUp))
If Not Dict.exists(c.Value) Then Dict.Add c.Value, c.Value
For Each Item In Dict.items
Rg.AutoFilter
Next Item
Next c
For Each Item In Dict.items
Rg.AutoFilter
Rg.AutoFilter 13, Item
Set Rg1 = Rg.Resize(, 12)
Set Rg1 = Rg1.SpecialCells(xlCellTypeVisible)
Workbooks.Add 1
Rg1.Copy [B3]
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Item & ".xls"
ActiveWorkbook.Close
Next Item
End With
Set Dict = Nothing
Rg.AutoFilter
Application.Calculation = inCalculationMode
Application.ScreenUpdating = True
End Sub
You only have to add date to the name of each workbook. I didn’t to it cause
incompability of dates system.
HTH
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Brajesh Kumar Porwal
Envoyé : jeudi 11 août 2011 11:43
À : excel-macros@googlegroups.com
Objet : Re: $$Excel-Macros$$ Split data order wise New Excel workbook
Hi Danial,
You can see 14 order names in file of ‘Total order data’ then I want to
order wise split data. For example output file of
“BIIF_0811_0911_D_ShLead_1”. Similarly I want to 14 files just click in
macro. Because I have spent lot time copy paste.
--
--
One Team One Dream One Goal
Warm Regards,
Brajesh Kumar Porwal
E-Mail :- brajeshkumarpor...@gmail.com
7503020750,
"We can't Spell S_ccess without U"
Life is Very beautiful !!!
¨`•.•´¨) Always
`•.¸(¨`•.•´¨) Keep
(¨`•.•´¨)¸.•´ Smiling!
`•.¸.•´.
On Thu, Aug 11, 2011 at 1:49 PM, Daniel <dcolarde...@free.fr> wrote:
Hi,
Can you explain a bit more ? there are 2 workbooks in your archive.
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Brajesh Kumar Porwal
Envoyé : jeudi 11 août 2011 08:50
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Split data order wise New Excel workbook
Hi Expert,
I urgent need your help, because i want to create macro for split data. I
have more data in excel workbook so I want to split data order wise New
Excel workbook. Please find enclose example file.
--
--
One Team One Dream One Goal
Warm Regards,
Brajesh Kumar Porwal
E-Mail :- brajeshkumarpor...@gmail.com
7503020750,
"We can't Spell S_ccess without U"
Life is Very beautiful !!!
¨`•.•´¨) Always
`•.¸(¨`•.•´¨) Keep
(¨`•.•´¨)¸.•´ Smiling!
`•.¸.•´.
--
----------------------------------------------------------------------------
------
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
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------
------
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
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------
------
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
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
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
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
