Mesaj Kutusu

[kutlu]

Merhaba arkadaşlar?

Oluşturduğum br excel tablosunda veriler için sorgu makroları oluşturdum. Bunuda döngü kalıpları içinde yaptığımdan bir çok verinin karşılaştırması yapılıyor, dolayısıyla işlem bazen uzun sürebiliyor.

Arkadaşlar sizden isteğim bu işlemler devam ederken bir mesaj kutusu vb. ' inde "İşleminiz devam ediyor" gibi bir mesajın verilmesi, işlem bittiğinde de kendiliğinden kaybolması.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Kemal Demir]

Sub x()
' x dongusu hayal sadece yazılması gerekn yer için belirtmek istedim.

for x= 1 to 100
'hayal kodlar
if Cells........
..
..
MsgBox("Her Dongu Tamamlanınca Cıkar buda Zahmetli Olacaktıır")

next
MsgBox("İşlem Bitti")
End Sub