Her worksheet için ayrı msg box

[ozafak]

Herkese Merhaba,
Elimizde 4 worksheetli bir workbook var diyelim. Herbir çalışma sayfası için ayrı bir msg box ekleyebilir miyiz? Bende olan ve aşağıda verdiğim kod, dosya açıldığında çalışıyor. Ama ben her bir çalışma sayfasını açtığımda o sayfaya ait ayrı bir mesaj kutusu açılsın istiyorum. Bu mümkün müdür? Şimdiden teşekkürler...


Private Sub Workbook_Open()
MsgBox "......dosya hazırlanmıştır." & vbCrLf & vbCrLf & _
"1) Açıklama 1" & vbCrLf & vbCrLf & _
"2) Açıklama 2" & vbCrLf & vbCrLf & _ vbInformation, "AÇIKLAMALAR"

End Sub

 

[Orion1]

Merhaba.
Aşağıdaki kodu Çalışma sayfasının ThisWorkboook Bölümüne yazarak denermisiniz?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "[ " & ActiveSheet.Name & " ] " & "İsimli Sayfa Açıldı..!!", vbOKOnly, ActiveSheet.Name
End Sub

 

[ozafak]

Sevgili Sezar, Çok teşekkür ediyorum gerçekten.. Kodlar çalıştı. Kaç gündür uğraşıyordum bulamamıştım. Emeğine sağlık üstad. Yalnız bu kodda her sayfa için ayrı mesaj yazmam gerek. Yani demek istiyorum ki 1.sayfa bilgi amaçlıdır. 2.sayfa kişilerce doldurulacaktır. 3.sayfa için bu sayfada işlem yapılmayacaktır gibi...Her sayfa için ayrı ayrı deneyebilir miyiz?

 

[Orion1]

Sevgili Sezar, Çok teşekkür ediyorum gerçekten.. Kodlar çalıştı. Kaç gündür uğraşıyordum bulamamıştım. Emeğine sağlık üstad.

Rica ederim.
İyi çalışmalar.

 

[Seyit Tiken]

Her sayfanın kod bölümüne aşağıdaki kodu yazıp, kendinize göre revize ediniz.

Private Sub Worksheet_Activate()
MsgBox "İstenilen bilgileri giriniz", vbInformation
End Sub

 

[ozafak]

Sevgili Seyit Tiken tam istediğim gibi oldu. Kocaman teşekkürler. Emeğine sağlık..