EXEL DOSYASINI AÇTIĞIMDA MSJBOX BİR DEFA GELSİN

[comp_wolf]

iyi geceler üstatlar,
yine sizlerin engin bilgilerine ihtiyacım var. yardımınız ile bir konuyu daha çözmeye çalışacağım.

şimdi benim bir adet exel dosyam var ben bu exel dosyamı açtığımda
sayfa3 buton 4 e tıkladığım zaman ekrana uyarı diye bir msj box ile msj geliyor ve tamam deyince sayfa 2 ye geçiyor.
ama sayfa 2 de işlemi bitince tekrar sayfa 3 e geliyorum unuttuğum bir işlem olduğunu fark ediyorum ve tekrar sayfa 3 deki buton 4 e tıklıyorum.
tabikide buton 4 e tıklamam ile yine msj box geliyor ekrana.
ve bu işlem 4 yada 5 sefer olabiliyor en az. ekrana her geçişte msj gelmesi bazen sinir bozucu olabiliyor.
o yüzden ben sadece ilk tıklamada gelmesini daha sonra exel dosyasını kapatana kadar kaç sefer daha sayfa 3 buton 4 e tıklasam da msj box ın gelmemesini istiyorum.
bana bu konuda yardımcı olabilirseniz çok sevinirim.
iyi geceler.
çok teşekkür ederim şimdiden herkese

 

[Orion1]

Dosya linki aşağıdadır.

DOSYAYI INDIR


Standart bir modüle;

Global x As Boolean

Butonun bulunduğu modüle

Sub Düğme1_Tıklat()
If x = False Then
    MsgBox "Sayfa2 ye geçiyor.", vbOKOnly
    x = True
End If
Sheets("Sayfa2").Select
End Sub

 

[comp_wolf]

Orion1
üstat çok teşekkürler yardımın için.