Zaman sorusu?

[erkanacet]

Arkadaşlar, ekteki excel dosyasında tarih formülü ile ilgili bir sorum var. Dosya içerisine açıklamamı yazdım. Dosyayı açıp kapadığımda değişmeyecek bir tarih-saat formülü var mı? Yardımcı olabilirseniz sevinirim

 

[Seyit Tiken]

Aşağıdaki kodu, sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C5:C18]) Is Nothing Then Exit Sub
If Target.Column = 3 Then Target.Offset(0, 3) = Now
End Sub

 

[erkanacet]

Teşekkürler

 

[erkanacet]

Ama bir işe yaramadı

 

[AS3434]

Bir de şu kodları deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 3 And Target.Value <> "" Then
Cells(Target.Row, 6) = Now
End If
If Target.Column = 3 And Target.Value = "" Then
Cells(Target.Row, 6) = ""
End If
End Sub

 

[Seyit Tiken]

Dosyanıza uygulandı, formülle yapılan işlemi, kod ile yapıldı. Günün tarihi ve saati sabit kalmak üzre. Eksik varsa, belirtilirse daha net cevap gelir.

 

[AS3434]

Sayın Seyit Tiken
Yazdığınız kodları bende çalıştıramamıştım. Ve bir anlam verememiştim. Şimdi yaptığım hatayı farkettim (Herhalde Sn.erkanacet'te aynı hataya düşt&#252.
Dosyadaki ilk üç sıradaki veriler mevcut olduğu için makro dolu görüp işlem yapmıyor ve o hücrelerde de Sn. erkanacet'in yazmış olduğu formül var. Dolayısı ile dosya her açılıp kapandığında veriler güncelleniyor.

 

[Seyit Tiken]

Görünen tablodaki aralık baz alındı. Tabi bu görecelidir. Uygulayıcı arkadaşımız bunu kendine göre tanzim edebilir.