Ekranda kalan MsgBox

[muratgunay48]

Arkadaşlar, sayın hocalarım, şöyle bir kod kullanıyorum,

Sub rapor()
'MsgBox "Lütfen bekleyin raporlar dönüştürülüyor.", vbInformation
'Böyle koysam, TAMAM tıklamam gerekiyor. Diğer MsgBox'a gelene kadar ekranda kalacak. Yani Tamam yazısı olmayacak. Makroyu çalıştıracak. MsgBox gelince MsgBox çalışacak. Mümkün mü?
Call aaa
Cal bbb
Call ccc
'Böyle baya var
MsgBox "Tüm Excel raporlar PDF formatında kaydedildi.", vbInformation
End Sub

Şimdiden teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Belki faydalı olabilir..

https://www.excel.web.tr/threads/makro-ile-islem-yapilirken-lutfen-bekleyiniz-uygulamasi.195525/

 

[muratgunay48]

Belki faydalı olabilir..

https://www.excel.web.tr/threads/makro-ile-islem-yapilirken-lutfen-bekleyiniz-uygulamasi.195525/

Hocam silinebilir diye belirtmişsiniz zaten ama bu kadar çabuk silinmezdi. Acaba Dosyam sunucusunda bir hata mı oluştu?

 

[Korhan Ayhan]

Siz altın üyesiniz. Forum linkinden indirebilirsiniz. Harici linkler 1 hafta içinde ölüyor..

 

[muratgunay48]

Siz altın üyesiniz. Forum linkinden indirebilirsiniz. Harici linkler 1 hafta içinde ölüyor..

Hocam o gözümden kaçmış pardon.
Hocam tam anlamadım kusura bakmayın.

Ben kodlarımı şu araya mı yazacağım?

Private Sub UserForm_Activate()
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Dim X As Long, Son As Long
Son = 10000
For X = 1 To Son
DoEvents
Cells(1, 1) = X
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Me.Label2.Caption = Format(X / Son * 100, "% 0.00")
Next
Application.Wait Now + TimeSerial(0, 0, 2)
Unload UserForm1
End Sub

 

[Korhan Ayhan]

Evet..

Ama Label2 size doğru yüzdesel değeri vermeyecektir. Dilerseniz onu silebilirsiniz.

 

[muratgunay48]

Evet..

Ama Label2 size doğru yüzdesel değeri vermeyecektir. Dilerseniz onu silebilirsiniz.

Hocam şu an deniyorum.

 

[muratgunay48]

Evet..

Ama Label2 size doğru yüzdesel değeri vermeyecektir. Dilerseniz onu silebilirsiniz.

Sub renk()

UserForm1.Show 0 'Bekle ekranı çalıştır

    Range("D1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
MsgBox "İşlem tamamlandı"

End Sub

Hocam bu şekilde düşündüm ama UserForm kapanmıyor.