aktif sayfa ismi renkli yazsın

[kneehot]

selamlar arkadaslar. kesın vardır ama bulamadım o yuzden actım konuyu.aktif sayfa isminin renklı (ornek kırmızı ) olarak yazmasını ıstıyorum.yardımlara tesekkurler.

 

[Merhum İdris SERDAR]

.


Sayfa kod bölümüne:

Private Sub Worksheet_Activate()
ActiveWorkbook.Sheets("Sheet1").Tab.ColorIndex = 3
End Sub

Private Sub Worksheet_Deactivate()
ActiveWorkbook.Sheets("Sheet1").Tab.ColorIndex = -4142
End Sub

yazın.

 

[kneehot]

.


Sayfa kod bölümüne:

Private Sub Worksheet_Activate()
ActiveWorkbook.Sheets("Sheet1").Tab.ColorIndex = 3
End Sub

Private Sub Worksheet_Deactivate()
ActiveWorkbook.Sheets("Sheet1").Tab.ColorIndex = -4142
End Sub

yazın.

sayın yurttas sanırım beceremedım sanırım yanlıs yere yapıstırıyorum.sayfaların kod kısmınada yapıstırıp denedım bucalısmakıtabı kısmına yapıstıp denedım hata verıyor.anlatabılırsenız cok sevınırım.

 

[Merhum İdris SERDAR]

.

Örnek dosya ekte.

.

 

[kneehot]

.

Örnek dosya ekte.

.

sayın yurttas ekledıgınız ornektede sadece Sheet1 aktıf olunca renklenıyor.benım aradıgım hangı sayfaya tıklarsam o renklensın.

 

[kneehot]

sayın yurttas kodu dıger sayfalarada yapıstırıp sayfa numaralarını guncelleyınce calısıyor fakat dosyamın 400 sayfası var.oyuzden daha genel calısan bır koda ıhtıyacım var.yardımcı olursanız sevınırım.

 

[Merhum İdris SERDAR]

sayın yurttas ekledıgınız ornektede sadece Sheet1 aktıf olunca renklenıyor.benım aradıgım hangı sayfaya tıklarsam o renklensın.

.

O zaman, her sayfanın kod bölümüne:

Private Sub Worksheet_Activate()
Me.Tab.ColorIndex = 3
End Sub

Private Sub Worksheet_Deactivate()
Me.Tab.ColorIndex = -4142
End Sub

yazın.

Örnek dosya ekte.

.

 

[kneehot]

bu benı baya bır ugrastırır sanırım 400 sayfada tesekkurler.

 

[Ömer]

Merhaba,

Alternatif olsun..

ThisWorbook sayfasına kopyalayınız..

Option Explicit
Public SayfaAdi As String
 
Private Sub Workbook_Open()
    SayfaAdi = ActiveSheet.Name
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
SayfaAdi = ActiveSheet.Name
    ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 3
End Sub
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error Resume Next
     ActiveWorkbook.Sheets(SayfaAdi).Tab.ColorIndex = xlNone
End Sub

.

 

[kneehot]

Merhaba,

Alternatif olsun..

ThisWorbook sayfasına kopyalayınız..

Option Explicit
Public SayfaAdi As String
 
Private Sub Workbook_Open()
    SayfaAdi = ActiveSheet.Name
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
SayfaAdi = ActiveSheet.Name
    ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 3
End Sub
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error Resume Next
     ActiveWorkbook.Sheets(SayfaAdi).Tab.ColorIndex = xlNone
End Sub

.

cok tesekkurler sayın omer