Sayfalar Arası Geçiş Uyarı

[skaan]

Merhaba;
Sayfalar arası geçiş yaparken Örneğin Sayfa1 den Sayfa2 yada Sayfa3 ....vs otomatik uyarı vermek istiyorum. Örneğin " Sayfa3 Geçiş yaptınız" gibi..
Bunu yapmam mümkünmü acaba..?
Yardımcı olursanız çok sevinirim.. hayırlı günler dilerim..
Saygılarımla
SKaan

 

[Vedat Özer]

Selamlar,


Arşivimde bir dosya buldum işinize yarayabilir.

 

[İhsan Tank]

Merhaba;
Sayfalar arası geçiş yaparken Örneğin Sayfa1 den Sayfa2 yada Sayfa3 ....vs otomatik uyarı vermek istiyorum. Örneğin " Sayfa3 Geçiş yaptınız" gibi..
Bunu yapmam mümkünmü acaba..?
Yardımcı olursanız çok sevinirim.. hayırlı günler dilerim..
Saygılarımla
SKaan

kitabınızın kod bölümünde bulunan Thisworkbook bölümüne

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox ActiveSheet.Name & " Geçiş Yaptınız"
End Sub

bu kodu yapıştırın ve deneyin.

 

[skaan]

Sayın Vedat Ozer ve Ihsan Tank ustadlar yardımlarınız için çok teşekkür ederim..
Saglıcakla kalın..
Saygılar
Skaan

 

[İhsan Tank]

Sayın Vedat Ozer ve Ihsan Tank ustadlar yardımlarınız için çok teşekkür ederim..
Saglıcakla kalın..
Saygılar
Skaan

rica ederim
:yazici: