Событие при вставки информации

[WizarD.89]

Здравствуйте!
Существует вот у меня такое событие:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With АланизТестирования
    If .ActiveSheet.Name = "Исходная_Таблица" Then
        If GetSetting("Analysis Testing", "general", "auto_fill", "true") = True And Range("a1").value <> "" Then
            Dim daip As Range
            Set daip = Sheets("Исходная_Таблица").Range("Рабочая_зона")
            'проверяет входит выделяная ячейка в правильный диапазон
            On Error Resume Next    'вылетает не понятная ошибка
            If Application.Union(Target, daip).Address = daip.Address Then
                If Err = 1004 Then
                    Exit Sub
                End If
                If Target.Text = "0" Then
                    Target.value = 1
                Else
                    Target.value = 0
                End If
            End If
        End If
    End If
End With
End Sub

Происходит при выделение ячеек в определенном диапозоне, и меняет значение ячейки от 0 на 1 и наоборот. так вот при Копирование информации(Состоящие из значений 1 и 0) из другой таблицы и вставке в этот диапозон , вызывается данное событие и все эти значения снова становятся 0 или 1, тем самым и не происход ВСТАВКИ этих данных. Можно конечно перед вставкой отлючать эту функцию, но может есть другое решение?

[аналитика]

АланизТестирования - ?
зачем писать обработку события на уровне книги, если она нужна только для одного листа "Исходная_Таблица"? Если только лист создается программно...
ошибка 1004 - внешняя по отношению к VBA - вероятно, попытка объединения диапазонов на разных листах.

если копирование выполняется программно, отключай события:
Application.EnableEvents=False, по завершении включай.

[WizarD.89]

зачем писать обработку события на уровне книги, если она нужна только для одного листа "Исходная_Таблица"? Если только лист создается программно...

Списобо за отклик, да лист создается программно.

ошибка 1004 - внешняя по отношению к VBA - вероятно, попытка объединения диапазонов на разных листах.

Насчет ошибки.На всех листах в определенном столбце содержиться колонка гиперсылок, которые содержат ссылку на всех листы (которые в свою очередь создаются программно).Было сделано для быстрой навигации так как листов много. А ошибка выходила парой когда ты быстро переходил по этим гиперсылкам. Но думаю сделаю это все подругому, по красивше через ленту.

если копирование выполняется программно, отключай события:
Application.EnableEvents=False, по завершении включай.

нет не программно. это выполняет пользователь, либо нужно создать отдельную кнопку вставить(и события выключать) и как то сделать что бы обычная функция ВСТАВИТЬ не показывалась пользователю. либо как то определять что сейчас идет вставка, и не нужно делать это событие.

[SAS888]

В Вашем коде строку

If .ActiveSheet.Name = "Исходная_Таблица" Then

замените на

If .ActiveSheet.Name = "Исходная_Таблица" And Application.CutCopyMode = False Then