Tuşa Bastıkça Tarih Değiştirme

[jostos]

Merhaba,

Tuşa bastıkça o anki tarih ve saati getirmek istiyorum. Ancak her bastığımda yeni gelecek tarih bir öncekinin bir alt satırına gelecek şekilde olmalı. Yani 1. bastığımda veri A3 hücresine atandıysa eğer 2. basışımda verinin A4 hücresinde olması gerekiyor. Yardımlarınız için şimdiden çok teşekkür ederim.

 

[muhasebeciyiz]

Dim rowNumber As Integer

Sub GetDateTime()
    If rowNumber = 0 Then
        rowNumber = 3
    End If
    
    Cells(rowNumber, 1).Value = Now
    
    rowNumber = rowNumber + 1
End Sub

VBA kodunu modül penceresine yapıştırın:
Excel sayfanıza bir buton ekleyin. Bunun için "Geliştirici" sekmesinden "Ekle" kısmına tıklayın ve "Buton"u seçin.
Butona sağ tıklayın ve "Makro Ata" seçeneğini tıklayın. Buradan GetDateTime makrosunu seçin.
Artık butona her tıkladığınızda, A3 hücresinden başlayarak her basışınızda bir sonraki satıra tarih ve saat eklenecek.
Bu kod, her basışınızda o anki tarihi ve saati A3 hücresinden başlayarak bir sonraki satırlara ekler.

 

[Muzaffer Ali]

Merhaba.
Alternatif.

Sub Test()
    Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = Now
End Sub

 

[jostos]

Dim rowNumber As Integer

Sub GetDateTime()
    If rowNumber = 0 Then
        rowNumber = 3
    End If
   
    Cells(rowNumber, 1).Value = Now
   
    rowNumber = rowNumber + 1
End Sub

VBA kodunu modül penceresine yapıştırın:
Excel sayfanıza bir buton ekleyin. Bunun için "Geliştirici" sekmesinden "Ekle" kısmına tıklayın ve "Buton"u seçin.
Butona sağ tıklayın ve "Makro Ata" seçeneğini tıklayın. Buradan GetDateTime makrosunu seçin.
Artık butona her tıkladığınızda, A3 hücresinden başlayarak her basışınızda bir sonraki satıra tarih ve saat eklenecek.
Bu kod, her basışınızda o anki tarihi ve saati A3 hücresinden başlayarak bir sonraki satırlara ekler.

çok teşekkür ederim. Tam ihtiyacımı karşılayacak şekilde çalışıyor.

 

[jostos]

Dim rowNumber As Integer

Sub GetDateTime()
    If rowNumber = 0 Then
        rowNumber = 3
    End If
   
    Cells(rowNumber, 1).Value = Now
   
    rowNumber = rowNumber + 1
End Sub

VBA kodunu modül penceresine yapıştırın:
Excel sayfanıza bir buton ekleyin. Bunun için "Geliştirici" sekmesinden "Ekle" kısmına tıklayın ve "Buton"u seçin.
Butona sağ tıklayın ve "Makro Ata" seçeneğini tıklayın. Buradan GetDateTime makrosunu seçin.
Artık butona her tıkladığınızda, A3 hücresinden başlayarak her basışınızda bir sonraki satıra tarih ve saat eklenecek.
Bu kod, her basışınızda o anki tarihi ve saati A3 hücresinden başlayarak bir sonraki satırlara ekler.

yalnız şöyle bir sıkıntı oluyor, dosyayı kapatıp tekrar açtığımda kaldığım yerden devam etmiyor ve tekrar A3 hücresine tarih atıyor. En son kaldığım yerden devam etmesini sağlayabilir miyiz acaba?

 

[Tasarım]

yalnız şöyle bir sıkıntı oluyor, dosyayı kapatıp tekrar açtığımda kaldığım yerden devam etmiyor ve tekrar A3 hücresine tarih atıyor. En son kaldığım yerden devam etmesini sağlayabilir miyiz acaba?

Dim rowNumber As Integer

Sub GetDateTime()
Columns("A:A").Select
Selection.Find("", ActiveCell).Activate
ActiveCell.Offset(0, 0).Select
    If rowNumber = 0 Then
        rowNumber = 3
    End If
   
    Cells(rowNumber, 1).Value = Now
   
    rowNumber = rowNumber + 1
End Sub

Bu şekilde denerseniz işinizi görür.

 

[volki_112]

yalnız şöyle bir sıkıntı oluyor, dosyayı kapatıp tekrar açtığımda kaldığım yerden devam etmiyor ve tekrar A3 hücresine tarih atıyor. En son kaldığım yerden devam etmesini sağlayabilir miyiz acaba?

bu kodu kullanın

Sub Test()
    ' Bu kod, aktif sayfada A sütunundaki son kullanılan hücreyi bulur ve bir hücre aşağıya inerek o hücreye geçerli tarih ve saati ekler.
    ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Offset(1, 0) = Now
End Sub

 

[jostos]

Dim rowNumber As Integer

Sub GetDateTime()
Columns("A:A").Select
Selection.Find("", ActiveCell).Activate
ActiveCell.Offset(0, 0).Select
    If rowNumber = 0 Then
        rowNumber = 3
    End If
  
    Cells(rowNumber, 1).Value = Now
  
    rowNumber = rowNumber + 1
End Sub

Bu şekilde denerseniz işinizi görür.

Olmadı hocam. Kapatıp açınca tekrar A3 hücresinden başlıyor değer vermeye.

 

[jostos]

bu kodu kullanın

Sub Test()
    ' Bu kod, aktif sayfada A sütunundaki son kullanılan hücreyi bulur ve bir hücre aşağıya inerek o hücreye geçerli tarih ve saati ekler.
    ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Offset(1, 0) = Now
End Sub

Oldu hocam çok teşekkür ederim. Emeğinize sağlık.