Tarih Sorunu :((

[sensizsoldum]

Merhaba,
Hemen hemen günlük işlediğim bir kayıt defteri var. Bu yılın bu ayına kadar tarihler 01.01.1900 olarak değişmiş görünüyor. Bu tarih durumu çok önemli..! Nasıl bu tarihler bu şekilde değiştin de dair bir fikrim yok. Tarihler yan hücreye veri girildiğinde otomatik olarak makro ile tarih yazıyor. Makroda ctrl+z yok ama bunu. Düzeltmenin başka bir yöntemi yokmu.

 

[hakancetin5@yahoo.com]

dosyayı paylaşabilir misin.

 

[sensizsoldum]

Merhaba,
Şirkette olduğumdan dosya ekleyemiyorum. Ayrıca dosyanın içeriği önemlidir. Müdahale edebileceğim bir yöntem varsa denemek isterim. Bu değişikliklerden sonra defalarca kez kaydedilmiştir.
Bilginize.

 

[sensizsoldum]

Merhaba,
Koddaki sorunu buldum, çözüm için sizlerden yardım almam gerekli.
B3:B aralığına herhangi bir veri girildiğinde, A sütunu yan hücresinde o anki tarihi yazıyor. Ancak sayfaya satır sil ve satır ekle yapıldığında tüm verilere ait tarih, 01.01.1900 oluyor. 8 aylık çalışmanın tarihlerini girmek 2 günden fazla zamanımı alacak, öncelikle bu soruna bir çözüm bulmamız lazım. Yardımlarınız için teşekkür ederim.
İyi çalışmalar dilerim.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Satir As Long
 
    If Intersect(Target, Range("B3:B" & Rows.Count)) Is Nothing Then Exit Sub
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
 
    If Target.Count = 1 Then
        If Target <> Empty Then
            Cells(Target.Row, "A") = Date
        Else
            Cells(Target.Row, "A") = Empty
        End If
    ElseIf Target.Count > 1 Then
        Satir = Cells(Rows.Count, 1).End(3).Row
        If Satir >= 3 Then
            With Range("A3:A" & Satir)
                .Formula = "=IF(B3="""","""",1)"
                .Value = .Value
            End With
        End If
    End If
 
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub