Makro çalışırken hücrelere girdiğim an hata veriyor

[haydar-ıkerrar]

Arkadaşlar Merhaba;

Bir konu üzerinde yardımınızı istiyorum.Bu makro konularında pek iyi değilim.

Excel çalışma sayfamda otomatik olarak bir saat işliyor.Bu makro çalışırken excel "GİRİŞ" sekmesindeki hiçbir özellik aktif olmuyor ve herhangi bir hücreye çift tıklayınca hata veriyor;"Microsoft Excel Çalışmayı Durdurdu". Ben bunu nasıl önleyebilirim.

Birde makro çalışırken veri sekmesindeki "webden veri al" özelliği arka planda çalışmıyor.Makroyu durdurduğum an diğerleri çalışıyor.

Benim istediğim hem açılırken saat otomatik çalışsın aynı anda webden veri alsın ve hücreler kilitli olmasın.Yardımlarınızı bekliyorum.

İlginiz için teşekkürler...

 

[haydar-ıkerrar]

http://www.dosya.tc/server5/ku7zuz/EKOTEKNIK_OSGB_VERI_ALANI.rar.html

KOD:

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

 

[haydar-ıkerrar]

excel dosyasını kaydedip tekrar girince yukarı yazdığım şeyler aktif olmuyor.

lütfen yardımlarınızı esirgemeyin..

 

[ÖmerBey]

Kullandığınız saat kodlarını şu şekilde değiştirebilirsiniz.

Sub Auto_open()
[BJ1] = Format(Now, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "saat"
End Sub

Sub Saat()
[BJ1] = Format(Now, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "Auto_open"
End Sub

Ama yine de ben bu tarz kodları kullanmak yerine dosyaya flash ile saat eklemeyi tercih ederdim.
Hem daha şık...

 

[haydar-ıkerrar]

Hocam, " .xlsm !auto_open makrosu çalıştırılamıyor.Makro bu çalışma kitabında olmayabilir veya tüm makrolar devre dışı bırakılmış olabilir." hatası veriyor.

 

[ÖmerBey]

Dosyanızdaki Auto_open makrosunu silin yukarıdaki mesajda verdiğim iki kodu dosyanızın boş modülüne kopyalayın. Sonra dosyanızı kaydedip kapatın. Yeniden açtığınızda çalışacaktır.

 

[haydar-ıkerrar]

Hocam dediğinizi yaptım düzeldi teşekkür ederim.Bir sorum daha olacak saat çalışırken fare her saniye değiştiğinde titriyor.Yani yüklüyor ve sonra duruyor.Bunu düzeltme gibi imkanımız var mı ?

 

[ark123]

Kullandığınız saat kodlarını şu şekilde değiştirebilirsiniz.

Sub Auto_open()
[BJ1] = Format(Now, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "saat"
End Sub

Sub Saat()
[BJ1] = Format(Now, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "Auto_open"
End Sub

Ama yine de ben bu tarz kodları kullanmak yerine dosyaya flash ile saat eklemeyi tercih ederdim.
Hem daha şık...

Hocam dosyaya flash ile saat nasıleklerim? teşekkürler.

 

[ÖmerBey]

İnternet ortamındaki onlarca flash saatten birini beğenip bilgisayarınıza indiriniz (Eğer internet bağlantınız devamlı açıksa indirmeden sadece linkini de kullanabilirsiniz.) Ancak üzerine tıklayınca başka linklere yönlendiren saatlere dikkat ediniz.
Geliştirici sekmesinden > Ekle > Diğer denetimler > Shockwave flash object diyerek nesneyi ekledikten sonra sağ tık > özellikler > açılan pencereden Movie başlığına flash saatinizin bilgisayardaki yolunu ya da internet linkini giriyorsunuz.