'SHEET1 TO MANY SHEETS
Here's a macro for parsing rows of data from one sheet to many sheets named for the same values.It not only can parse the rows, it can create the sheets if they are missing. There is a sample sheet there where you can test this out.
==============
I tweaked this code a little so that you can call it multiple times and feed in a different "column to parse by (vCol)" each time.
Then I added a macro to run the ParseItems macro twice, once for column E and once for column I, then a separate routine to move all the completed items to an appropriately named sheet.
Option Explicit
Sub UpdateCreateSheets()
Dim LR As Long, NR As Long
ParseItems (5)
ParseItems (9)
With Sheets("Master Sheet")
.Rows(1).AutoFilter
.Rows(1).AutoFilter Field:=29, Criteria1:="<>"
LR = .Range("AC" & .Rows.Count).End(xlUp).Row
If LR > 1 Then
NR = Sheets("Complete").Range("AC" & Rows.Count).End(xlUp).Row + 1
.Range("A2:A" & LR).EntireRow.Copy _
Sheets("Complete").Range("A" & NR)
.Range("A2:A" & LR).EntireRow.Delete xlShiftUp
End If
.AutoFilterMode = False
End With
End Sub
With the button on the Master Sheet, it will create the sheets and parse the data as needed, and move the completed items each time you press the button.
Bookmarks