silme işlemi tamamlana kadar görüncek mesaj

[dbicer83]

arkadaşlar buton yardımıyla sayfaları silme işlemi yapıyorum sayfalar çok olduğu için zaman uzun sürüyor. kilitlenmiş gibi oluyor excel o yüzden silme işlemi devam ederken nasıl bir mesaj alabilirz. msgbox üzerinde geri sayım gibi falan teşekkürler arkadaşlar

 

[baranseren]

arkadaşlar buton yardımıyla sayfaları silme işlemi yapıyorum sayfalar çok olduğu için zaman uzun sürüyor. kilitlenmiş gibi oluyor excel o yüzden silme işlemi devam ederken nasıl bir mesaj alabilirz. msgbox üzerinde geri sayım gibi falan teşekkürler arkadaşlar

boş bi userform açarsınız üzerine gif animasyonu eklersini yada swf flash animasyonu ekran ayarlarından center edip 100*200 çözünürlük yaparsın form büyüklüğünü

silme satırının öncesine
userformdeletewait.show
işlem bitince
userformdeletewait.hide

eklersiniz tamadır umarım yardımcı olmuşumdur.
Timer olaram msgbox ile yapmanız kullanışsız olur çünkü msgbox onaylamadan işlem devam etmez.

 

[dbicer83]

Sub Temizlik()
If MsgBox("Bütün Beyaz Renkli Hücreler Silinecek", vbYesNo) = vbYes Then
basadon:
MsgBox Format(Now, "mmddyyyy")
If InputBox("Şifreyi Giriniz") = Format(Now, "mmddyyyy") Then
For i = 2 To Worksheets.Count
For Each Hucre In Sheets(i).UsedRange.Cells
If Hucre.Interior.ColorIndex = 2 Then Hucre.Value = ""
Next
DoEvents
Next i
MsgBox "Temizleme İşlemi Tamamlandı", vbInformation
Else
If MsgBox("Şifre Doğru Değil, Tekrar Denemek İster Misiniz?", vbYesNo) = vbYes Then GoTo basadon
End If
Else
MsgBox "Herhangi bir işlem yapılmadı", vbInformation
End If
End Sub

uyarlabilirmiyiz