sayfa başında exel yazısını değiştirme

[mutluedenercan]

Sayfayı açınca mevi pencerdeki exel yazısını değiştirme mümkünmü

 

[Orion1]

buyurun.
thisworkbook modülüne.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Caption = "bu sayfa adı :" & ActiveSheet.Name
End Sub

 

[PLİNT]

Sayfayı açınca mevi pencerdeki exel yazısını değiştirme mümkünmü

Merhaba

 application.caption="mutluedenercan"

şeklinde deneyin.

 

[mutluedenercan]

orion Hocam, çalıştı ama , ilk açışta çalışmıyor , sayfa sekmesine basınca veya sayfa değiştirince çalışıyor....

 

[Orion1]

orion Hocam, çalıştı ama , ilk açışta çalışmıyor , sayfa sekmesine basınca veya sayfa değiştirince çalışıyor....

ona ilaveten open olayınıda aşağıdaki gibi olmalı.

Private Sub Workbook_Open()
Application.Caption = "bu sayfa adı :" & ActiveSheet.Name

End Sub