Макрос для снятия показаний по времени

Пользователь

Сообщений: 2 Регистрация: 29.01.2020

29.01.2020 10:16:40

Доброго времени суток.

Очень нужна помощь знающих людей.
Вопрос такой:

Имеем несколько ячеек, в которые из внешнего источника приходят данные. Необходимо в определенный момент времени (раз в сутки) эти данные снимать и записывать в другие ячейки. Нашел на просторах этого (если не ошибаюсь) форума решение, которое в принципе мне подходит (Файл 1), но там макрос запускается при открытии книги. Я же хотел сделать так, чтобы макрос работал при активации какой-нибудь из свободных ячеек. Однако, когда я вставляю код:

Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$1" Then: Call ПоминутнаяЗапись End Sub

вместо

Код
Private Sub Workbook_Open() Call ПоминутнаяЗапись End Sub

Макрос не включается.

второй вопрос удален [МОДЕРАТОР]

Был бы очень признателен за любую помощь.

Прикрепленные файлы

Файл 2.xlsm (9.63 КБ)
Файл 1.xlsm (17.04 КБ)

zav

Пользователь

Сообщений: 56 Регистрация: 12.03.2019

29.01.2020 15:27:41

Здравствуйте!

Макрос не проверял. В код листа:

Код

Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim sr As Range
Set sr = Range("B1")

    If Not Intersect(Target, sr) Is Nothing Then
        Call ПоминутнаяЗапись
    Else
        Exit Sub
    End If
    
End Sub

Изменено: zav - 29.01.2020 15:28:27