Multidependent dropdown with multiselect [closed] - excel

Question

Closed. This question needs details or clarity. It is not currently accepting answers.
Want to improve this question? Add details and clarify the problem by editing this post.
Closed 2 years ago.
Improve this question
I want to create multi dependent drop-down list( 3 dependent Dropdown ). I am able to create using data validation using formula =INDIRECT() But I am able to apply it for only one cell rather then I want to apply it for a range or for whole column. I want to use Macro(Vba code) to achieve this scenario.
Let say First drop-down contains Countries and second dependent dropdown contains States and third dependent dropdown contains Cities and the Cities dropdown should be multi select with "," seperation. I am able to achieve this using data list and formulas But i want to create it using VBA code. I want to give dropdown list in code itself and apply each dependent dropdown for range(column).
Click to view Screenshot 1
Click to view Screenshot 2
Click to view Screenshot 3
Click to view Screenshot 4

Answer 1

Try the next approach, please:
Copy the next code in a standard module. It will create (In cell "G1") the first Validation (States/Countries):
Sub CreateValidationTest()
Dim sh As Worksheet, rng As Range, strMerge As String, statesList As String
Dim lastColLet As String
Set sh = ActiveSheet 'use here your sheet to be processed
Set rng = sh.Range("G1") 'use here the range where you need to create the Validation
If Range("A1").MergeCells Then 'check if "A1" is part of a merged cells area
strMerge = Range("A1").MergeArea.Address
Else
MsgBox "No merge cells starting with ""A1""!": Exit Sub
End If
'create states list:_________________________________________________________________
lastColLet = Split(strMerge, "$")(3)
statesList = Join(Application.Index(Range("A2:" & lastColLet & 2).Value, 1, 0), ",")
'___________________________________________________________________________________
With rng.Validation 'create Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=statesList
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
End Sub
Copy the following event in the sheet module where the data to be processed exists (right click on the sheet name -> View code):
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range, oldVal As String, newVal As String
Dim arr As Variant, El As Variant
If Target.count > 1 Then GoTo exitHandler
If Target.Address(0, 0) = "G1" Then
'create the second validation
Dim stCell As Range, lastRow As Long, listValid As String
Set stCell = rows(2).Find(what:=Target.Value, LookIn:=xlValues, Lookat:=xlWhole)
If stCell Is Nothing Then Exit Sub
lastRow = cells(rows.count, stCell.Column).End(xlUp).row
'Debug.Print Range(stCell.Offset(1), cells(lastRow, stCell.Column)).Address: Stop
listValid = Join(Application.Transpose(Application.Index(Range(stCell.Offset(1), cells(lastRow, stCell.Column)).Value, 0, 1)), ",")
Application.EnableEvents = False
With Range("H1").Validation 'create the second Validation for Cities
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=listValid
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
Range("H1").Value = ""
ElseIf Target.Address(0, 0) = "H1" Then
Application.EnableEvents = False
newVal = Target.Value: Application.Undo
oldVal = Target.Value: Target.Value = newVal
If oldVal <> "" Then
If newVal <> "" Then
arr = Split(oldVal, ",")
For Each El In arr
If El = newVal Then
Target.Value = oldVal
GoTo exitHandler
End If
Next
Target.Value = oldVal & "," & newVal
Target.EntireColumn.AutoFit
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
How to be used:
a. You firstly must run the CreateValidationTest Sub and then play with its validation list.
b. You must know that the first validation will be created in "G1" and the second one in "H1". The code will not allow to select an already existing item (in the string separated by comma).