|
Дроп бокс с перечнем листов из сторонней книги
|
|
|
Dimka209 |
Дата: Четверг, 24.09.2015, 13:20 |
Сообщение № 1 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
 Excel 2010 | |
Коллеги, добрый день!
Столкнулся с проблемой... при отрытии стронней книги не могу вывести в дром бокс перечень листов в ней. Помогите, пожалуйста.
Пример приложен.
С уважением, Дима
Коллеги, добрый день!
Столкнулся с проблемой... при отрытии стронней книги не могу вывести в дром бокс перечень листов в ней. Помогите, пожалуйста.
Пример приложен.
С уважением, ДимаDimka209
|
| |
| Ответить
|
|
Manyasha |
Дата: Четверг, 24.09.2015, 14:42 |
Сообщение № 2 |
|
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
902
±
Замечаний:
0% ±
 Excel 2010, 2016 | |
Dimka209, замените строчку [vba]Код Private Sub UserformCustom_Initialize() [/vba]на[vba]Код Private Sub UserForm_Initialize() [/vba] И кстати, если в диалоговом окошке я нажму Отмена или закрою его, вылезет ошибка. Добавьте проверку [vba]Код If MyFile = False Then Exit Sub [/vba]
Dimka209, замените строчку [vba]Код Private Sub UserformCustom_Initialize() [/vba]на[vba]Код Private Sub UserForm_Initialize() [/vba] И кстати, если в диалоговом окошке я нажму Отмена или закрою его, вылезет ошибка. Добавьте проверку [vba]Код If MyFile = False Then Exit Sub [/vba]Manyasha
ЯД: 410013299366744 WM: R193491431804
|
| |
| Ответить
|
|
KSV |
Дата: Четверг, 24.09.2015, 15:00 |
Сообщение № 3 |
|
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
 Excel 2013 | |
проверьте
KSV.VBA@gmail.com Яндекс.Деньги: 410011921213333
|
| |
| Ответить
|
|
Dimka209 |
Дата: Пятница, 25.09.2015, 11:06 |
Сообщение № 4 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
 Excel 2010 | |
Manyasha, спасибо большое за помощь!
Подскажите, пожалуйста, а как выправить что при проверке у меня вылазит ошибка "13 type mismatch"
Manyasha, спасибо большое за помощь!
Подскажите, пожалуйста, а как выправить что при проверке у меня вылазит ошибка "13 type mismatch"Dimka209
|
| |
| Ответить
|
|
Dimka209 |
Дата: Пятница, 25.09.2015, 11:29 |
Сообщение № 5 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
 Excel 2010 | |
KSV, Спасибо вам большое!!!
Хорошего дня!
KSV, Спасибо вам большое!!!
Хорошего дня!Dimka209
|
| |
| Ответить
|