Hücre İçeriği Değiştiğinde Hücre Silinmesi

[htsumer]

A10 ve A11 Hücreleri değiştiğinde C10 ve C11 hücreleri silinecek. Yalnız şöyle;

A10 Hücresinde tarih var. Ve tarih yazan hücre silindiğinde C10 Hücresi silinecek, A11 hücresi değiştiğinde C11 silinecek.

Yalnız Sayfamın kod kısmında şu kodum var.. Buna entegre edilmesi gerekiyor. Yada başka bir yol.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A10:A83]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub

If IsDate(Target) = False Then Exit Sub

ay = WorksheetFunction.Choose(Month(Target), "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")

    [G4] = ay & " DEFTER TASTİK TAHSİLAT"
    [G5] = ay & " MUHASEBE"
    

End Sub

 

[htsumer]

Güncel....

 

[YUSUF44]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A10:A83]) Is Nothing Then Exit Sub

[COLOR="red"]If Target.Row = 10 And Target = "" Then
    [C10] = ""
ElseIf Target.Row = 11 Then
    [C11] = ""
End If[/COLOR]

If Target = "" Then Exit Sub

If IsDate(Target) = False Then Exit Sub

ay = WorksheetFunction.Choose(Month(Target), "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")

    [G4] = ay & " DEFTER TASTİK TAHSİLAT"""
    [G5] = ay & " MUHASEBE"""
    

End Sub

Şeklinde deneyin.

 

[htsumer]

Teşekkür ederim Yusuf bey. Tam istediğim gibi.. Elinize sağlık.. Sağolun