Msgbox bir kez açılsın

[cocoa35]

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.

 

[Muzaffer Ali]

Merhaba.

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

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]

Merhaba.

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

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