Listeden yapılan seçime göre bazı değerleri silmek.

[MUTLUXXX]

Hücreden yapılan seçime göre yan hücreyi silmek istiyorum.Yardımcı olacaklara şimdiden tşk ediyorum.

 

[Korhan Ayhan]

Selamlar,

Sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B5:D12]) Is Nothing Then Exit Sub
    If Target = Empty Then Exit Sub
    If Target.Column = 2 And (UCase(Target) = "PA" Or UCase(Target) = "YS") Then
    Target.Offset(0, 1) = Empty
    End If
    If Target.Column = 4 And (UCase(Target.Offset(0, -2)) = "PA" Or UCase(Target.Offset(0, -2)) = "YS") Then
    Target = Empty
    End If
Son:
End Sub

 

[MUTLUXXX]

Teşekkür ediyorum

Tamamdır.Çok sağolun Korhan bey