Divide sheet1 rows into different sheets with criteria from collumn?

[paddingtonbear]

Is there any way to CTRL+V random data in Sheet "Klistra in här". And have a macro that reads Collumn A1. Each name it finds that are unique, populate the name in Sheet "Assigned to".
In Sheet "Assigned to" i have a Excel formula that creates a new Sheet for each name from collumn A1. And then read all rows from Sheet "Klistra in här" into all new Sheets containing those names from A1.

Summare:
In 2nd picture i have a formula with a green big button that reads each name from A1 to A15. And when pressed it creates a new Sheet with each name. This already works.
But i need to take data rows with each name and copy rows to the new created Sheets.


Would be really helpful if this is possible to do

 

[mumps]

Do you simply want to create a new sheet for each unique name in column A of sheet "Klistra in här" and copy each person's data in columns B to F to each new sheet? If this is what you want, there is no need for the "Assigned to" sheet unless it serves a different purpose.

 

[paddingtonbear]

Do you simply want to create a new sheet for each unique name in column A of sheet "Klistra in här" and copy each person's data in columns B to F to each new sheet? If this is what you want, there is no need for the "Assigned to" sheet unless it serves a different purpose.

Exactly this mr. mumps !
Hm okay because sometime in the future i might apply alot of different dates aswell. And then i would like a page to exist still like Sheet "Assigned to" where i can exclude names or dates more easily visually.

I already created a macro that applies my preferred print settings and excluded my main source Sheet. So the only thing i cant figure out how to do is the thing you questioned would you be able to help me someday when you got time perhaps. I am no programmer just trying to automate stuff. Tried reading other threads but didnt get those codes to work with my needs or at all without debug errors all over the place. Using Excel office 365 license.

 

[mumps]

I noticed that in your "Klistra in här" sheet the data starts in row 1. In order for the macro below to work properly, you will need to insert a header row so that the data starts in row 2. Before running the macro, please insert the header row and enter the column headers in row 1.

Sub CreateSheets()
    Application.ScreenUpdating = False
    Dim LastRow As Long, i As Long, srcWS As Worksheet
    Set srcWS = Sheets("Klistra in här")
    Dim v As Variant
    v = srcWS.Range("A2", srcWS.Range("A" & Rows.Count).End(xlUp))
    With CreateObject("scripting.dictionary")
        For i = LBound(v) To UBound(v)
            If Not .exists(v(i, 1)) Then
                .Add v(i, 1), Nothing
                With srcWS
                    .Range("A1").AutoFilter 1, v(i, 1)
                    .AutoFilter.Range.Offset(1).Copy
                    Sheets.Add after:=Sheets(Sheets.Count)
                    With ActiveSheet
                        .Name = v(i, 1)
                        .Cells(.Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial
                    End With
                End With
            End If
        Next i
    End With
    srcWS.Range("A1").AutoFilter
    Application.ScreenUpdating = True
End Sub

 

[paddingtonbear]

I noticed that in your "Klistra in här" sheet the data starts in row 1. In order for the macro below to work properly, you will need to insert a header row so that the data starts in row 2. Before running the macro, please insert the header row and enter the column headers in row 1.

Sub CreateSheets()
    Application.ScreenUpdating = False
    Dim LastRow As Long, i As Long, srcWS As Worksheet
    Set srcWS = Sheets("Klistra in här")
    Dim v As Variant
    v = srcWS.Range("A2", srcWS.Range("A" & Rows.Count).End(xlUp))
    With CreateObject("scripting.dictionary")
        For i = LBound(v) To UBound(v)
            If Not .exists(v(i, 1)) Then
                .Add v(i, 1), Nothing
                With srcWS
                    .Range("A1").AutoFilter 1, v(i, 1)
                    .AutoFilter.Range.Offset(1).Copy
                    Sheets.Add after:=Sheets(Sheets.Count)
                    With ActiveSheet
                        .Name = v(i, 1)
                        .Cells(.Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial
                    End With
                End With
            End If
        Next i
    End With
    srcWS.Range("A1").AutoFilter
    Application.ScreenUpdating = True
End Sub

Thank you so much. I tested this script today in my "setup", and it works just as desired. Only thing is if its possible to copy Headers from sheet "Klistra in här" to all documents also.
Or i might have to look into making a code line inside the Excel workbook that adjusts this from source sheet after Macro has run and places Headers inside A1 row if this is not possible?

 

[mumps]

Replace this line of code:

.AutoFilter.Range.Offset(1).Copy

with this one:

.AutoFilter.Range.Copy