Работа с ComboBox.

[Adgost]

В ComboBox отображаются ячейки из диапозона A1:A100. Среди них есть пустые ячейки, как сделать, чтобы они не отображались?

[uhm]

Проверить на пустоту, и, если пустые, не заносить их в КомбоБокс.
Если непонятно, что я сейчас сказал , то давай тогда пиши, кто и как эти ячейки в КомбоБокс загоняет.

[Vitaly1]

Придеться в цыкле заполнять, он наверно не знает как.

Код: Выделить всё

Private Sub UserForm_Activate()
Dim i As Long
ComboBox1.Clear
For i = 1 To 100
If Cells(i, 1).Value <> "" Then
ComboBox1.AddItem Cells(i, 1).Value
End If
Next i
End Sub