Формирование списков в комбобоксах с одного листа.

[k0libry]

Помогите пожалуйста. Мне нужно чтобы в комбобоксах одной формы формировались списки с одного рабочего листа (Справочник) с разных столбцов. Прилагаю свой файл. Исправьте пожалуйста.

[Beralus]

Не думаю что, эт есть оптимальный код,но предлагаю:
'----------------------------------------------
Private Sub LoadCombo(sColumn As String, objComboBox As Object)

Dim i As Integer
dim sCellValue as string
For i = 1 To Sheets("Справочник").range(sColumn & "1").Columns(sColumn).SpecialCells( 11).Row
sCellValue=CStr(Sheets("Справочник" ).range(sColumn & Trim(i)).Value)
if trim(sCellValue)<>"" then
objComboBox.AddItem sCellValue
end if
Next i

End Sub
'------------------------------------
Sub Add()
LoadCombo "A", Forma1.ComboBox1
LoadCombo "B", Forma1.ComboBox4
'With Forma1
'.ComboBox1.List = Sheets("Справочник").Range("A1").Cu rrentRegion.Value
'.ComboBox4.List = Sheets("Справочник").Range("B1").Cu rrentRegion.Value
'End With
Forma1.Show
End Sub

[k0libry]

Спасибо большое.Только мне почему то всё равно выдаёт во всех комбобоксах список из первого столбца Справочника. (

[Beralus]

Сообщение от k0libry

Спасибо большое.Только мне почему то всё равно выдаёт во всех комбобоксах список из первого столбца Справочника. (

твоем коде :
.ComboBox1.List = Sheets("Справочник").Range("A1:A5") .Value
.ComboBox4.List = Sheets("Справочник").Range("B1:B4") .Value

[k0libry]

Абалдеть!!!! ))))) всё элементарное - просто!!!! спасибо огромное!!!!! )))