Sayfa Aktif olunca Mesaj ver

[ozkovlu]

Merhabalar;
Sayfa1 aktif olunca ekrana nasıl mesaj verdirebilir-im.
Saygılarımla...

Mesela, Sayfa1 seçince Ekranda "Sayfa1'e giriş yaptınız" yazsın.

 

[Ömer BARAN]

Merhaba.

Sadece belli sayfalar için uygulama istiyorsanız,
istediğiniz sayfanın adına fareyle sağ kılayıp KOD GÖRÜNTÜLEyi
seçtiğinizde açılacak VBA ekranının sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın.

Başka bir sayfadan kod'un uygulandığı sayfaya geçtiğinizde ekrana uyarı penceresi gelecektir.
.

Private Sub Worksheet_Activate()
MsgBox ActiveSheet.Name & " HOŞGELDİNİZ."
End Sub

 

[Orion1]

Thisworkbook modülüne

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox ActiveSheet.Name & " Aktif oldu."
End Sub

 

[ozkovlu]

Tam istediğim gibi, ancak Mesaj üzerindeki yazının boyutu ve renginde değişiklik yapabiliyor muyuz?
Saygılarımla...

 

[Orion1]

Tam istediğim gibi, ancak Mesaj üzerindeki yazının boyutu ve renginde değişiklik yapabiliyor muyuz?
Saygılarımla...

msgbox ta böyle bir özellik yok.

 

[YUSUF44]

Userform kullanarak ekteki dosyayı hazırladım, inceleyiniz:

https://drive.google.com/file/d/0B43WMUs21VpfTTJrZGlpekxMNnM/view?usp=sharing

 

[ozkovlu]

Mantıklı bir çözüm olmuş. Teşekkürler

 

[YUSUF44]

Dün bulamadığım bir özelliği bugün buldum. Dün her sayfanın kod bölümüne Userform'u gösterme kodu eklemiştim. Bunun yerine Kod sayfasında Sayfa1 ve Sayfa2'nin kodlarını silin ve Bu Çalışma Kitabı'nın (ya da This Workbook'un) kod bölümüne aşağıdaki kodları yapıştırın. Böylece dosyada yer alan her sayfada userform görünecektir. Tabi siz her sayfada değil de belirli sayfalarda görünmesini istiyorsanız ilk durumdaki gibi sadece ilgili sayfaların kod bölümüne Userform gösterme kodunu eklemelisiniz:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
UserForm1.Show
End Sub

 

[YUSUF44]

Şöyle daha güzel oldu sanki:

https://drive.google.com/file/d/0B43WMUs21VpfY2hPbm0zOVQxT1U/view?usp=sharing