Скопировать значения вставки, вызванные событием изменения листа, не работает - PullRequest
Новая
       11

Скопировать значения вставки, вызванные событием изменения листа, не работает

0 голосов
/ 12 октября 2019

Я использую событие изменения рабочего листа для запуска копирования и вставки значений. Код изменения рабочего листа находится на листе 2 

Sub worksheet_change(ByVal Target As Range)
Application.EnableEvents = True
Set Target = Range("AB2")
If Target.Value = "OK" Then
    Call myTR1
End If

Обратите внимание, что ячейка AB2 берет свое значение с другого листа

Код копии вставки находится в модуле 

Sub myTR1()
Sheets("BA1").Range("AR6:AS8").Value = Sheets("BA1").Range("AL17:AM19").Value
End Sub

Когда целевой диапазон изменяется на «ОК», мой макрос копирования и вставки не запускается. Что я делаю не так?

1 Ответ

0 голосов
/ 12 октября 2019

Использование вашего eaxct кода сработало, хотя у вас не было end sub в вашем примере?

EDIT: Имейте в виду, что 'OK' чувствителен к регистру, поэтому он должен быть в верхнем регистре для стрельбы, если выЕсли вы хотите, чтобы он стрелял либо снизу, либо выше, вы можете использовать второй код. 

    Sub worksheet_change(ByVal Target As Range)
    Application.EnableEvents = True
    Set Target = Range("AB2")
    If Target.Value = "OK" Then
        Call myTR1
    End If
    End Sub

    Sub worksheet_change(ByVal Target As Range)
    Application.EnableEvents = True
    Set Target = Range("AB2")
    If Target.Value = "OK" Or Target.Value = "ok" Then
        Call myTR1
    End If
    End Sub
...