otomatik tarih yazımı

[kör kavalcı]

herkese merhaba,
ekte bulunan excel dosyamda , gün içinde gelen işlerin fiyat ve metre karelerinin hesabını tutmaktayım.
İsteğim ; yeni gelen işin bilgilerini girdiğimde o güne ait tarihin otomatik olarak gelmesi.( ve o tarihte kalması)
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

http://dosya.co/hj4wfhzuwsg3/YENİ_HESAP_KİTABI.xlsm.html

 

[çıtır]

Sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c6:h65336]) Is Nothing Then Exit Sub
satır = Target.Row
t = WorksheetFunction.CountA(Range("C" & satır & ":" & "F" & satır))
If t = 0 Then
Cells(Target.Row, "B") = ""
Else
 Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy")
End If
End Sub

 

[kör kavalcı]

formülle çözme ihtimalimiz olmaz mı? kod yazmayı bilmiyorum maalesef.

 

[çıtır]

formülle çözme ihtimalimiz olmaz mı? kod yazmayı bilmiyorum maalesef.

Bildiğim kadar.Formülle sürekli günün tarihini atar kalıcı olmaz.

 

[yanginci34]

Sayın Çıtır'ın vermiş olduğu kodun uygulanmış dosyası denermisiniz.
http://dosya.co/jywziutlbsl7/YENİ_HESAP_KİTABIx.xlsm.html