butona her tıklanışta her defasında bi sonraki satıra geçerek veri yazma

[sinan]

selamlar..
bir süredir uğraşmakta olduğum programın kritik bir noktasında takıldım ve yardımcı olabileceğinizi düşünerek sizlerle paylaşmak istedim..
amacım userformdaki butona tıklandığında o andaki güncel tarih ve saat bilgisini çalışma kitabımdaki belirlediğim sayfaya yazdırmak..Ancak tabi şöyle birşey de gerekli;tarih ve saat bilgisi butona her tıklanışta bir alt satıra yazılmalı.tabi daha önceden yazılanlar da aynı şekilde kalmalı.Anlayacağınız gibi sadece bir loglama işlemi yapmak amacındayım.döngüyle her defasında bış olan hücreyi buldurup yazdırmak istedim ama başaramadım..
ilgilenen arkadaşlara şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    Sheets("Sayfa1").Range("A65536").End(3).Offset(1, 0) = Format(Now, "dd.mm.yyyy hh:mm:ss")
End Sub