Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запрет переноса данных с формы на все листы кроме одного. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запрет переноса данных с формы на все листы кроме одного. (Макросы/Sub)
Запрет переноса данных с формы на все листы кроме одного.
Abask Дата: Понедельник, 21.03.2016, 12:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день!

Подскажите пожалуйста как разрешить форме переносить данные только на определенный лист?! В данном случае на лист "Форма ввода". Столкнулся с проблемой: если форма активна на втором листе ("База") то по нажатию кнопки "Внести данные", данные вносятся в активный лист, что крайне не желательно, ибо "База" должна быть неизменна, по крайней мере формой ввода. :)

Буду так же благодарен за помощь в коде при котором Книга всегда будет запускаться на определенном листе, что конечно частично решает выше описанную проблему но не исключает ее полностью.

(При повторном открытии формы, можно вносить изменения в ячейки)
К сообщению приложен файл: Discont.xlsm (57.5 Kb)


Сообщение отредактировал Abask - Понедельник, 21.03.2016, 12:55
 
Ответить
СообщениеДобрый день!

Подскажите пожалуйста как разрешить форме переносить данные только на определенный лист?! В данном случае на лист "Форма ввода". Столкнулся с проблемой: если форма активна на втором листе ("База") то по нажатию кнопки "Внести данные", данные вносятся в активный лист, что крайне не желательно, ибо "База" должна быть неизменна, по крайней мере формой ввода. :)

Буду так же благодарен за помощь в коде при котором Книга всегда будет запускаться на определенном листе, что конечно частично решает выше описанную проблему но не исключает ее полностью.

(При повторном открытии формы, можно вносить изменения в ячейки)

Автор - Abask
Дата добавления - 21.03.2016 в 12:52
Апострофф Дата: Понедельник, 21.03.2016, 13:05 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 444
Репутация: 122 ±
Замечаний: 0% ±

Excel 1997
Дополните эту процедуру -
[vba]
Код
Private Sub UserForm_Initialize() 'это событие возникает при запуске формы
If ActiveSheet.Name = "База" Then
  MsgBox "Выберите другой лист"
  End
End If
'далее по тексту
[/vba]
 
Ответить
СообщениеДополните эту процедуру -
[vba]
Код
Private Sub UserForm_Initialize() 'это событие возникает при запуске формы
If ActiveSheet.Name = "База" Then
  MsgBox "Выберите другой лист"
  End
End If
'далее по тексту
[/vba]

Автор - Апострофф
Дата добавления - 21.03.2016 в 13:05
_Boroda_ Дата: Понедельник, 21.03.2016, 13:09 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
В CommandButton1_Click везде перед Cells поставьте точки. У Вас же там выше написано
[vba]
Код
With Sheets("форма ввода")
[/vba]
К сообщению приложен файл: Discont_1.xlsm (56.1 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ CommandButton1_Click везде перед Cells поставьте точки. У Вас же там выше написано
[vba]
Код
With Sheets("форма ввода")
[/vba]

Автор - _Boroda_
Дата добавления - 21.03.2016 в 13:09
Abask Дата: Понедельник, 21.03.2016, 13:56 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо! И все же, если необходим запуск книги без сообщения, сразу с первого листа " Форма ввода"?!


Сообщение отредактировал Abask - Понедельник, 21.03.2016, 14:01
 
Ответить
СообщениеСпасибо! И все же, если необходим запуск книги без сообщения, сразу с первого листа " Форма ввода"?!

Автор - Abask
Дата добавления - 21.03.2016 в 13:56
Апострофф Дата: Понедельник, 21.03.2016, 14:04 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 444
Репутация: 122 ±
Замечаний: 0% ±

Excel 1997
если необходим запуск книги ... с первого листа

Исправьте процедуру в модуле "ЭтаКнига" -
[vba]
Код
Private Sub Workbook_Open()
Sheets(1).Activate
Main.Show
End Sub
[/vba]
 
Ответить
Сообщение
если необходим запуск книги ... с первого листа

Исправьте процедуру в модуле "ЭтаКнига" -
[vba]
Код
Private Sub Workbook_Open()
Sheets(1).Activate
Main.Show
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 21.03.2016 в 14:04
Abask Дата: Понедельник, 21.03.2016, 14:18 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Понимаю что вопросы примитивны. Благодарю за терпение :D
 
Ответить
СообщениеПонимаю что вопросы примитивны. Благодарю за терпение :D

Автор - Abask
Дата добавления - 21.03.2016 в 14:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запрет переноса данных с формы на все листы кроме одного. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!