[okshef]

Вам нужно сделать так, чтобы Combobox-ы заполнялись по имеющимся на листах данных?

[zion87]

нет что бы после выбора данных из комбокса (они там прописаны)

Код:

Sub Отчет()

UserForm2.ComboBox2.AddItem ("янв")
UserForm2.ComboBox2.AddItem ("февр")
UserForm2.ComboBox2.AddItem ("март")

UserForm2.ComboBox1.AddItem ("ДОУ 10")
UserForm2.ComboBox1.AddItem ("ДОУ 11")
UserForm2.ComboBox1.AddItem ("ДОУ 24")


UserForm2.Show

End Sub

надо заполнить ячейки из формы

[okshef]

Код:

Worksheets(1).[a1] = ComboBox1.Value
Worksheets(1).[a2] = TextBox1.Value
Worksheets(2).[a1] = ComboBox2.Value

месяц(ComboBox2) A2 - год(TextBox1) 2 лист A1 - организ(ComboBox2) »

вы уж определитесь

[zion87]

okshef, спасибо разобрался но появился вопрос

можете расшифровать

Код:

Sheets("База").Select 'переходим на лист база и
    Cells.Find(What:=Organiz, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    True, SearchFormat:=False).Activate 'ищем организацию

просто мне надо после того как выбрана Организ проверить ее наличие в файле "База учреждение.xls"
формат файла

Код:

СОШ 10	МКОУ "Средняя общеобразовательная школа № 10"	г. Новомосковск, ул. 1-ая Транспортная, д. 3	43523369	80.21.2

затем взять адрес и вставить в ячейку

[Iska]

просто мне надо после того как выбрана Организ проверить ее наличие в файле "База учреждение.xls" »

zion87, правильнее — заполнять сам список из:

файле "База учреждение.xls" »

[okshef]

У вас где-то ранее присваивается значение переменной Organiz, которое потом и ищется. Точнее предположить не могу.

[zion87]

я не могу понять как начать проверку на соответствие "организации" в закрытом но рядом лежащем файл xls , как вообще начать с ним работать ?????? вот этот код

Код:

Sheets("База").Select 'переходим на лист база и
    Cells.Find(What:=Organiz, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    True, SearchFormat:=False).Activate 'ищем организацию

выдает ошибку
Run-time error'9':
Subscript out of range

что делать?