Automatically split accounts Num

[vask0]

Hello I want to ask some have an idea..? how can i split these numbers automatically from the picture? with a script or no other idea ..

The idea is not to remove them manually one by one.

The idea is not to manually pull them out one by one, that sometimes there are a lot of accounts, and I have to download them manually and save them, thus hitting a lot of time. If there is any option at the end of it all will happen automatically or I will be more than happy to share a trick or a forum to do this thing ..

10!!!

 

[vask0]

some ideas...?

 

[Fluff]

Hi & welcome to the board.
Is this what you want

Sub CopyData()

   Dim Ws1 As Worksheet
   Dim cl As Range
   
   Set Ws1 = Sheets("[COLOR=#ff0000]SalesRepData[/COLOR]")
   
   If Ws1.AutoFilterMode Then Ws1.AutoFilterMode = False
   With CreateObject("scripting.dictionary")
      For Each cl In Ws1.Range("A2", Ws1.Range("A" & Rows.Count).End(xlUp))
         If Not .exists(cl.Value) Then
            .Add cl.Value, Nothing
            Ws1.Range("A1").AutoFilter 1, cl.Value
            Worksheets.Add.Name = cl.Value
            Ws1.UsedRange.SpecialCells(xlVisible).Copy Range("A1")
         End If
      Next cl
   End With
   Ws1.AutoFilterMode = False
      
End Sub

Change sheet name in red to suit

 

[vask0]

Hi & welcome to the board.
Is this what you want

Sub CopyData()

   Dim Ws1 As Worksheet
   Dim cl As Range
   
   Set Ws1 = Sheets("[COLOR=#ff0000]SalesRepData[/COLOR]")
   
   If Ws1.AutoFilterMode Then Ws1.AutoFilterMode = False
   With CreateObject("scripting.dictionary")
      For Each cl In Ws1.Range("A2", Ws1.Range("A" & Rows.Count).End(xlUp))
         If Not .exists(cl.Value) Then
            .Add cl.Value, Nothing
            Ws1.Range("A1").AutoFilter 1, cl.Value
            Worksheets.Add.Name = cl.Value
            Ws1.UsedRange.SpecialCells(xlVisible).Copy Range("A1")
         End If
      Next cl
   End With
   Ws1.AutoFilterMode = False
      
End Sub

Change sheet name in red to suit

Hi and congratulations on the good forum!!!

where do I need to write the code you provided me to try if it would work out

 

[Fluff]

Put it in a standard module.
Have a look here for more info https://www.ablebits.com/office-addins-blog/2013/12/06/add-run-vba-macro-excel/

 

[vask0]

Put it in a standard module.
Have a look here for more info https://www.ablebits.com/office-addins-blog/2013/12/06/add-run-vba-macro-excel/

Thank you very much will inform with result

 

[vask0]

I have asked this name in red with what name to replace it ..? with the file name or ..?

Set Ws1 = Sheets("SalesRepData")

 

[Fluff]

The name of the sheet containing your data

 

[vask0]

The name of the sheet containing your data

that is, the name of the excel file.. that is, as I have named the excel file.?

 

[vask0]

because I want to scatter them to different files and not to sheeat...