Data Validation Cell - Move to UserForm

T

thom hoyle

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

copyToColumn 1
CopyToselected column 0
VBA-Table Word 2019 - Move a selected text, from a cell to the adjacent cell to its right, by pressing the ENTER key 0
Advance Filter 5
Data Validation If statement moved to userform 5
Userform Combo box to mimick Worksheet Cell validation list range. 2
relative destination for advance filter results 1
Indexing/Polulating Rows 0

Top