ComboBox как сделать чтобы список в нем формировался с другой страницы?

[sttafi]

у меня есть 2 листа: штатное расписание( на нем отражены должности) и физические лица. На листе физические лица находится форма на ней ComboBox1. Нужно сделать так,чтобы он формировался из столбца А листа штатное расписание.
я пробовала так:
Private Sub ComboBox1_Change()
i = 2

Do While Sheets("Штатное расписание").Cells(i, 1) = ComboBox1.Value
i = i + 1
Loop
End Sub
End Sub
почему то ничего не выходит ((((((
помогите пожалуйста !!!

[SAS888]

В модуль листа "физические лица", на котором расположен ComboBox1, вставьте код:

Private Sub Worksheet_Activate()
    With Sheets("Штатное расписание")
        For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
            ComboBox1.AddItem .Cells(i, 1)
        Next
    End With
End Sub

[sttafi]

Вот что теперь получается:
Run-time error '424':
Object required

[SAS888]

Посмотрите пример во вложении.

[sttafi]

спасибо большое за пример разобралась

[sttafi]

еще один вопросик по поводу ComboBox...
на форме UserForm1 у меня ComboBox1 и ComboBox2( которые формируется как описано выше) мне нужно поместить информацию на лист Физические лица при нажатии на кнопку CommandButton1..
делаю это следующим образом и почему-то не получается:
Private Sub CommandButton1_Click()
If ComboBox1.Text <> "" And ComboBox2.Text <> "" Then
i = 2
Do While Cells(i, 1) <> ""
i = i + 1
Loop
Cells(i, 2) = ComboBox1.Value
Cells(i, 3) = ComboBox2.Value

Else: MsgBox ("Заполните все поля!")
End If
End Sub

[nikolai_P]

Проблема в том, что Ты не указываешь на какой лист вставлять данные, а пишешь просто "вставить в ячейку" - "Cells(i, 2) = ComboBox1.Value" по этой причине возникает ошибка)
Код нахождения последней ячейки:

Sheets("Физические лица").Select
Sheets("Физические лица").Cells(1,1).End(xlDown)

Это равносильно тому, если Ты встанешь на ячейку А1 и нажмешь Ctrl+вниз. Перейдешь на последнюю заполненную ячейку.

Вставить данные на лист, в твоем случае можно так:

Sheets("Физические лица").Cells(i, 2) = ComboBox1.Value
Sheets("Физические лица").Cells(i, 3) = ComboBox2.Value

При этом у Тебя первый столбец не заполняется почему?

[EducatedFool]

Попробуйте так:

Private Sub CommandButton1_Click()
    If ComboBox1.Text <> "" And ComboBox2.Text <> "" Then
        i = 2
        Do While Cells(i, 2) <> ""
            i = i + 1
        Loop
        Cells(i, 2) = ComboBox1.Value
        Cells(i, 3) = ComboBox2.Value
    Else: MsgBox ("Заполните все поля!")
    End If
End Sub

Или так:

Private Sub CommandButton1_Click()
    If ComboBox1.Text = "" And ComboBox2.Text = "" Then MsgBox "Заполните все поля!", vbExclamation: Exit Sub
    Dim НоваяЯчейка As Range: Set НоваяЯчейка = Cells(65000, 2).End(xlUp).Offset(1)
    НоваяЯчейка = ComboBox1.Value
    НоваяЯчейка.Next = ComboBox2.Value
End Sub

А вообще, в таких случаях не помешало бы выкладывать свой файл...

[sttafi]

учусь совсем не на техническом факультете, а нам задают ргр такого рода и ничего не объясняют...так что приходится изучать vba самостоятельно..не очень успешно получается

[sttafi]

когда вставляю код для записи в таблицу ComboBox перестают работать посмотрите пожалуста ...