changing validation drop down based on another cell value

[pawlingJohn]

I need to change the drop-down list in a validation based on what is entered
in another cell. The other cell will be a vendor name and the list should be
product codes for that vendor.

thanks

 

[john]

have a look at this site.
http://www.contextures.com/xlDataVal02.html

 

[Don Guillett]

If you want to change the LIST in data validation in cell a3 based on what
changes in cell a2, use this with NAMED ranges for your lists. Right click
sheet tab>insert this.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
With Range("a3").Validation
'delete those not needed
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=" & Range("a2") '"list1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
End Sub

 

[pawlingJohn]

thanks yet again guys i got what i needed

If you want to change the LIST in data validation in cell a3 based on what
changes in cell a2, use this with NAMED ranges for your lists. Right click
sheet tab>insert this.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
With Range("a3").Validation
'delete those not needed
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=" & Range("a2") '"list1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[Don Guillett]

Which was?

 

[pawlingJohn]

a P.O. form that changes product dropdown menus depending on who your
ordering from.

This Discussion Group is great