Tarih ve saat atama

[nuclearist]

iyi akşamlar,
Herhangi bir buton aracılığı ile bulunduğum sayfadan başka bir sayfaya (örneğin B2 hücresine) otomatik olarak tarih ve saat atamak istiyorum. tekrar bastığımda tarih ve saati B3' e sonra B4'e vs.. atanmasını istiyorum. ancak bu süreçte bir önceki yazılan tarih ve saat bilgileri güncellenmemeli. bunun için bir kod yazabilir miyiz? yardımlarınız için teşekkür ederim.

 

[mehmett]

Dosyanız ekte.

 

[Korhan Ayhan]

Selamlar,

Sn. mehmett bey çözümü göndermiş fakat işlemi tek satırlık kod ile aşağıdaki şekilde de yapabilirsiniz.

Sub TARİH_VE_SAAT_EKLE()
    [Sayfa2].[B65536].End(3).Offset(1, 0) = Now
End Sub

 

[nuclearist]

sayın mehmett ve Cost control, bir anlık zeka yetmezliği sonucu soruda ufak bir hata yapmışım, özür dilerim. tarih ve saati satırlara değil de sütunlara döşemem gerekiyor. düzeltmeye çalıştım onu da beceremedim. yardımcı olursanız sevinirim. iyi çalışmalar...

 

[Korhan Ayhan]

Selamlar,

Butona bastığınızda tarih ve saati B1,C1,D1 ... şeklindemi yazdırmak istiyorsunuz?

 

[nuclearist]

evet sayın cost control, tam olarak dediğiniz gibi olacaktı. ilginize teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki gibi deneyiniz.

Sub TARİH_VE_SAAT_EKLE()
    [Sayfa2].[IV1].End(1).Offset(0, 1) = Now
End Sub

 

[nuclearist]

çok teşekkür ederim. işimi gayet iyi gördü. sanırım umduğumdan da güzel oldu programım. iyikivarsın excel.web.tr