Data Validation Cell - Move to UserForm
 

I'm using Data Validation in a cell that creates a dropdown list. Then it
populates below it based on my selection:
Code:
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("ProductsList").Range("G2").Calculate
Worksheets("ProductsList").Range("Database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("ProductsList").Range("G1:G2 "), _
CopyToRange:=Range("B6:C6"), Unique:=False
End If
End Sub

I don't know how to move this onto a userform to work.

The Userform I currently use has several combo Boxes, Text Boxes.. etc...
The user must first select the DataValidation prior to opening the UserForm..
I would like to combine this into the UserForm to elimate the extra Step...

thanks
thomas