помогите с ComboBox

[сергей кмв]

есть макрос

Private Sub UserForm_Activate()

r = Sheets("Лист1").UsedRange.Row + Sheets("Лист1").UsedRange.Rows.Count - 1
Dim i As Range

For Each i In Range(Cells(1, 1), Cells(r, 1))

  If i.Value <> "" Then k = k + 1
Next i
For n = 1 To k
ComboBox1.List = Sheets("Лист1").Range(Cells(1, 1), Cells(n, 2)).Value
ComboBox1.ColumnCount = 2
Next n
End Sub

данные находятся на лист1 при открытии сомбобох на лист2 сомбобох выпадает пустой что делать???

[IgorGO]

прикрепить к сообщению файл.

[SAS888]

Из Вашего кода не совсем ясно, что нужно сделать. Опишите "на словах"... и файл с данными...

[сергей кмв]

вот пример

[сергей кмв]

при открытии листа 2 comboBox пустой на первом листе он работает нормально

[SAS888]

Это потому, что в строке Вашего кода

For Each i In Range(Cells(1, 1), Cells(r, 1))

обращение осуществляется к активному листу, который пуст.
Добавьте ссылки на требуемый лист. Например, так:

For Each i In Sheets("Лист1").Range(Sheets("Лист1").Cells(1, 1), Sheets("Лист1").Cells(r, 1))

[сергей кмв]

после ввода строки при выборе второго листа выдает ошибку 1004

[сергей кмв]

выделяет эту строку желтым цветом
ComboBox1.List = Sheets("Лист1").Range(Cells(1, 1), Cells(k, 2)).Value

[alex77755]

Главное действующее лицо здесь Cells
И оно на активном листе. А Range на другом такого не бывает
Range может унаследовать родителя от Cells, но не наоборот
Поэтому как-то так должно быть

ComboBox1.List = Range(Sheets("Лист1").Cells(1, 1), Sheets("Лист1").Cells(k, 2)).Value

[сергей кмв]

спасибо заработало