Разное

okshef · Конфигурация компьютера

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

zion87 · Отправлено: **21:09, 03-04-2013** | #3

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

Код:

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

Цитата zion87:

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

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

zion87 · Отправлено: **22:16, 03-04-2013** | #5

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 · Отправлено: **22:28, 03-04-2013** | #6

Цитата zion87:

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

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

Цитата zion87:

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

okshef · Конфигурация компьютера

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

zion87 · Отправлено: **22:38, 03-04-2013** | #8

я не могу понять как начать проверку на соответствие "организации" в закрытом но рядом лежащем файл 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

что делать?