sheet' lerin açılışlarında mesaj verme

[dead cities]

arkadaşlar selamlar, ekteki dosyada her bir sheet tıklandıkça 1, 2, 3 şeklinde farklı uyarılar almam gerekiyor. örneğin, CBV sheetine tıklandığında ekrana "1" uyarısı, ÇStM-U sheet' ine tıklandığında "2" uyarısı gelsin istiyorum...
bunu
Sub Auto_open()
Beep
MsgBox "1"
End Sub
ile yapmaya çalıştım. olmadı.

ilginize teşekkürler.

 

[İhsan Tank]

arkadaşlar selamlar, ekteki dosyada her bir sheet tıklandıkça 1, 2, 3 şeklinde farklı uyarılar almam gerekiyor. örneğin, CBV sheetine tıklandığında ekrana "1" uyarısı, ÇStM-U sheet' ine tıklandığında "2" uyarısı gelsin istiyorum...
bunu
Sub Auto_open()
Beep
MsgBox "1"
End Sub
ile yapmaya çalıştım. olmadı.

ilginize teşekkürler.

merhaba
eki inceleyin

 

[uzmanamele]

merhaba

bu işinizi görür mü?

ThisWorkbook kod bölümüne yazarak deneyiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox Application.WorksheetFunction.Substitute(ActiveSheet.CodeName, "Sayfa", " ")
End Sub

 

[dead cities]

elinize sağlık, çok teşekkür ederim.

 

[İhsan Tank]

elinize sağlık, çok teşekkür ederim.

rica ederim
kolay gelsin :mutlu: