Sayfa açtığımda otomatik uyarı versin

[svtcsn]

Arkadaşlar excel çalışma kitabında çalışırken sayfa geçişlerinde sayfa ile ilgili otomatik bilgi vermesini istiyorum mümkünatı varmıdır yardımcı olurmusunuz

 

[hamitcan]

Not: ThisWorkBook kısmına ekleyin.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 If Cells([e65536].End(3).Row, "e") = 0 Then
    MsgBox "Bakiye 0, hesap kapalı"
 Else
    MsgBox "Bakiye : " & Cells([e65536].End(3).Row, "e") & " dir."
 End If
End Sub

 

[svtcsn]

sevgili hamitcan kardeşim allah senden razı olsun çook teşekkür ederim

 

[svtcsn]

Sayın hamıtcan hocam peki bunu her sayfa için kendim ayrı uyarılar verdirmem mümkünmüörneğin x sayfayı açtığımda toplam sukadar borçu vardı sukadar tahsil edildilerek hs. Kaparndı gibi