Hücre içeriği silinince karşısındaki tarihte silinsin

[ASLAN7410]

Merhaba hayırlı sabahlar.

Ekte gönderdiğim excel dosyamda basit olarak bina yöneticiliği programı yapmaya çalışıyorum.

Yapmak istediğim AİDAT yazılı sütunlardaki herhangi bir hücredeki para miktarını sildiğim de
yan tarafında yazılı bulunan tarihinde silinmesini istiyorum.

Yardımcı olur musunuz?
.
https://dosya.co/q8iwrwa4574q/AİDAT.xlsm.html
.

 

[muygun]

Merhaba;
Eki deneyin.

veya daha kısa olarak;

Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat >= 3 And sat <= 28 And Cells(2, süt) = "AİDAT" Then
If Cells(sat, süt) = "" Then Cells(sat, süt + 1) = ""
If Cells(sat, süt) <> "" Then Cells(sat, süt + 1) = Format(Now, "dd.mm.yyyy")
End If
End Sub

Kodlarını da kullanabilirsiniz.
İyi çalışmalar.

 

[Seyit Tiken]

Bu şekilde kullanabilirsiniz.
Hedef ve yandaki hücreyi temizler

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [C3:Z28]) Is Nothing Then
Target = "": Target.Offset(, 1) = "": End If
End Sub

Tüm satırı temizler

X = ActiveCell.Row
Range("C" & X & ":Z" & X) = ""

 

[ASLAN7410]

Sayın muygun Bey ve sayın Seyit Bey, ellerinize sağlık her ikinize de ayrı ayrı çok teşekkür ediyorum.

İki kod da gayet kullanışlı geldi bana, hayırlı geceler diliyorum.

 

[ASLAN7410]

Arkadaşlar, yukarıda vermiş olduğunuz kodlar gayet güzel çalışıyor ve çok işime yarıyor, ellerinize sağlık.
Bu kodları aşağıda gönderdiğim örnekte uyarlayamadığım için göndermiş olduğum bu koda isteklerimi ekleyebilir misiniz?

Yapmak istediğim;
F5:F30 aralığındaki hücreden veriyi silince karşısındaki D hücresindeki de silinsin,
L5:L30 aralığındaki hücreden veriyi silince karşısındaki J hücresindeki de silinsin,
R5:R30 aralığındaki hücreden veriyi silince karşısındaki P hücresindeki de silinsin,
X5:X30 aralığındaki hücreden veriyi silince karşısındaki V hücresindeki de silinsin.

Yardımcı olur musunuz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F5:F30")) Is Nothing Then
    If IsDate(Cells(Target.Row, "D").Value) = False Then
        Cells(Target.Row, "D").Value = Format(Now, "dd.mm.yyyy")
    End If
    End If

    If Not Intersect(Target, Range("L5:L30")) Is Nothing Then
    If IsDate(Cells(Target.Row, "J").Value) = False Then
        Cells(Target.Row, "J").Value = Format(Now, "dd.mm.yyyy")
    End If
    End If

    If Not Intersect(Target, Range("R5:R30")) Is Nothing Then
    If IsDate(Cells(Target.Row, "P").Value) = False Then
        Cells(Target.Row, "P").Value = Format(Now, "dd.mm.yyyy")
    End If
    End If

    If Not Intersect(Target, Range("X5:X30")) Is Nothing Then
    If IsDate(Cells(Target.Row, "V").Value) = False Then
        Cells(Target.Row, "V").Value = Format(Now, "dd.mm.yyyy")
    End If
    End If
End Sub

 

[ASLAN7410]

Örnek ekledim.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun Bey, tam istediğim gibi çalışıyor ellerinize sağlık, Allah razı olsun.
Sizin önceki kodu uyarlayamamıştım.

Benim gönderdiğim bu koda nasıl bir eklenti yapılabilir, altarnatif olsun diye soruyorum.

Hayırlı günler diliyorum.

 

[ASLAN7410]

Sayın muygun Bey,

F5:F30 aralığındaki hücreden veriyi silince karşısındaki D hücresindeki de silinsin,
L5:L30 aralığındaki hücreden veriyi silince karşısındaki J hücresindeki de silinsin,
R5:R30 aralığındaki hücreden veriyi silince karşısındaki P hücresindeki de silinsin,
X5:X30 aralığındaki hücreden veriyi silince karşısındaki V hücresindeki de silinsin.

benim gönderdiğim bu koda nasıl bir eklenti yapılabilir, altarnatif olsun diye soruyorum.