А можно сделать так, чтоб выпадающий список в форме считывал информацию с листа

[Kizim]

Помогите с кодом. У меня есть список улиц. Их 400 штук. Нужно, чтобы ComboBox3 считывал информацию с Лист1 столбец А. Это возможно?

[Serge_Bliznykov]

попробуйте сделать так.

перейдите в событие UserForm_Initialize()
и там вместо:

    With Me.ComboBox3
        .AddItem "Здесь надо сделать ссылку на лист1 столбц А"
    End With

вставьте такой код:

    Dim CountStreets As Long
    CountStreets = Sheets("Лист1").Cells(Sheets("Лист1").Rows.Count, "A").End(xlUp).Row
    Me.ComboBox3.RowSource = "Лист1!A1:A" & CountStreets

[Kizim]

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

попробуйте сделать так.

перейдите в событие UserForm_Initialize()
и там вместо:


вставьте такой код:

    Dim CountStreets As Long
    CountStreets = Sheets("Лист1").Cells(Sheets("Лист1").Rows.Count, "A").End(xlUp).Row
    Me.ComboBox3.RowSource = "Лист1!A1:A" & CountStreets

Спасибо огромное за помощь. Это то, что надо.