Try This
Sub WbSpliter()
Dim Sh As Worksheet, Keys, LRow As Long
Const SavePath As String = "C:\Workbook"
Set Sh = ActiveSheet
Key = Sh.Range("R2:" & Sh.Range("R2").End(xlDown).Address).Value2
Application.DisplayAlerts = False
MakeDir SavePath
For LRow = LBound(Key) To 10
Sh.UsedRange.AutoFilter field:=18, Criteria1:=Key(LRow, 1)
Sh.Cells.Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).Paste
ActiveWorkbook.Sheets(1).[a1].Select
ActiveWorkbook.SaveAs SavePath & "\" & Key(LRow, 1) & ".xlsx"
ActiveWorkbook.Close
Next
Sh.UsedRange.AutoFilter
Sh.[a1].Select
Application.DisplayAlerts = True
MsgBox "Done!"
End Sub
Pada 08/09/2013 19:20, black panther menulis:
Hi Anil,
Thanks for your help i Appreciate
On Tuesday, September 3, 2013 8:38:17 AM UTC+4, अनिल नारायण गवली wrote:
Dear Prajakt Pande,
Has it has lots of rows init. It will take nearly 5 min, so have
patients.
Warm Regards,
Gawli Anil.
Thanks & Regards,
Gawli Anil Narayan
Software Developer,
Abacus Software Services Pvt Ltd
On Tue, Sep 3, 2013 at 10:07 AM, अनिल नारायण गवली
<gawlia...@gmail.com <javascript:>> wrote:
> Dear Prajakt Pande,
>
>
> Run the Macro from view tab.
>
> Warm Regards,
> Gawli Anil
> Thanks & Regards,
> Gawli Anil Narayan
> Software Developer,
> Abacus Software Services Pvt Ltd
>
>
> On Mon, Sep 2, 2013 at 4:59 PM, black panther
<prajak...@gmail.com <javascript:>> wrote:
>> Dear Team,
>>
>>
>>
>> I have one excel sheet (attached), what I am looking for:-
>>
>>
>>
>> 01)Depend upon the “r” macro need to filter one by one. For better
>> understanding mark column in green
>>
>> 02)Copy entire data paste in to new worksheet.
>>
>> 03)Now new worksheet need to save with folder location.
>>
>>
>>
>> Note :- sample data attached.
>>
>>
>> Please help
>>
>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
wanna be? It’s
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
<https://www.facebook.com/discussexcel>
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles,
like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and
Need Advice will
>> not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any
security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum
owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the
Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from
it, send an
>> email to excel-macros...@googlegroups.com <javascript:>.
>> To post to this group, send email to excel-...@googlegroups.com
<javascript:>.
>> Visit this group at http://groups.google.com/group/excel-macros
<http://groups.google.com/group/excel-macros>.
>> For more options, visit
https://groups.google.com/groups/opt_out
<https://groups.google.com/groups/opt_out>.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and
Need Advice will not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners
and members are not responsible for any loss.
---
You received this message because you are subscribed to the Google
Groups "MS EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send
an email to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
