İstenilen Hücreleri Şartlı Silme

[ugur.onal2]

L VEYA K HÜCRELERİNETARİH YAZDIĞIM ZAMAN, E - H - I HÜCRELERİNDE BULUNANLARIN OTOMATİK SİLME YAPMASI GEREKİYOR.:arkadas:

BİR TÜRLÜ SAYFA İÇİNDEKİ MAKROLARLA YAPAMIYORUM.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K:L]) Is Nothing Then Exit Sub
If IsDate(Target.Value) = True Then
    Range("E" & Target.Row).ClearContents
    Range("H" & Target.Row).ClearContents
    Range("I" & Target.Row).ClearContents
End If
End Sub

 

[ugur.onal2]

Teeşekkür ederim arkadaşım sağolasın.