koşula bağlı olarak başka bir hücre içeriğini silme

[raditelny]

arkadaşlar merhaba, iyi çalışmalar.

I2 hücremde "Programa alındı","1 Kez görüşüldü", "2 Kez görüşüldü", "3 Kez görüşüldü","Gereği yapıldı" gibi değerler var.
Programa alındı, Gereği yapıldı seçtimde J2 hücresinde bir değer varsa silinsin istiyorum zaten bu iki değer varken J2 hücresine giriş yapılamıyor, diğer değerler varken veri girilmişse o silinsin istiyorum mümkün müdür?

kolay gelsin

 

[ÖmerFaruk]

Sayfanın kod sayfasına aşağıdaki kodu aynen yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("I2:I" & Range("I2").End(xlDown).Row)) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Select Case Target.Value
        Case "Programa alındı"
            Target.Offset(, 1) = ""
        Case "Gereği yapıldı"
            Target.Offset(, 1) = ""
        Case Else
    End Select
    Application.EnableEvents = True
End Sub

 

[raditelny]

teşekkürler!
deneyeceğim