Userform'da değişken uyarı

[heft]

Merhaba
Bir dosyamda uzun bir makro var(1-2 dk sürüyor) , şöyle bir şey yapmaya çalıştım;
Userform1 ve Label1 ekledim

çalışan makro aralarına da;

UserForm1.Label1.Caption = "Ham veri alınıyor"
.
UserForm1.Label1.Caption = "Hesaplanıyor"
.
UserForm1.Label1.Caption = "% ler bulunuyor"
.
UserForm1.Label1.Caption = "İşlem Bitti"

ekledim ama çalışmıyor, neyi atlıyorum?

 

[denemetor]

Merhaba,

UserForm'u vbModeless ile cagirmayi denediniz mi? Yani soyle;

UserForm1.Show vbModeless

 

[heft]

Şimdi denedim yine olmadı.

 

[alicimri]

Userform'un ShowModal özelliğini False yapın. Kod örneği aşağıdaki gibidir.

Sub a()
UserForm1.Show
DoEvents
UserForm1.Controls("Label1").Caption = "A1 hücresi seçiliyor"
'Çalışan kodlarınız...............
DoEvents
'Çalışan kodlarınız...............
DoEvents
UserForm1.Controls("Label1").Caption = "A1 hücresine 'İşlem bitti"
End Sub

 

[alicimri]

Yukardaki kodu düzelttim. Eksiklik varmış.

 

[heft]

Çok teşekkür ederim