more than one multiple select pick-list on one worksheet

brandme

New Member
Joined
Feb 23, 2018
Messages
2
How do I get more than one multiple pick-lists to work on the same worksheet?
Not looking for help with related/dependant pick-lists.

I copied some basic vba code for creating a multiple select pick-list and it worked just fine.
But I want to have more than one multiple select pick-list on one worksheet.
example:
column B has a multiple select pick-list of one, two three

column D has a multiple select pick-list of dog, cat, cow

column G has a multiple select pick-list of red, yellow, green

the three pick-lists are not related/dependent on each other.

I thought there would be a way in the code to say, for this column do this, for this column do this...but did not see anything I thought would work

thanks

 

Excel Facts

Create a chart in one keystroke
Select the data and press Alt+F1 to insert a default chart. You can change the default chart to any chart type
You said:
one multiple pick-lists

Do you mean a data validation list?

I have never heard the term:
multiple pick-lists

Show me the code you have.
 
Upvote 0
VBA code for to more than one multiple selection drop-down list on same worksheet?

I am having trouble trying to have more than one multiple selection drop-down lists on the same worksheet.

The VBA code I have works for ONE multiple selection drop-down list. But I didn't see a way to alter or add code so that I can have more than one multiple selection drop down lists on the same worksheet?

One worksheet I am working on would have at least 5 separate multiple selection drop-down lists on the same worksheet.



Private Sub Worksheet_Change(ByVal Target As Range)


Dim Oldvalue As String
Dim Newvalue As String


On Error GoTo Exitsub
If Target.Column = 12 Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
Target.Value = Oldvalue & ", " & Newvalue
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub
 
Upvote 0
Cross posted https://www.excelforum.com/excel-pr...lection-drop-down-list-on-same-worksheet.html

Cross-Posting
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.
 
Upvote 0

Forum statistics

Threads
1,224,823
Messages
6,181,181
Members
453,022
Latest member
Mohamed Magdi Tawfiq Emam

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top