Popup açıldığı zaman "Tamam" yazmasın,yada kum saati göstersin.

[hakpin]

Popup açıldığı zaman "Tamam" yazmasın,yada kum saati göstersin.

Ustalar merhaba,
Makro çalışmasını bitirinceye kadar ,Aşağıdaki uyarı kodunu makro kodunun arasına yerleştirdim.Ancak popup açıldığı zaman altta "Tamam" yazmasını istemiyorum.Nasıl bir değişiklik yapmamız gerekli yardımcı olursanız sevinirim.

CreateObject("WScript.Shell").Popup _
"Lütfen bekleyin işlemleriniz yapılıyor", 1, "Uyarı"

Yada makro çalışmasını bitirinceye kadar kum saati göstermesi mümkünmü.

 

[hamitcan]

Kum saati çıkmasını isterseniz, aşağıdaki satırı makronun başlangıç kısmına yerleştirin.

Application.Cursor = xlWait

Makronun çalışması bitince de kursorun eski haline dönmesi için son kısmına aşağıdaki satırı ekleyin.

Application.Cursor = xlDefault

 

[hakpin]

Popup açıldığı zaman "Tamam" yazmasın,yada kum saati göstersin.

Hamitcan Hocam,
Her zamanki gibi ilginizi eksik etmediniz.Yazmış olduğunuz kodu makronun başına ve sonuna ekledim çalışıyor. Çok teşekkür ederim. İşleriniz kolay gelsin.

 

[hamitcan]

Yardımcı olabildiysem ne mutlu bana.

 

[Levent Menteşoğlu]

Tamam yazısının kaldırılması ve cursor için msgbox yerine userform kullanarak daha kolay sonuca ulaşabilirsiniz.

 

[hsayar]

Kum saati çıkmasını isterseniz, aşağıdaki satırı makronun başlangıç kısmına yerleştirin.

Application.Cursor = xlWait

Makronun çalışması bitince de kursorun eski haline dönmesi için son kısmına aşağıdaki satırı ekleyin.

Application.Cursor = xlDefault

teşekür ederim hocam

Tamam yazısının kaldırılması ve cursor için msgbox yerine userform kullanarak daha kolay sonuca ulaşabilirsiniz.

bu dediğiniz nasıol olmalı hocam işlemi kesmeden userform labelda işlem aşamaları gözükecek

makro çalışmaya başladığı andan itabren sırası ile
"sorgulanıyor"
"kaydediyor"
"sorgu bitti"
gibi userform labelda değerler gözükecek, ancak arka planda işlem devam edecek ama nasıl?

 

[asilacar]

Hakkaten tamam yazısını nasıl kaldırabiliriz hocam?