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

Question

Я пытаюсь создать 2 изменения листа на основе выбора из 2 раскрывающихся списков проверки данных.У меня есть первое изменение, работающее по мере необходимости, но я борюсь со вторым - оно не копирует / вставляет ячейку, также нет ошибок для отладки.

Любая помощь будет очень признательна!

РЕДАКТИРОВАНИЕ: Мой оригинальный код был из другой версии, вот правильный:

''First Change copies another range of cells from one sheet to another       

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D17")) Is Nothing Then Exit Sub
        Select Case Target.Value
            Case ""
                With Sheets("PrintSheet")
                .Rows(16 & ":" & .Rows.Count).Delete
                End With
            Case "New"
                Sheets("DevicePrep").Range("A1:D23").Copy Sheets("PrintSheet").Range("B16")
            Case "Re-Issued"
                Sheets("DevicePrep").Range("F1:I23").Copy Sheets("PrintSheet").Range("B16")
        End Select

    ''Second Change copies another range of cells from one sheet to another         

    If Intersect(Target, Range("D19")) Is Nothing Then Exit Sub
        Select Case Target.Value
            Case ""
                With Sheets("PrintSheet")
                .Rows(40 & ":" & .Rows.Count).Delete
                End With
            Case "Account Management"
                Sheets("AccountManagement").Range("A1:D23").Copy Sheets("PrintSheet").Range("B40")
        End Select
End Sub

Answer 1

Ключевое слово в событиях изменения - Target.If Target.Address = "$D$17" приведет к выполнению события Change при изменении D17.Затем вы можете проверить значение ячейки Target.Без указания, какую ячейку нужно изменить, она будет запускаться после каждого изменения.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address="$D$17" then
      Select Case Range("D17")