Excel de satırlara otomatik tarih ekleme

[emanetm07]

Merhaba,

a1 satırından a200 satırına kadar ben b2,b3 hücrelerine ve bu şekilde a sütunu işle tümleşik şekilde veri girdikce tarihleri satır satır otomatik aktarmasını istiyorum. bu konuda ne yapabilirim ?

=bugün() denedim bugünün tarihini veriyor =bügun()+1 dediğim zaman ilave yapıyor ancak bunu nasıl alt satıra kaydırması gerekiyor.

 

[ÖmerBey]

Bunu kod ile yapabilirsiniz.
Sayfanın alt tarafında yer alan sekmelerden işlem yapmak istediğiniz sekmeyi seçip > üzerinde sağ tıklayarak > kod görüntüle dedikten sonra açılan sayfaya aşağıdaki kodu yapıştırıp kapatınız.
A sütununda işlem yaptığınızda işlem yapılan satırın bir alt satırında B sütununa günün tarihi yazılır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
    Target.Offset(1, 1) = Date
Else
    Target.Offset(1, 1) = ""
End If
End Sub

 

[emanetm07]

teşekkür ederim ancak şunu söylemek isterim. örneğin a1 hücresine yazdım b1 e günün tarihini attı,
a2 ye yazdığımdan bir sonraki günün tarihini atmasını istiyorum.
bunda ise sürekli günün tarihini atmaktadır.

 

[Korhan Ayhan]

Alternatif;

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Target.Row = 1 Then
        If Target.Value <> "" Then
            Target.Offset(0, -1) = Date
        Else
            Target.Offset(0, -1) = ""
        End If
    Else
        If Target.Value <> "" Then
            Target.Offset(0, -1) = Target.Offset(-1, -1) + 1
        Else
            Target.Offset(0, -1) = ""
        End If
    End If
Son:
End Sub

 

[ÖmerBey]

Bir tane örnek dosya paylaşıp ne yapmak istediğinizi dosya üzerinde gösterir misiniz?
Dosyanızı, dosya paylaşım sitelerine yükleyip link vererek paylaşabilirsiniz.

 

[Usyk]

Üzerinden zaman geçmiş ama formül ile basit bir şekilde yapılabilir;

b1 hücresine
=bugün()

b2 hücresine de aşağıdaki formülü yazıp çoğaltın;
=EĞER(A2="";"";METNEÇEVİR(B1+1;"gg.aa.yyyy"))

kolay gelsin.

 

[alidoğan2]

b sütüununa bugün formülü girin.başka bir sütuna 1234...girin. tarih istediğiniz sütuna da =a1+sıralı numaralar verdiğiniz sütunun 1. hücresi deyin. sonra da seri olacak şekilde istediğiniz noktaya kadar kopyalayın.
bu şekilde acaba pratik olmaz mı?