Hücrede çalışan saat kodu hakkında

[vardar07]

Selam arkadaşlar Bir çalışma kitabında modüle aşağıdaki kodu yazınca tüm sayfaların (A1) Hücresinde aktif oluyor. Bunu sadece istediğimiz sayfada çalışması için [a1] nasıl bir değişiklik yapacağız. Şimdiden herkese teşekkürler

Sub clock()
Do
DoEvents
[a1] = Format(Now, "hh:mm:ss")
Loop
End Sub

Sub auto_open()
Module1.clock
End Sub

 

[muygun]

Merhaba;
Çalışma kitabında boş bir modüle;

Sub auto_open()
Call clock
End Sub
Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets("sayfa2").Cells(1, 1).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub

Kodlarını yerleştirin.
Kodlardaki 6. satırda "sayfa2" kodların çalışacağı sekme adıdır.

NOT: Kodlar alıntıdır.
İyi çalışmalar.

 

[vardar07]

Merhaba;
Çalışma kitabında boş bir modüle;

Sub auto_open()
Call clock
End Sub
Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets("sayfa2").Cells(1, 1).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub

Kodlarını yerleştirin.
Kodlardaki 6. satırda "sayfa2" kodların çalışacağı sekme adıdır.

NOT: Kodlar alıntıdır.
İyi çalışmalar.

Üstad teşekkür ederim.Affınıza sığınarak Cells(1, 1)deki 1.değeri değiştirince satır 2. değerde sütun değişiyor buraya direk Hücre adı verilebilirmi.