Автоматический запуск макроса

Старая форма входа

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

Автоматический запуск макроса (Макросы/Sub)

Nikonka89

Дата: Суббота, 06.03.2021, 16:36 | Сообщение № 1

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2019

Здравствуйте. У меня есть файл, куда при нажатии кнопки "импорт" - импортируются данные из другого файла.
При импорте новых строчек дата встаёт в формате дата+время. Перед импортом нужно отключить защиту листа, потом сделать импорт и защита встаёт автоматически.
+ написала небольшой макрос Территория (как смогла))
Так вот, что и в каком макросе нужно подправить, чтобы при импорте дата вставала в обычном формате, без времени ? И как сделать, чтобы макрос Территория запускался сразу после макроса "импорт" ?

очень нужна помощь ваша. Файлы прикладываю

К сообщению приложен файл: _2020___.xlsm (85.7 Kb) · ___.xlsx (14.3 Kb)

Ответить

svp

Дата: Суббота, 06.03.2021, 17:18 | Сообщение № 2

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

Ранг: Новичок

Сообщений: 13

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

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

Excel 2007

По дате: замените Now на Date. Это Макрос1

Ответить

svp

Дата: Суббота, 06.03.2021, 17:33 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 13

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

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

Excel 2007

Попробуйте поставить в в макросе Импорт после строки Макрос1 Территория. Перед Application.ScreenUpdating = True

Ответить

Nikonka89

Дата: Суббота, 06.03.2021, 17:44 | Сообщение № 4

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2019

С датой вышло. Спасибо!

А вот с макросом Территория не получилось . Написала как сказали. При запуске макроса Импорт - ругается : "Expected function or variable" чтобы это не значило)

Сообщение отредактировал Nikonka89 - Суббота, 06.03.2021, 17:46

Ответить

Nikonka89

Дата: Суббота, 06.03.2021, 17:50 | Сообщение № 5

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2019

Может я не так написала ?
попробовала так. В этом случае при нажатии импорт - выходит сообщение что лист защищен. Хотя я снимаю перед этим защиту. А она видимо снова ставится

[vba]

Код

Макрос1
Территория
Application.ScreenUpdating = True

[/vba]

Сообщение отредактировал Nikonka89 - Суббота, 06.03.2021, 17:54

Ответить

Pelena

Дата: Суббота, 06.03.2021, 18:53 | Сообщение № 6

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

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

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Защита снимется и ставится в макросе Макрос1
Надо в макросе Импорт тоже снимать защиту с листа

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Nikonka89

Дата: Воскресенье, 07.03.2021, 10:51 | Сообщение № 7

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2019

А как ? Я в макросах полный ноль (
написала Территория перед Макроса1 - в этом случае макрос территория автоматически срабатывает, но Макрос1 не запускается автоматом

Сообщение отредактировал Nikonka89 - Воскресенье, 07.03.2021, 10:53

Ответить

Pelena

Дата: Воскресенье, 07.03.2021, 14:52 | Сообщение № 8

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

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

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата Nikonka89, 07.03.2021 в 10:51, в сообщении № 7 ()

А как ?

в Макрос1 так снимается
[vba]

Код

ActiveSheet.Unprotect

[/vba]
так ставится
[vba]

Код

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowFiltering:=True

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Nikonka89

Дата: Воскресенье, 07.03.2021, 15:10 | Сообщение № 9

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2019

Поняла. Получилось. Спасибо

Ответить

Автоматический запуск макроса (Макросы/Sub)

Страница 1 из 1
1