Userformda "Lütfen Bekleyiniz..." Mesajı

[mnz]

Merhaba,
Userform üzerine eklediğim Label a "LÜTFEN BEKLEYİNİZ..." mesajı eklemek istedim. Ancak makronun çalıştığı esnada değil de işlem sonuçlandığında görünüyor.

 

[Haluk]

Merhaba;

Makro çalıştırıldıktan sonraki satıra,

DoEvents

satırını ilave edip de deneyin.

 

[ASMET67]

Haluk Hocam Ornek kodlama verebilirmisiniz.

 

[mnz]

Haluk bey teşekkürler çok hızlısınız.. ben de çözümü yazmak için gelmiştim.
Label.caption un altına yazdım.

 

[N.Ziya Hiçdurmaz]

yanıt

Örnek.

Private Sub CommandButton1_Click()
Label1.Caption = "Lütfen bekleyiniz."
DoEvents
For i = 1 To 10000
Range("a" & i) = i
Next
Label1.Caption = "İşlem tamam."
End Sub