şimdiki zamanı yazdırma

[ahmett46]

Slm
A1 hücresine =EĞER(B1="";"";ŞİMDİ()) formülü yazıyorum B1 hücresine rakam yazdığımda A1 hücresine şimdiki zamanı yazıyor ancak B2 hücresine farklı bir zamanda değer girdiğimde A1 hücresindeki zaman da değişiyor. Yani B1 hücresine saat 10 da giriş yaptım A1 hücresine 10:00:00 yazıyor. B2 hücresine saat 11 de giriş yaptığımda A1 10:00:00 kalmasını A2 ise 11:00:00 şeklinde olsun bu şekilde aşağıya doğru uzasın istiyorum. teşekkürler

 

[kayserciyes]

örnek dosya eklerseniz sevinirim

 

[ahmett46]

deneme ektedir

 

[Mahir64]

Slm
A1 hücresine =EĞER(B1="";"";ŞİMDİ()) formülü yazıyorum B1 hücresine rakam yazdığımda A1 hücresine şimdiki zamanı yazıyor ancak B2 hücresine farklı bir zamanda değer girdiğimde A1 hücresindeki zaman da değişiyor. Yani B1 hücresine saat 10 da giriş yaptım A1 hücresine 10:00:00 yazıyor. B2 hücresine saat 11 de giriş yaptığımda A1 10:00:00 kalmasını A2 ise 11:00:00 şeklinde olsun bu şekilde aşağıya doğru uzasın istiyorum. teşekkürler

Merhaba,

İlgili sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "hh:mm")
End Sub