Giriş Tuşuna Bağlı Tarih Sayfasına Sıralı Tarih Atma.

[kutman]

Elimdeki bir excel programına açılır menüde kullanıcı adı ve şifre yazarak gir butonuna basılarak girilmekte gir butonu kodları :

Private Sub gir_Click()
 Application.ScreenUpdating = False
Call başlangıç
 Application.ScreenUpdating = True
End Sub

Şeklindedir. Bu gir butonuna her basıldığında Tarih sayfasına A1 hücresine O günün tarihini ekleyecek her girişte bir alt satıra ekleyece yani ikinci girişte A2 satırına . Yani Algoritme bir üst satır doluysa bir alt satıra tarih ekle şeklinde .
Bu konuda yardımlarınıza ihitiyacım var saygılarımla.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod satırını kullanabilirsiniz.
Böylece 2'ci satırdan itibaren günün tarihi (bilgisayarın tarihi tabiiki) A sütununda,
alttan yukarı doğru ilk boş hücreye ( [A65536].End(3).Row + 1 ) yazılacaktır.
.

Sheets("Tarih").Cells(Sheets("Tarih").[A65536].End(3).Row + 1, 1) = Date