Veri Girince Çalışsın Ama Silince Çalışmasın

[baydeniro]

Merhaba Arkadaşlar,
Aşağıdaki kod ile B sütununa bir veri girildiğinde C sütununa "TAMAM" yazıyor. Gayet güzel çalışıyor.
B sütunudaki 1 hücreden veri silinince kod devreye girmiyor. Bu da gayet iyi. Ama
B sütunudaki 2 ve daha fazla hücre seçilip veri silinince kodun çalışmaması sağlanabilir mi ?

Örneğin B4 hücresini, B5 hücresini, B6 hücresini ayrı ayrı seçilip silinince kod devreye girmiyor ki beklentimiz bu yönde.
Ama B4:B6 hücre aralığını seçip DEL ile silince kod çalışıyor. Silme durumunda kodu çalışmaması sağlanabilir mi ?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
If Target <> "" Then
Target.Offset(0, 1) = "TAMAM"
End If
End If
End Sub

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Target = "" Then Exit Sub
    If Target.Column = 2 Then
        If Target <> "" Then
            Target.Offset(0, 1) = "TAMAM"
        End If
    End If
End Sub

 

[baydeniro]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Target = "" Then Exit Sub
    If Target.Column = 2 Then
        If Target <> "" Then
            Target.Offset(0, 1) = "TAMAM"
        End If
    End If
End Sub

Next Level üstadım çok teşekkür ediyorum, sağ olun, var olun, sağlıcakla kalın