Bir Makro Çalışırken Ekrana "Bekleyin" Uyarısı Gelir mi ?

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Merhaba arkadaşlar. Bir makro işlevini yaparken bu çalışma esnasında ekranda "Bekleyiniz" uyarısı belirebilir mi ? Örnek dosya ekte. Yardımcı olanlara şimdiden teşekkrüler.

Not: Benzer konulşarı araştırdım. Ancak benim aradığım şekilde bir çözüm bulamadım.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,647
Excel Vers. ve Dili
Pro Plus 2021
Bekleme mesajı içeren bir userform düzenleyip, kodlarınızın başında formu gösterip, kodların bitiminde gizleyebilirsiniz.

Kod:
Sub Dene()
UserForm1.Show False
'kodlarınız
'
'
'
'
UserForm1.Hide
End Sub
 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Teşekkürler

Sayın veyselemre, yardımlarınız için çok teşekkürler. İyi çalışmalar.
 
Katılım
11 Temmuz 2009
Mesajlar
225
Excel Vers. ve Dili
Excel 2013 Türkçe (64 Bit)
Altın Üyelik Bitiş Tarihi
29.01.2019
Merhaba Arkadaşlar,

Bu örnek makro çalışırken ekrana açıklama formu gelmesi için güzel bir uygulama ancak benim dosyama form eklediğimde makro çalışırken form pasif oluyor.Yani formun içeriği Text veya labeller ile açıklama yazdığım kısım beyaz ekran oluyor,sanki arka planda kalıyormuş gibi,sadece form başlığını aktif görebiliyorum.Bunun nedeni ne olabilir acaba, daha önce böyle bir durum ile karşılaşan arkadaş var ise yardımcı olabilir mi?

Teşekkürler,
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,330
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kullanılan kod;
Kod:
Option Explicit
 
Sub TEST()
    Dim X As Long
    UserForm1.Show 0
        For X = 1 To 10000
        DoEvents
        Cells(1, 1) = X
        Next
    Unload UserForm1
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Kod:
Option Explicit
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
End Sub
 

Ekli dosyalar

Üst