Popup mesaj kutusu kapanması bazen çok uzuyor.

[Kayıboyu1]

Verileri sıralattığım makroda 1 saniye sonra kendiliğinden kapanan mesaj kutusu bazen ekranda çok uzun kalıyor.

Private Sub CommandButton15_Click()
Sheets("Muzik").Select
Columns("A:L").Sort Key1:=Range("D2"), Order1:=xlDescending, Key2:=Range("A2"), Order2:=xlDescending, Key3:=Range("C2"), Order3:=xlAscending
Call muziklistele
CreateObject("WScript.Shell").Popup "Verileri Sıralama İşlemi Tamamlanıyor.. Mesaj kutusu kapanacak..", 1, "Excel.web.tr..."

End Sub

 

[Kayıboyu1]

40 kişi bakmış kimsenin ilgisini çekmemiş.

 

[Korhan Ayhan]

Selamlar,

"Call muziklistele" ifadesinin başına tek tırnak ekleyip kodunuzu tekrar test edin. Eğer popup pencerede bir yavaşlama sözkonusu değilse problemi "Call muziklistele" makrosundan dolayı yaşıyorsunuz demektir. Bu makronuzu incelemek gerekir.

 

[Kayıboyu1]

Sayın Korhan Ayhan,

"Call muziklistele" makrosunu en sona koydum (End Sub dan önce) işlem tamam. İlgi ve alakanıza sonsuz teşekkürler...