software

I have 3 Sheets; Cal, Form amp; Employee List. Employee List has /names,
startdate and classes required all in columns w/rows a1:az56 as the
quot;databasequot; list. Cal has a formula in a2 (=Form!C3 - which is a drop
down menu of Employee Names).

I want to populate the Form sheet (a select few rows and columns) based
on validation list box on Form a1 (based on database - names) and show
the classes taken - only if they have a x in the column based on the
employee name. It is now populating a single row and all the columns
and showing an x in the columns based on the name choosen.

Here's the code I have

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 3 Then
'calculate criteria cell in case calculation mode is manual
Worksheets(quot;Calquot;).Range(quot;A2quot;).Calculate
Worksheets(quot;EmployeeListquot;).Range(quot;Databasequot;) _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(quot;Calquot;).Range(quot;A1:A2quot;), _
CopyToRange:=Range(quot;a6:az6quot;), Unique:=False
End If
End Sub

I'm sure I'm doing everything wrong. I found the code and edited it my
needs. I'm hoping omeone can help me in easiest terms to get this
done.

Thank you