Rapor hazırlanırken bilgi verilmesi.

[İsmail Küçükşengün]

Merhabalar;

On Error Resume Next
Dim a As Integer

Sheets("liste").Select

Columns("a:ab").Copy
Sheets("raporlar").Select
Columns("BO").PasteSpecial
Application.CutCopyMode = False
Sheets("liste").Select
For a = 28 To 1 Step -1
If Controls("checkbox" & a).Value = False Then Sheets("raporlar").Columns(a + 66).Delete
Next

Sayfa58.Range("BO1").Select

………………………….

……………………………………………

ve devam eden kod.la Userform üzerinden işaretlenen checkbox.larla
raporlama yaptırıyorum.

Raporlama bittiğinde;

MsgBox "İstenen Kriterlere göre Rapor, RAPORLAMA SAYFASINA YAZILDI.",

şeklinde mesaj gelmektedir.

Fakat Raporlama yapılana kadar birkaç saniye zaman geçmektedir.

MsgBox çıkana kadar, Userformun alt kısmına (mesela bir label üzerine):

"Raporlama yapılmaktadır. Lütfen Bekleyiniz."

şeklinde bir yazı çıkması için kodun neresine ve ne şekilde bir ilave
gerekmektedir.

Şimdiden Teşekkürler.

 

[ocamsul]

Private Sub UserForm_Activate()
Zaman = 60
Do Until Zaman <= 0
DoEvents
Zaman = Zaman - 1
Me.Label15.Caption = Zaman
t = Timer
Do While Timer < t + 1
DoEvents
Loop
Loop
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Zaman = 0
End Sub

Kendinize uyarlarsınız artık. iyi çalışmalar. burada form 60 sn sonra otomatik kapanır.

 

[İsmail Küçükşengün]

Sn. ocamsul;

İlginize teşekkür. Fakat ben, formun kapanmasını değil, raporlama yapılana
kadar, formun alt kısmında "Raporlama yapılmaktadır. Lütfen Bekleyiniz."
şeklinde yazı çıkmasından bahsetmiştim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir excel sayfasında uygulayarak denermisiniz.

Private Sub CommandButton1_Click()
Label1.Caption = " RAPORLAMA İŞLEMİ DEVAM EDİYOR. LÜTFEN BEKLEYİNİZ..."
Columns(1).Clear
DoEvents
For X = 1 To 10000
Sheets(1).Cells(X, 1) = X
Next
Label1.Caption = "RAPORLAMA İŞLEMİ TAMAMLANMIŞTIR."
End Sub

 

[İsmail Küçükşengün]

Sayın Cost Control,

Verdiğiniz kodu direk çalışmamdaki butona ekledim.

Çok güzel oldu.

Teşekkür ve saygılarımla, k::