tarih sütunu

[LuckyB]

Selam arkadaşlar
ben bir tablo yaptım içinde tarih sütunu var. ancak =bugün yazsam tarihler hep güncelleniyor.
benim istediğim hangi gün işlen yaptıysam o tarih değişmesin.
bunu nasıl sağlayabilirim acaba
formül veya makro mu kullanmak gerekiyor.
makro ise kodu nedir acaba
yardımlarınız için şimdiden çok teşekkürler

 

[LuckyB]

tabloyu buraya ekleyebildim.

 

[çıtır]

Gelir-Gider sayfa kodu.Tutar yazdığınızda tarih atar.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("D2:D65536")) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, -2) = ""
Else
Target.Offset(0, -2) = Format(Now, "dd.mm.yyyy")
End If
End Sub

 

[LuckyB]

Öncelikle yardımınız için çok teşekürler

Ben bu tabloyu yana doğru 5 adet kopyaladım. ancak kodu bir türlü diğer sütunlarda çalıştıramadım.

Yardımcı olabilirseniz çok sevinirim.

 

[çıtır]

Beş ayrı çizelge yapmış iseniz .Harfleri Tutar sütununuzun harfleriyle değiştiriniz.Ben birer sütun atlatarak kopyaladım.

If Intersect(Target, [D2:D65536,I2:I65536,N2:N65536,S2:S65536,X2:X65536]) Is Nothing Then Exit Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [D2:D65536,I2:I65536,N2:N65536,S2:S65536,X2:X65536]) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, -2) = ""
Else
Target.Offset(0, -2) = Format(Now, "dd.mm.yyyy")
End If
End Sub

 

[LuckyB]

yardımınız çok teşekkürler)

 

[çıtır]

yardımınız çok teşekkürler)

Rica ederim.Dönüş yaptığınız için teşekkür ederim.