İşlem bitene kadar ekrana yeni userform gelsin

[hsayar]

Arkadaşlar hep merak etmişimdir nasıl olur diye

Sub Command button1_click ()

dim .............

.....
for...
next...


Msgbox "işleminiz tamamlandı"

gibi kodlarımız var bu kodlara öyle bir revize olsun ki yeni bir userform açılsın
ondaki labelda

"işleminiz yapılıyor lütfen bekleyiniz" yazsın
Msgbox "işleminiz tamamlandı" satırından önce o usaerform kapansın

 

[xxcell]

Bunun için doevents komutunu kullanmanız gerekli.

 

[hsayar]

teşekkürler sn xxceel

bunun userform1 deki bütün komutları userform2 ye almak gerekli galiba.

müsait bir zamanda denemesini yaparım

 

[Haluk]

UserForm1 kodları:

Private Sub CommandButton1_Click()
    Unload Me
    UserForm2.Show False
    DoEvents
    For i = 1 To 5000
        Cells(i, 1).Select
        Cells(i, 1) = i
    Next
    Unload UserForm2
    MsgBox "Beklediğiniz için teşekkürler...."
    UserForm1.Show
End Sub

 

[hsayar]

Private Sub CommandButton1_Click()
    Unload Me
    UserForm2.Show False
    DoEvents
.....................
...............

    Unload UserForm2
    MsgBox "Beklediğiniz için teşekkürler...."
    UserForm1.Show
End Sub

sn haluk hocam teşekkür ederim


kodlar ......... belirttiğim alanda yer alacak anladığım kadarı ile çünkü ben adobb ile veri çekerekne kullanmayı düşünüyorum. sakınca yaratırmı

 

[hsayar]

sn haluk hocam userfom2 deki web browserda gif resmi (Türk Bayrağ&#305 varsa o dalgalanmıyor...
ne önerirsiniz

 

[Haluk]

UserForm üzerinde ne olduğu önemli değil, Vatanımızın toprakları üstünde dalgalanması herşeye bedel....

Excel'de görselliğe fazla kapılmayın, sonuçta hesap yapmak üzere tasarlanmış bir yazılım. Hangi dosyadan bahsettiğinizi de biliyorum, o dosya o şekilde çalışır ama sizin burada istediğiniz şekilde biraz kasılıyor....

 

[hsayar]

Hocam bütün amacım Lütfen bekleyinizde ekranın boş kalmaması biraz hareket kazanması
gif, progressbar, yürüyen ışık kayan yazı her neyse

yaniş hareketli mesajbox gibi birşey istiyorum.