userforma kalan süre yazdır-yorum yokmudur

[atöz]

Bu konuda yardım edebilecek bi üstat yok mu acep...

Selamlar,
Üstatlara iki sorum olacaktı.

1- Makro çalışırken ekrandaki userformdaki textboxa kalan süreyi yazdırabiliyormuyuz.(30 sn sonra çalışma tamamlacak gibi..)

2- Benzer bir şekilde makronun çalışması bittikten sonra, ekranda örneğin "30 sn sürdü" şeklinde bir mesaj nasıl yazdırabiliriz.

Yardımlar için şimdiden teşekkürler.

 

[Kullanıcı_Adı]

Bu tamamen senin programlama/matematik bilgine ve makronun içeriğine bağlı. Faydası olacaksa basit bir örnek göstereyim,



Private Sub Worksheet_Activate()

bitis = 65000
baslangic = Now()

For n = 2 To bitis

Cells(n, 1).Value = n
Cells(1, 1).Value = "İşleminiz yapılıyor. %" & Int(n * 100 / bitis) & " Tamamlandı !"

Next


Cells(1, 1).Value = "İşleminiz yapıldı. " & Int(((Now() - baslangic) * 24 * 60 * 60)) & " sn.de Tamamlandı !"

End Sub