Excel Satırında Veri Değişikliğinde Başka Hücreye Otomatik Tarih Atma

[merim]

Merhaba,

250 satırlık bir excel dosyam var.

B4 ile L4 kolonları arasında herhangi bir hücrede giriş, değişiklik yapıldığında aynı satırda bulunan T4 kolonuna günün tarihini otomatik atmasını istiyorum.

250 satırlık sayfada, hangi satırda (bu kolonlar arasında) giriş, güncelleme var ise, sadece o satırdaki T kolonunundaki tarihin güncellenmesi gerekiyor.

Yardımınızı rica ederim.

Teşekkürler.

 

[veyselemre]

İlgili sayfanızın kod modülüne yerleştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B4:L254")) Is Nothing Then
        Application.EnableEvents = False
        cancel = True
        Cells(Target.Row, "T").Value = Date
        Application.EnableEvents = True
    End If
End Sub

 

[merim]

Bilgiler için çok teşekkürler.

Peki, giriş veya değişiklik yapılan tüm hücrelerdeki bilgiler silindiğinde, tarih alanı da otomatik silinebilir mi acaba ?

 

[veyselemre]

Bilgiler için çok teşekkürler.

Peki, giriş veya değişiklik yapılan tüm hücrelerdeki bilgiler silindiğinde, tarih alanı da otomatik silinebilir mi acaba ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then GoTo kontrol
    If Not Intersect(Target, Range("B4:L254")) Is Nothing Then
        Application.EnableEvents = False
        cancel = True
        If Target.Value <> "" Then
            Cells(Target.Row, "T").Value = Date
        Else
            ver = Join(Application.Index(Range(Cells(Target.Row, "B"), Cells(Target.Row, "L")).Value, 0, 0), "")
            If ver = "" Then Cells(Target.Row, "T").Value = ""
        End If
        Application.EnableEvents = True
    End If
    Exit Sub
kontrol:
    Application.EnableEvents = False
    For Each i In Target.Rows
        ver = Join(Application.Index(Range(Cells(i.Row, "B"), Cells(i.Row, "L")).Value, 0, 0), "")
        If ver = "" Then Cells(i.Row, "T").Value = ""
    Next i
    Application.EnableEvents = True
End Sub

 

[merim]

Çok teşekkürler. Elinize sağlık...

 

[ersin tunca]

makrosuz formülle olur mu ?

acaba bu işlem makrosuz formülle olur mu ?