Milisaniye..

[Myazar78Anestezi]

Öncelikle herkese kolay gelsin.

A1 hücresinden başlayarak A50 hücresine kadar sırayla 500 milisaniyede bir "örnek" yazdırmak istiyorum. Ve bu yazdırılırken başka bir makronun da çalışabilmesini istiyorum. Örneğin bu kod çalışırken bir butona tanımladığım B1 hücresine "deneme" yazdıran makro çalışabilsin.
Yardımcı olabilirseniz çok sevinirim.

 

[Korhan Ayhan]

Ekli dosyayı deneyiniz.

Çok disiplinli olmasada işinizi görebilir.

Harici Link (Silinebilir) ; https://we.tl/t-SeSCActU8K

 

[Myazar78Anestezi]

Ekli dosyayı deneyiniz.

Çok disiplinli olmasada işinizi görebilir.

Harici Link (Silinebilir) ; https://we.tl/t-ctRy3B0ndm

Altın üye olmadığım için göremiyormuşum

 

[Korhan Ayhan]

Harici linkte paylaşmıştım. Sanırım görmediniz.

 

[Myazar78Anestezi]

Harici linkte paylaşmıştım. Sanırım görmediniz.

Evet eriştim.
Hocam öncelikle emeğinize sağlık çok teşekkür ederim.
Bende aynı şekilde sleep kullanarak yaptım. Araya makro giremedim. Sonra araştırdım baya ve DoEvents kalıbını buldum. Sizde aynı kalıbı kullanmışsınız fakat 'Code execution has been interrupted' hatası veriyor. Sizinkinde de aynı şekilde hata verdi.

 

[Myazar78Anestezi]

Harici linkte paylaşmıştım. Sanırım görmediniz.

DoEvents' ı kaldırınca problemsiz çalışıyor fakat bu seferde araya makro giremiyorum.

 

[Korhan Ayhan]

Ben test edip olumlu sonuç alıp göndermiştim.

 

[Myazar78Anestezi]

Ben test edip olumlu sonuç alıp göndermiştim.

Kolay gelsin. Dün ki sorun benim pc m den kaynaklanıyormuş. Yalnız şimdi de şöyle bi sıkıntı ile karşılaştım. İlk kod çalışırken araya girecek makroyu çalıştırmak için ekran üzerinde bir butona atadığım zaman sıkıntısız çalışıyor fakat bu makroyu klavyede bir tuşa atadığım zaman çalışmıyor.

 

[Korhan Ayhan]

#2 nolu mesajımdaki dosyayı revize ettim.

2. makronun kısayolu CTRL+SHIFT+K

Deneyiniz.

 

[Tevfik_Kursun]

Merhaba Korhan Ayhan Hocam,
Sleep fonksiyonunu kullanmak istediğimde resimdeki hata mesajı geliyor. Bendeki Office 2010 64 bit. Bunun anlamı her makinede çalışmayacak gibi
sanki. Uygun bir çözümü var mıdır?
Saygılarımla

 

[Tevfik_Kursun]

Tabi saydırmaktan başka ...
Saygılarımla

Sub Say()
    For y = 1 To 6000000
    Next y
End Sub

 

[Korhan Ayhan]

Dosyayı revize ettim tekrar deneyiniz.

 

[Tevfik_Kursun]

Günaydın Korhan Ayhan Hocam,
Dosyanızdaki ben de de çalışıyor. Derdim, onu başka bir dosyada kullanmak. O durumda veriyor hatayı. Yoksa sizin dosya çalışıyor.
Saygılarımla

 

[Korhan Ayhan]

Deklarasyon kısmını başka dosyaya aktarırken hata verirse tamam diyerek devam edin. Rengi kırmızı olacaktır. Bu önemli değildir. Kod çalışacaktır.

Bunun dışında başka hata veriyorsa uyguladığınız dosyayı görmek gerekir.

 

[Tevfik_Kursun]

Merhaba Korhan Ayhan Hocam,
BuÇalışmaKitabı kısmına Option Explicit ifadesini ekledim şimdi çalıştı. Buna dikkat etmemişim.
İlginize çok teşekkür ederim.
Saygılarımla

 

[Korhan Ayhan]

Bahsettiğiniz ekleme olmasa da sorun çıkacağını düşünmüyorum. Ama neyse sorununuz çözülmüş.

 

[Tevfik_Kursun]

evet, çok teşekkür ederim
iyi çalışmalar

 

[Myazar78Anestezi]

#2 nolu mesajımdaki dosyayı revize ettim.

2. makronun kısayolu CTRL+SHIFT+K

Deneyiniz.

Siz kısa yolu makro seçeneklerinden yapmışsınız. Ben kodla yaptığım için çalışmadı. Olsun napalım. Elinize sağlık çok teşekkür ederim.

 

[Korhan Ayhan]

Yaptığınız kodu paylaşır mısınız?

 

[Myazar78Anestezi]

Yaptığınız kodu paylaşır mısınız?

Private Sub Workbook_Open()
Application.OnKey "{RIGHT}", "sagacek"
End Sub

Kısa yolu bu kodlarla tanımladım.
Fakat kodların hepsini istiyorsanız dosyayı tüm göndermem lazım çünkü oyun yazmaya çalışıyorum (kendimce). Hem çok disiplinsiz ve karışık hemde size nasıl göndereceğimi bilmiyorum .