Msgbox bir kez açılsın

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Merhaba arkadaşlar; ek'li dosyada sayfa1'e girildiğinde msgbox açılıyor ancak her girişde açılmasını istemiyorum. Kitap bir kez açılıp sayfaya ilk girişte açılsın sonraki girişlerde açılmasın. Bu şekilde kütüphanede aradım ancak bulamadım, yardımcı olurmusunuz. Teşekkürler.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Var olan kodları silin aşağıdakileri kopyalayın.

Kod:
Dim IlkGiris As Boolean
Private Sub Worksheet_Activate()
    If Not IlkGiris Then MsgBox "Lütfen verilerinizi güncelleyiniz...", vbInformation, "Veri güncelleme.."
    IlkGiris = True
End Sub
 

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Merhaba.

Var olan kodları silin aşağıdakileri kopyalayın.

Kod:
Dim IlkGiris As Boolean
Private Sub Worksheet_Activate()
    If Not IlkGiris Then MsgBox "Lütfen verilerinizi güncelleyiniz...", vbInformation, "Veri güncelleme.."
    IlkGiris = True
End Sub
Çok teşekkürler muzaffer bey, gayet güzel oldu
 
Üst