добрый день. пытаюсь освоить combobox, listbox - столкнулся с проблемой: есть макрос, который при переходе на Лист создает в ячейке F10 выпадающий список из значений строки другого листа. (макрос рабочий 100%)
Код
Private Sub Worksheet_Activate()
On Error GoTo exitsub
Dim h$, j As Range
For Each j In Intersect(Sheets("DETALI").[2:2], Sheets("DETALI").UsedRange).Cells
If IsEmpty(j.Value) Then Else h = h & "," & j.Value
Next
h = Mid$(h, 2)
With [F10].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=h: .InCellDropdown = True
End With
exitsub:
End Sub
подскажите как мне правильно прописать адрес ComboBox1, чтобы список отображался именно в ComboBox1
Private Sub Worksheet_Activate()
On Error GoTo exitsub
Dim h$, j As Range
For Each j In Intersect(Sheets("DETALI").[2:2], Sheets("DETALI").UsedRange).Cells
If IsEmpty(j.Value) Then Else h = h & "," & j.Value
Next
h = Mid$(h, 2)
exitsub:
End Sub
создает переменную h со списком через запятую. типа: 1,2,3,4,5
как этот перечень вставить в комбобокс, чтобы я мог выбирать одно из этих значений ?
Private Sub UserForm_Activate()
Dim h$, j As Range
For Each j In Intersect(Sheets("DETALI").[2:2], Sheets("DETALI").UsedRange).Cells
If IsEmpty(j.Value) Then Else h = h & ", " & j.Value
Next
With UserForm1
ComboBox1.List = Split(Mid$(h, 2), ",")
End With
End Sub
Private Sub UserForm_Activate()
Dim rRng As Range
For Each rRng In Intersect(Sheets("DETALI").[2:2], Sheets("DETALI").UsedRange).Cells
If Not IsEmpty(rRng.Value) Then ComboBox1.AddItem rRng.Value
Next
End Sub