Mesaj Kutusu otomatik kapanma

[asdsxx]

Arkadaşlar excelde "UserForm1" ve "UserForm2" iki tane UserForm var ben bunları komut ile birini kapatıp diğerini açarken (bu geçen sürede) mesaj kutusu çıkıp hangi formun açıldığına dair bilgi vermesini, istenilen form açılınca da otomatik kapanmasını istiyorum.
Ben bir kod uyarlamaya çalıştım ama Mesaj kutusundaki "Tamam" butonuna tıklatmadan diğer form açılmıyor.

Private Sub CommandButton1_Click()
Unload Me
MsgBox Prompt:="Form2 açılıyor. Lütfen bekleyiniz", _
Title:="............"
UserForm2.Show
MsgBox Unload
End Sub

'Yukarıda UserForm1 de iken komut butonu ile UserForm2 açılırken mesaj verecek ve Form2 açılınca_
otomatik kapanacak

 

[Haluk]

Private Sub CommandButton1_Click()
    Set myMsgBox = CreateObject("WScript.Shell")
    Setup = 1   '(Bekleme suresi 1 san.)
    Unload Me
    myMsgBox.Popup "Form2 açiliyor. Lütfen bekleyiniz.", Setup, "Dikkat...!", vbCritical
    UserForm2.Show
End Sub

.

 

[asdsxx]

Private Sub CommandButton1_Click()
    Set myMsgBox = CreateObject("WScript.Shell")
    Setup = 1   '(Bekleme suresi 1 san.)
    Unload Me
    myMsgBox.Popup "Form2 açiliyor. Lütfen bekleyiniz.", Setup, "Dikkat...!", vbCritical
    UserForm2.Show
End Sub

.

Haluk Bey ilginize teşekkür ederim. Benim asıl kasteddiğim bir süre ile değil de istedğim Form2 açıldıktan sonra otomatik kapanması.
Bu mümkün mü acaba
Tekrar teşekkürler...

 

[Haluk]

Onu maalesef bilemeyeceğim....

.

 

[asdsxx]

Onu maalesef bilemeyeceğim....

.

Peki bu kodda çalışma mantığı: açılmak istenilen Form, Mesaj kutusu 1 saniye göründükten sonra mı açılmaya başlıyor, yoksa Form2 açılış süresi içinde mi 1 saniyelik mesaj kutusu mu görünüyor.
Mesala ben 1 saniye değil de 5 saniye yapsam Form2 Mesaj kutusu 5 saniye ekranda ilen açılmaya başlar mı, yoksa 5 saniye bittikten ve mesaj kutusu kapandıktan sonra mı Form2 açılmaya başlar.

 

[Haluk]

5 saniye sonra mesaj kutusu kapanır, daha sonra Form2 yüklenir...

.

 

[asdsxx]

iki form açılış süresi biraz uzun sürüyor yaklaşık 8-10 saniye kadar. (Veri çok olduğu için form yükleyip açmak uzun sürüyor) ben bu arada mesaj kutusunun açılıp "Form2 açılıyor, lütfen bekleyiniz" mesajı çıkmasını istiyorum. Yani aradaki boş zaman mesaj kutusu ile geçiştirilmesi için ne yapılabilir.

 

[Asri]

@Haluk bey in kodlarının ek olarak.

userform1 de Userform2 yi gösteren butonu tıkladığınızda.
userform2 açılacak. Açılırken 1 sn sonra mesajı gösterecek ancak o arada açılmaya devam edecek.
Mesaj da süresi dolduğunda kapanacak.

Userform1 e bunu ekleyin.

Private Sub CommandButton1_Click()
   Unload Me
   UserForm2.Show
End Sub

Userform2 ye bunu ekleyin.

Private Sub UserForm_Initialize()
  Application.OnTime Now() + TimeValue("00:00:01"), "mesajgoster"
End Sub

Modul1 e bunları ekleyin.

Sub formgoster()
   UserForm1.Show
End Sub

Sub mesajgoster()
    Set myMsgBox = CreateObject("WScript.Shell")
    Setup = 4   '(Bekleme suresi 1 san.)
    myMsgBox.Popup "Form2 açiliyor. Lütfen bekleyiniz.", Setup, "Dikkat...!", vbCritical
End Sub