Sayfa Adı'na Tıklayınca Mesaj Almak

[1Al2Ver]

Merhaba,

Sayfanın kodunda kayıtlı, aşağıdaki kod ile aktif sayfa için, mesaj alıyorum,

Private Sub Worksheet_Activate()
MsgBox " ZORUNLU ; Pazartesi_Öğle Sayfasında Değişiklik Yaptıysanız, Sayfayı Güncellemek İçin, LİSTELE Düğmesini Tıklayınız !"
End Sub

Benim istediğim ;

Sayfa adı'na (Örneğin ; Pazartesi_Öğle) tıklandığında, sadece o isimdeki sayfaya ait mesajı almak,

Diğer bir ifade ile ; Kod'da sayfanın isminin olması arzuluyorum,

NOT ; "Pazartesi_Öğle" sayfasında, aşağıdaki kod var,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [S1]) Is Nothing Then Exit Sub
    Call SIRALI_FİLTRE_ÖĞLE
End Sub

Teşekkür ederim.

 

[Korhan Ayhan]

İstediğiniz bu mu?

Private Sub Worksheet_Activate()
MsgBox " ZORUNLU ; " & ActiveSheet.Name & " Sayfasında Değişiklik Yaptıysanız, Sayfayı Güncellemek İçin, LİSTELE Düğmesini Tıklayınız !"
End Sub

 

[1Al2Ver]

Sayın Korhan Ayhan, merhaba,

İlginiz için teşekkür ederim,

Hayır, istediğim bu değil, bu kodu denedim, geçmişte bir üyemiz, bir soru üzerine cevaplamış,

1 no.lu mesajıma eklemek istediğim bir ayrıntı var, belki konuyla ilgisi bile yoktur, "Pazartesi_Öğle" ve bir kaç tane daha sayfaya, bir userform üzerindeki düğmeyi tıklayarak ulaşıyorum,

Belki de önerdiğiniz kod bu nedenle benim arzuladığım sonucu veremiyordur,

Arzum, mesajı , her hangi bir sayfayı tıklayarak değil, açılan sayfalar içinde benim istediğim ve tıkladığım sayfada görmek,

Teşekkür ederim.

 

[Korhan Ayhan]

Örnek dosya ekleyerek tarif edebilir misiniz?

 

[1Al2Ver]

Sayın Korhan Ayhan, tekrar merhaba,

Asıl dosyadan oluşturmaya kalkacağım örnek dosya, çok girift ve formüller-makrolar vb. içermekte,

Açıkçası çok zamanımı alacağına ve dosyayı oluştururken hata yapma oranımın fazla olacağına inanıyorum, bu nedenle cesaret edemedim desem yeridir.

Ancak, yeni bir dosya hazırlayarak, önerdiğiniz kodu denedim ve başarılı sonuç aldım, hâl böyle olunca sıkıntının kaynağının, çok emin olmamakla birlikte UF üzerindeki düğmeler olabileceğine inanıyorum,

Mesajı verdirmenin başka bir yolunu bulamazsam şimdilik vaz geçeceğim,

İlginiz ve zaman ayırarak gösterdiğiniz nezaketiniz için, tekrar teşekkür ederim,

Saygılarımla.