Soru Dosya hazırlanıyor Uyarısı ?

[toprak2349]

Kod bloğumuzun içinde mesele for döngümüz var ve biraz uzun kodlar var, yani 5-10-15 sn sürüyor. Son kullanıcı butona tıklıyor ve buton çalışmıyor mu acaba diye devamlı cmdbuttonlara basmaya çalışıyor. Şunu yapabilir miyiz ? For döngüsünün hemen üstünde msgbox gibi uyarı versin " Dosyanız hazırlanıyor... " diye ama arkada kod bloğu çalışmaya devam etsin. yani kodun devam etmesi için msgbox daki gibi yes veya no ya basılmasına gerek kalmadan (sadece uyarı mesajı gözüksün, internet sayfası açılırken şifre girince filan dosyanız hazırlanıyor yazısı, mouse dönme simgeci gibi) uyarı ekranda kaldığı sürece arkada kod çalışmaya devam etsin. Yani dosyanız hazırlanıyor yazısı ekranda yanarken arkada döngü kodları çalışmaya devam etsin. For döngüsünün hemen çıkışında da " Dosyanız hazır açmak istiyor musunuz" mesajının verdirebilir miyiz? Dosyanız hazırlanıyor yazısı for döngüsünün bi üst satırındaki koda gelince ekranda gözüksün, döngüde kodlar çalışırken yazı ekranda kalsın, kullanıcı da o yazıyı kapatamasın, taa ki next in bi alt satırına geçince de kaybolsun !!!

 

[ÖmerBey]

Merhaba,
Mesaj kutusu şeklinde bir userform tasarlayıp, kodun başında gözükmesini sonunda da gizlenmesini sağlayabilirsiniz. Hatta bu forma ilerleme çubuğu ekleyerek döngünün ne kadarının tamamlandığını da gösterebilirisiniz.
İyi çalışmalar...

 

[toprak2349]

Merhaba,
Mesaj kutusu şeklinde bir userform tasarlayıp, kodun başında gözükmesini sonunda da gizlenmesini sağlayabilirsiniz. Hatta bu forma ilerleme çubuğu ekleyerek döngünün ne kadarının tamamlandığını da gösterebilirisiniz.
İyi çalışmalar...

Hocam ekteki dosyada denedim. Şöyle bir sıkıntı var: Döngünün başında 2. tasarladığımız msgbox boyutundaki userform gözüküyor, ama tam da bu aşamada kod duruyor, yani msgbox boyutundaki userformu kapatmayınca döngüye başlamıyor. Ben userform gözükmeye devam etsin, döngü bitince kapansın istiyorum. Fotoğraftaki gibi mesela !

 

[ÖmerBey]

Kusura kalmayınız, bir önceki mesajımda eksik ifade etmişim.
Userformların ShowModal özelliklerini False yapınız.

 

[ÖmerBey]

Örnek dosyaya uygulanmış hali ektedir.
İnceleyiniz...

 

[toprak2349]

Harika olmuş teşekkürler Ömer bey. Acaba vba pc de bi programın yüklü olup olmadığını kontrol edebiliyor muyuz ? Mesele bilgisayarda google earth programı kurulu mu ?

 

[toprak2349]

Örnek dosyaya uygulanmış hali ektedir.
İnceleyiniz...

Ömer bey dosya kendi pc mde çalışıyor, bunun için çok teşekkürler. Ama başka pc de açmaya çalıştığımda progressbar objesi userform da hiç gözükmüyor, neden olabilir acaba ?

 

[Haluk]

Diğer dosyada, VBA editöründe Tools>>References kısmından "Microsoft Windows Common Controls 6.0" veya muadili her neyse onu seçmeniz lazım.

Ama, eğer bilgisayarda bu referans yoksa o zaman çalışmaz... Bu iş için en sağlıklısı, VBA'nin standart TextBox ve Label kontrolleri ile kendi ProgressBar'ınızı yapmak olacaktır. Forumda örnekleri vardı diye hatırlıyorum....

Diğer yandan, Ömer Beyin dosyasındaki ProgressBar kontrolünün API ile yapılmış şekli ekli dosyadadır.... Referans eklemeye gerek yoktur. Dosya 64 Bit Excel'de çalışır mı, bilemiyorum..... Ona göre de düzenlemek gerekebilir.

.

 

[ÖmerBey]

Yukarıda Haluk Bey'in bahsettiği alternatiflerden label ile yapılmış örnek ektedir.
İyi çalışmalar...