Sayfayı seçince açıklama görünsün

[hakan666]

Arkadaşlar merhaba

excelde herhangi bir sayfayı seçtiğimizde istediğim bir açıklama görünmesini istiyorum. Nasıl yapabilirim.Aşağıda bir örnek var ama bir türlü olmadı. Yardımcı olabilir misiniz.


Saygılarımla


Sub macro22()
MsgBox "In case of a discrepancy between the total amounts of PO on the order template and on proforma invoice , proforma invoice will be valid."
End Sub


Private Sub Workbook_SelectionChange(ByVal Target As Range)
If Target.book("H").Select.Value Then macro22
End Sub

 

[hamitcan]

Sayfanın ThisWorkBook kısmına ekleyin.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name & " isimli sayfayı seçtiniz"
End Sub

 

[hakan666]

Teşekkürler ancak istediğim tam olarak bu değildi. Belirtilen makroda bütün sayfalarda açıklama veriyor. Ben sadece seçeceğim bir sayfada olsun istiyorum.

Saygılarımla

 

[hamitcan]

if sh.name = "Sayfa1" then ....

şeklinde kullanabilirsiniz.

 

[hakan666]

Hocam Çok teşekkür ederim.

Saygılarımla