Запрет переноса данных с формы на все листы кроме одного.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Запрет переноса данных с формы на все листы кроме одного. (Макросы/Sub)

Abask

Дата: Понедельник, 21.03.2016, 12:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый день!

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

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

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

К сообщению приложен файл: Discont.xlsm (57.5 Kb)

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

Ответить

Апострофф

Дата: Понедельник, 21.03.2016, 13:05 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 468

Репутация: 129 ±

Замечаний: 0% ±

Excel 1997

Дополните эту процедуру -
[vba]

Код

Private Sub UserForm_Initialize() 'это событие возникает при запуске формы
If ActiveSheet.Name = "База" Then
MsgBox "Выберите другой лист"
End
End If
'далее по тексту

[/vba]

Ответить

_Boroda_

Дата: Понедельник, 21.03.2016, 13:09 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

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