Заполнение ячеек из формы макроса Excel

[zion87]

Добрый вечер товарищи...
Помогите пожалуйста, есть UserForm1
http://s018.radikal.ru/i522/1304/64/4019b896959b.png
ComboBox2 - месяц
ComboBox2 - организ
TextBox1 - год
как сделать заполнение 1 листа exclel A1 - месяц(ComboBox2) A2 - год(TextBox1) 2 лист A1 - организ(ComboBox2) данными из формы после нажатия на клавишу "создать отчет"

[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

что делать?