Filter and split data in to workbook as per Unique list in Source workbook

[Chandrakant]

Need a vba to Filter Source workbook data and split in to workbook as per Unique list in Source workbook.

Have attached the source and output files for your reference.

 

[Marc L]

Do you really need the Output workbooks with original VBA procedures or must be saved as data only without containing any code ?​

​

 

[Chandrakant]

I need it without containing any code

 

[Marc L]

In the source workbook, do you really need the worksheet 'UniqueList' ?​

As the VBA procedure can get rid of this worksheet or if you want to keep it then only the names from this list will be exported …​

​

 

[Chandrakant]

Sorry for the late reply , no I dont need the Unique list after the workbooks are exported.

 

[Marc L]

As my question was do you need it before ?!​

If yes, the VBA procedure will export only the names from this list and​

if no this worksheet can be deleted, any name will be exported …​

​

 

[Chandrakant]

Delete the unique list after export

 

[Marc L]

According to your attachment an Excel basics VBA demonstration to paste only to ThisWorkbook module of Source.xlsb workbook :​

Sub Demo1()
    Dim V, W, Ws As Worksheet
        V = Evaluate("TRANSPOSE(ROW(1:" & Sheet2.Index - 1 & "))")
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    For Each W In Sheet2.UsedRange
        Worksheets(V).Copy
    For Each Ws In ActiveWorkbook.Worksheets
        With Ws.[A2].CurrentRegion.Rows("2:" & Ws.[A2].CurrentRegion.Rows.Count)
           .Columns(1).AutoFilter 1, "<>" & W
            If Application.Subtotal(103, .Columns(1)) > 1 Then .Item("2:" & .Count).Delete
           .AutoFilter
        End With
    Next
        ActiveWorkbook.SaveAs Path & "\Output - " & W, 50
        ActiveWorkbook.Close
    Next
        .Speech.Speak "Done!", True
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[Chandrakant]

The vba gives error while saving the file.

ActiveWorkbook.SaveAs Path & "\Output - " & W, 50

have attached the error screenshot for your reference.

 

[Chandrakant]

Mine is MS office 2010

 

[Marc L]

As I wrote « According to your attachment » my VBA demonstration well works under my Excel 2010 version​

but in my previous post I forgot to warn it works only with good enough readers​

so maybe you felt into the bad reader trap if you did not well read the direction to follow as your picture does not show​

if the VBA procedure is located where it must be and which codeline raises the error …​

​

 

[Chandrakant]

Thank a lot it works superbly, I was my mistake I pasted it in new module instead of This workbook