Açılışta Otomatik Makro Çalıştırma!

[yavuz_yil]

Herkese selamlar,

Değerli üstadlar aşağıdaki makronun dosya açılışında otomatik çalışmasını istiyorum!Mümkünmüdür?



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


Saygılarımla,

 

[Korhan Ayhan]

Sub Clock() yerine Sub Autpen () yazıp deneyiniz.

 

[yavuz_yil]

Hocam denemiştim olmamıştı maalesef gene olmadı veya ben yapamadım..

 

[Korhan Ayhan]

ALT+F11 tuşlarına basın.
Kod penceresi açılacaktır.
INSERT menüsünden boş MODUL ekleyin.
Kodu modül içine uygulayın.

Sub Auto_Open()
    Do
    DoEvents
    Range("A1") = Format(Now, "hh:mm:ss")
    Loop
End Sub

 

[yavuz_yil]

Değerli Üstatlar,

Annemin vefatı nedeniyle bir süredir foruma giremedim ve mesajlarınıza cevap yazamadım. Emeklerinize sağlık. Çok teşekkür ederim...

Saygılarımla,

 

[ZorBey_]

Merhaba Sayın yavuz_yil
Başınız Sağolsun
Allah kalanlara Ömür versin
Sabır versin.

 

[Murat OSMA]

Başınız sağ olsun Sn. yavuz_yil, Allah rahmet eylesin, geride kalanlara sağlık, sıhhat ve sabırlar diliyorum.

 

[ayca1989]

Private Sub Workbook_Open()
UserForm1.Show
End Sub

 

[Mahir64]

Sn. yavuz_yil Allah rahmet eylesin. Sabırlar diliyorum..

--

 

[mancubus]

Değerli Üstatlar,

Annemin vefatı nedeniyle bir süredir foruma giremedim ve mesajlarınıza cevap yazamadım. Emeklerinize sağlık. Çok teşekkür ederim...

Saygılarımla,

Allah rahmetini esirgemesin. Mekanı cennet olsun.

 

[mancubus]

Private Sub Workbook_Open()
UserForm1.Show
End Sub

tabii Workbook_Open olay kodunu kullanmak için Excel versiyonunun Excel 97 ve üstü olması gerektiğini, kodların da ThisWorkbook kod modülüne kopyalanması gerektiğini belirtmemiz lazım.

bilvesile, standart modül üzerinden kullanılan, Autpen prosedürünün Excel 95 ve öncesi versiyonlar ile uyumluluk açısından devam ettirildiğini not edelim.

 

[AHMETMANAV]

Baş sağlığı

allah rahmetini esirgemesin. Mekanı cennet olsun.

****************başınız sağ olsun

 

[Tahirsalt]

Selamlar,
görevler.xlsm dosyası hergün sabah açılışr ve tarihi geldiği zaman başka çalışma dosyalarını tetiklemektedir. Workbooks.Open (ThisWorkbook.Path & Cells(i, "B")) kodlarıyla açıyorum.
Tetiklenen dosyanın içinde Sub Autpen() na yazdığım makro çalışmamaktadır. Oysaki elle bu dosyayı açınca çalışıyor. Nerede hata yapıyorum?