Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Одна UserForm на несколко листов. Почему-то не работает / 15 сообщений из 15, страница 1 из 1
09.01.2007, 15:32:22
    #34243173
srxp1154
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Доброго всем времени суток! Помогите решить проблему.
Что мы имеем: Книга с 4 листами. На первом листе данные для комбобокса. На других листах - таблицы.
"Шапка" Таблицы должна заполняться с пом. UserForm. Т.е вызываю UF, выбираю в комбобоксе необходимые значения, а те вставляются в определённые ячейки ДАННОГО (с которого была вызвана UF) листа.
Проблема: Первый раз все получается, закрываю UF, открываю следующий лист, вызываю UserForm, а значения вставляются опять в предыдущий лист.
Как быть?
Спасибо.
PS. Для большей ясности - прикрепляю файл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2007, 16:15:57
    #34243337
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Ошибка скорей всего в коде (если таковой есть)
srxp1154
PS. Для большей ясности - прикрепляю файл. А где файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2007, 16:37:26
    #34243440
srxp1154
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Покорнейше прошу извинить, лопухнулся.
Файл прилагается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2007, 16:45:52
    #34243472
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
вместо скрыть
Код: plaintext
UserForm9.Hide
поставь выгрузить
Код: plaintext
Unload UserForm9
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2007, 18:14:10
    #34243778
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Дорогой друг "зачэм мучишся" в код листов вставь код
авторPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address="$A$1" then
UserForm9.Show
Ens if
End Sub
При активации яйчейки А1 Ты получишь то что ишешь
И ещё совет Если Ты вставишь для Твоего ComboBox1 код, то получишь имя для Твоей формы и при помощи имени формы можещь активировать нужный Тебе лист (Если интересно, то продолжу завтра)
авторPrivate Sub ComboBox1_Change()
UserForm9.Caption=ComboBox1.Text
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2007, 09:05:45
    #34244506
srxp1154
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Спасибо vkodor ! То что надо!

Спасибо Ser Artur за полезный совет. Насчет А1 и имени формы все работает, только я не понял как это ".... и при помощи имени формы можешь активировать нужный Тебе лист".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2007, 12:16:20
    #34245180
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Tak tochno
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2007, 12:40:48
    #34245292
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
авторPrivate Sub ComboBox1_Change()
Dim n As Variant
UserForm1.Caption = ComboBox1.Text
For n = 1 To 3
If ComboBox1.Text = "Report" & n Then
Application.Worksheets(UserForm1.Caption).Activate
End If
Next n
End Sub
Но проблема в том что нужно чтоб имя листов и в ComboBox1-е были одинаковые имена Report n-ое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2007, 12:43:52
    #34245303
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Свойство RowSource > ComboBox1-го - Report1!IV1:IV3 или можеш создать базу BASE и там писать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2007, 15:53:06
    #34246092
srxp1154
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Спасибо Ser Artur, что уделил время! дельное и интересное предложение, думаю его можно применить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2007, 17:37:54
    #34246534
Tigerfox
Tigerfox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
srxp1154Спасибо Ser Artur, что уделил время! дельное и интересное предложение, думаю его можно применить.
Ребята, а выложите, пожалуйста, что получилось!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.01.2007, 18:16:48
    #34246661
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
srxp1154
Вы Бухгалтер или кем работаете
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2007, 10:29:34
    #34247698
srxp1154
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Привет всем.
Tigerfox
Выкладываю что получилось. Насчет "при помощи имени формы активировать нужный лист" что-то ругается, разбираться пока времени нет.
Ser Artur
Не, не бухгалтер (бухгалтерия это определенно не моё призвание, это я понял после года учебы на него), см профиль, я его подправил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2007, 13:11:43
    #34248443
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Вот Тебе один из вариантов ответа
С паролями листов будь поосторожней они конфликтуют с VBA вернее если не правильно написат код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2007, 14:33:12
    #34248904
srxp1154
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одна UserForm на несколко листов. Почему-то не работает
Блин, как все просто и интересно - нужно будет обязательно применить :). Благодарствую за идею.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Одна UserForm на несколко листов. Почему-то не работает / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 365ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183663]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 8ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 234ms
total:  365ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]