Excel Makro Sorunu

[1omer1]

sub clock ( )
do
doevents
[a1] = format(now,"hh:mm:ss")
loop
end sub

Bunu makro olarak çalıştır dediğim zaman
dosyayı kaydedemiyorum dosya menüsü donuyo tıklayamıyorum sorun ne olabilir

 

[YUSUF44]

Bu makro sürekli olarak çalışmak üzere ayarlanmış. Daha önce gördüğüm örneklerde makroya belirli bir tuşa basınca makronun durmasını sağlayan satır eklemişlerdi. Ancak tam olarak nasıl yapılıyor bilemiyorum. Siz de bu şekilde bir düzenleme yapmalısınız.

Galiba şu konu işinizi görür:

http://www.excel.web.tr/f48/sayfaya-saat-yerle-tirme-t26903.html

 

[1omer1]

Dim stopit As Boolean 'on top of module!

Sub startclock() 'assign start button
stopit = False
clock
End Sub

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

Sub stopclock() 'assign stop button
stopit = True
End Sub

Bu kodu kullanarak çözdüm ancak bu seferde a1 hücresi için gecerli yapıyor J17 için nasıl gecerli yapabilirim

 

[YUSUF44]

ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = _
Format(Now, "hh:mm:ss")

Burdaki cells(1,1) ifadesi 1. sütun, 1. satır anlamına geliyor. Bunun yerine [J17] yazabilirsiniz:

ActiveWorkbook.Worksheets(1).[J17].Value = _
Format(Now, "hh:mm:ss")

 

[1omer1]

Teşekkürler Çözüldü

 

[1omer1]

Teşekkürler Çözüldü

Ama Excel Dosyasını Her Açtığımda Çalıştırmam Gerekiyor Her Açtığımda Otomtik ÇAlışması İçin Ne Yapabilirim Makroları Etkinleştir Diyorum Eski Kaydettiğim Saat Kalıyor

 

[YUSUF44]

Aşağıdaki kodu VBA bölümünde BuÇalışmaKitabı kısmına eklerseniz çalışır diye düşünüyorum:

Private Sub Workbook_Open()
clock
End Sub

 

[1omer1]

Aşağıdaki kodu VBA bölümünde BuÇalışmaKitabı kısmına eklerseniz çalışır diye düşünüyorum:

Private Sub Workbook_Open()
clock
End Sub

Yardımın İçin Teşekkür Ederim Ama Olmadı Malesef