tarih sabitlemek

[AHMETMANAV]

merhaba
sadece C6 hücresine veri girildiğinde sadece A4 hücresine tarih atıp sabitleyecek kod aşağıdaki gibi yaterli midir?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c6:c6]) Is Nothing Then Cells(Target.range, "a4") = Format(Now, "dd.mm.yyyy")
End Sub

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c6:c6]) Is Nothing Then Cells(4, "a") = Format(Now, "dd.mm.yyyy")
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[sametozyavuz]

sizin kod benim bilgisayarda çalışmadı.
ben de bunu yazdım.
bir deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Range("a4").Value <> "" Then
 Else
If Not Intersect(Target, Range("c6:C6")) Is Nothing Then
Range("a4").Value = Date
End If
End If
Application.EnableEvents = True
End Sub

 

[AHMETMANAV]

Merhaba,
muygun ve sametozyavuz çok teşekükür ederim. ikisinide denedim. İkiside çalışıyor.

 

[sametozyavuz]

Merhaba,
muygun ve sametozyavuz çok teşekükür ederim. ikisinide denedim. İkiside çalışıyor.

dikkat etmeniz gereken.
muygun beyin kodda tarih c6 hücresine her veri girişi yaptığınızda güncellenecektir.
benim yazdığım kodda ise tarih sadece a4 hücresi boşşa yazıldığı için. sadece 1 kez yazılır. ve güncellenmez.
tarihin güncellenmesi için a4 hücresinin boş olması gerekir.

hangisi size gerekli ise onu kullanın. iyi çalışmalar.

 

[AHMETMANAV]

merhaba
sametozyavuz bey, sizin yazdığınız kodda 3. satırdaki boş hücre tanımlamasını merak ediyordum şimdi anladım. Benim kullanıdığım excel dosyası iş teslimi bir dosya olduğundan güncelleme gerektiriyor.
bu hatırlatma için teşekkür ederim.

 

[Hexafluramon]

Arkadaşlar merhaba, eski bir konu ama bana lazım olan bir kod ararken buldum o yüzden yazayım dedim. bana "AHMETMANAV" beyin bahsettiği tarih girişinin devamlı olması gerekiyor. yani C6 ya veri girdim. A6 ya tarih attı ve sabitldi. daha sonra C7 ye veri girdiğimde devamı olarak A7 ye tarih atsın istiyorum. bu kodu dediğim şekilde çevirebilirmiyiz? Teşekkürler...

 

[Hexafluramon]

Arkadaşlar biraz daha arama yapınca aradığım şeyi buldum.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ts
If Intersect(Target, Range("A1:A65536")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy" & "_" & "hh:mm:ss")
ts = Range("D65536").End(xlUp).Row
End Sub

herkese çok teşekkür ederim. iyi çalışmalar