Create and fill worksheet of unique combination of 2 cells

[tiffanyle]

Hi,

I'm having an issue with making a macro that creates a new worksheet for every unique combination of 2 columns
(Category and procedure). All the worksheet will then have a "form" with all the columns related to that combination.

Is there anybody that can help me?

Thank you.

 

[onlyadrafter]

Hello,

Have assumed you are using Columns A and B for the combinations

Sub create_sheets()
    MY_SOURCE = ActiveSheet.Name
    For MY_ROWS = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Range("Z" & MY_ROWS).Value = Range("A" & MY_ROWS).Value & Range("B" & MY_ROWS).Value
    Next MY_ROWS
    Range("Z1").Value = "TAB"
    Range("Z1:Z5").AutoFilter
    Range("Z1:Z5").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "AA1"), Unique:=True
    For MY_SHEETS = 2 To Range("AA" & Rows.Count).End(xlUp).Row
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Sheets(MY_SOURCE).Range("AA" & MY_SHEETS).Value
    Next MY_SHEETS
    Sheets(MY_SOURCE).Select
    Columns("Z:AA").ClearContents
End Sub

Is this close to your requirements?