makro etkinleşirken ekran titremesi?

[soyga0123]

Merhaba,
Excel 2007 'de aktivex komut butonuna ön izleme kodu yazdım ancak tıkladığımda ön izleme sayfasına geçerken ekran titriyor aynı şekilde ön izlemeyi kapattığımda da titriyor. Bunu engellemem mümkün mü? Yani tıklayınca windows'da klasöre girer gibi doğrudan ön izlemenin gelmesi mümkün mü? Bir de yazdır butonuna tıkladığımda karşılama mesajı çıkmasını istiyorum "Yazdırmak istediğinize emin misiniz? EVET/HAYIR" şeklinde. Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Ömer]

Merhaba,

Kodların başına;

Application.ScreenUpdating = False

Bu satırı eklerseniz ekran hareketlerini görmezsiniz.

Yazdır da sorgu için:

    Dim sor As String
 
    sor = MsgBox("Yazdırmak istiyormusunuz?", vbYesNo)
    If sor = vbYes Then
       [COLOR=red] 'kodlarınız.
[/COLOR]    End If

.

 

[soyga0123]

Merhaba,

Kodların başına;

Application.ScreenUpdating = False

Bu satırı eklerseniz ekran hareketlerini görmezsiniz.

Yazdır da sorgu için:

    Dim sor As String
 
    sor = MsgBox("Yazdırmak istiyormusunuz?", vbYesNo)
    If sor = vbYes Then
       [COLOR=red] 'kodlarınız.
[/COLOR]    End If

.

Çok teşekkür ediyorum Allah razı olsun Hocam ekran hareketleri ile ilgili olan kodu nereye katmam gerekiyor? Ön izleme butonuna kattım bir şey değişmedi. :frown:

 

[Ömer]

Sub Onzileme()
 
    Application.ScreenUpdating = False
       [COLOR=red] 'kodlarınız
[/COLOR]    Application.ScreenUpdating = True
    
End Sub

Gibi.

.

 

[soyga0123]

Sub Onzileme()
 
    Application.ScreenUpdating = False
       [COLOR=red] 'kodlarınız
[/COLOR]    Application.ScreenUpdating = True
    
End Sub

Gibi.

.

Tamam. Tekrar teşekkürler :bravo::bravo::bravo: