Hi,
I need experts support.
In userform there are 7 combo boxes and each combo box values from Common from Cell A1:A.
Cell A1:A Values are
Peter
Micheal
Nick
Jump
Mary
Catherine
.....
.....
.....
etc.,
My question is When I selected 1st combo box value = "Peter" and then all other 6 combo boxes not display the "Peter". and When Selected 2nd Combo box = "Micheal" then other 5 combo boxes not display the "Micheal".
my Code is,
Private Sub UserForm_Initialize()
Dim f
With Worksheets("Name")
f = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
End With
For i = 1 To 7
With Me("cboname" & i & "N") ' Combo box names are cboname1N, cboname2N, ...
.BoundColumn = 0
.TextColumn = 1
.ColumnCount = 1
.List() = f
End With
Next i
End Sub
I invite experts look my code & suggest right codes.
Thanks
I need experts support.
In userform there are 7 combo boxes and each combo box values from Common from Cell A1:A.
Cell A1:A Values are
Peter
Micheal
Nick
Jump
Mary
Catherine
.....
.....
.....
etc.,
My question is When I selected 1st combo box value = "Peter" and then all other 6 combo boxes not display the "Peter". and When Selected 2nd Combo box = "Micheal" then other 5 combo boxes not display the "Micheal".
my Code is,
Private Sub UserForm_Initialize()
Dim f
With Worksheets("Name")
f = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
End With
For i = 1 To 7
With Me("cboname" & i & "N") ' Combo box names are cboname1N, cboname2N, ...
.BoundColumn = 0
.TextColumn = 1
.ColumnCount = 1
.List() = f
End With
Next i
End Sub
I invite experts look my code & suggest right codes.
Thanks