Macro for splitting separate files.

[Santhi28595]

Hi Team,

I am new to this forum and I am learning Excel codes in VB. I am just a fresher and require your guidance in developing the below requirement.

I work in a customer service industry and doing MISS for all customers. The requirement is that each day I will have to manually save separate excel sheet with a client name and individually mail them.
This activity gets. Repeated again and again and I am spending one hour for this activity.

How do I group is that I will concatenate both customer code and customer name, then sort by concatenate and group the same customer and copy them and paste to a new sheet and save them in a drive.(you can refer status in Column E in my attached sheet.

Then if we do not have mutiple customer I will have to create a separate sheet for the reamining ones.

So can anyone help to create to automatically group the customers and split them into new sheets and save them with customer name. So once the file gets generated, we need to send mails from the same sheet.

The documents with customer name should be split with the header title and corresponding row of that customer name.

Your assistance is greatly appreciated !!!!

[Pepe Le Mokko]

In the future please limit your title to a description of what you are trying to do
"Need help", "assistance required",etc... are not needed, as that is why one posts on the forum.
I corrected it for you this time

[Santhi28595]

Sorry I will correct next time.

Thank you

[Pepe Le Mokko]

No problem - Thanks

[Santhi28595]

No problem - Thanks

Can you help me in creating the macro please !!!

[Pepe Le Mokko]

Administrative Note:

We don't expect you to bump threads more than once in 24 hours - it has been only 5-6 hours since you posted. Please remember that those who help here do so voluntarily and of their own goodwill. They live in many different time zones and many will be out at work right now if they are not asleep on the other side of the globe. This is not a paid 'service': members will help when they are ready and able to do so, and not 'on demand'. Please do not try to put pressure of time on anyone here: if you get the help you need today, that's fine, but you really should not count on it. Thanks for your understanding and patience.

[Santhi28595]

Hi - Noted and thanks

[Santhi28595]

Dear friends,

Can anyone please help me. It's a request please..

[Santhi28595]

Hi I just found the below code from this forum. Can anyone please help me to.modify this code to my criteria.

Sub CreateFiles()
Application.ScreenUpdating = False
Dim LastRow As Long, srcWB As Workbook, srcWS As Worksheet, RngList As Object, key As Variant
Set srcWB = ThisWorkbook
Set srcWS = srcWB.Sheets("Page")
LastRow = srcWS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With srcWS.Sort
.SortFields.Clear
.SortFields.Add key:=srcWS.Range("A2:A" & LastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange srcWS.Range("A2:F" & LastRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Set RngList = CreateObject("Scripting.Dictionary")
For Each Rng In srcWS.Range("A3", srcWS.Range("A" & srcWS.Rows.Count).End(xlUp))
If Not RngList.Exists(Rng.Value) Then
RngList.Add Rng.Value, Nothing
End If
Next
For Each key In RngList
With srcWS.Cells(1, 1).CurrentRegion
Sheets(Array("Cover", "Intro", "Page")).Copy
With Sheets(3).Cells(1, 1)
.AutoFilter 1, "<>" & key
.Range("A3:K" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter
End With
.AutoFilter
End With
With ActiveWorkbook
.SaveAs srcWB.Path & Application.PathSeparator & "Category " & key & ".xlsb", FileFormat:=50
.Close False
End With
Next key
Application.ScreenUpdating = True
End Sub