Auto-Populate Data From Master List to Separate Sheets When Two Criteria's Are Met

[centibttrfly]

Hi!

I started creating a database with clients registered for a program. There are three sessions. I wanted to see if there is a way to use macro to auto-populate data from a Master List holding all data onto three separate sheets(Session 1, Session 2, Session 3). From the master list when Column A (Status) says complete and Column J (session) says 1, I would like the information that corresponds with that row to be automatically updated into a separate sheet titled Session 1 and the same if the session chosen is 2 or 3.

I attached a mock database document. One saved in workbook, the other macro-enabled.

Thank you so much for taking the time to assist with this.

Greatly Appreciated.

C.

2014 Mock Database.xlsm2014 Mock Database (Workbook).xlsx

[Mumps1]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet "Master List" and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. The macro is triggered by a change in any cell in column A. This means that you must enter the data in all the other columns first and choose "Complete" last in column A.

Please Login or Register  to view this content.

[centibttrfly]

Hi Mumps1,

Thanks for taking the time to help.

After I copy and paste the code,I picked 'complete' from the drop down list in Column A on the master list and the view code page came up saying "Compile Error: Syntax Error." I clicked ok and part ** the code was highlight in red, the line before ' End If':

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Dim LastRow As Long
If Target = "Complete" Then
LastRow = Sheets("Session" & " " & Cells(Target.Row, "J")).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Target.EntireRow.Copy Sheets("Session" & " " & Cells(Target.Row, "J")).Cells(LastRow + 1, "A").End(xlUp).**fset(1, 0)
End If
End Sub

I'm not sure what I did wrong. I attached the file with the code inserted and the cells filled.

Thanks Again!
C.

2014 Mock Database.xlsm

[centibttrfly]

Greatly Appreciate it

[Mumps1]

Replace the problem line with this line:

Please Login or Register  to view this content.

I'm not sure where the asterisks came from. It was probably a typo. Make sure the macro is placed in the worksheet code module.

[centibttrfly]

Thank you, Thank you, Thank you. It worked!

[Mumps1]

My pleasure.