İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
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.
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.