Sayfa sekme butonlarına renk vermek.

[Orion1]

Mrb.
Sayfa1 sayfa sekme butonu Kırmızı , sayfa2 sayfa sekme butonu rengi Mavi olsun istiyorum.
Teşekkür ederim.
İyi çalışmalar.

 

[Levent Menteşoğlu]

Bunun için sekmenin üzerine sağklik yapın, açılan pencerede sekme rengini değiştirme menüsünü göreceksiniz.

 

[Orion1]

Bunun için sekmenin üzerine sağklik yapın, açılan pencerede sekme rengini değiştirme menüsünü göreceksiniz.

Mrb.
Sn.Leventm,Gönderdiğiniz yanıt için teşekkür ederim.
Ben bu işlemi VBA kod'u (Makro) yazarak yapabilirmiyim.
Teşekkür ederim.
İyi çalışmalar.
:hey:

 

[Tarkan VURAL]

Sheets("Sayfa1").Tab.ColorIndex = 3
Sheets("Sayfa2").Tab.ColorIndex = 5

makro kaydet ile işlemi yapıp otomatik yazılan kodları incelemenizi tavsiye ederim.

 

[Orion1]

Sheets("Sayfa1").Tab.ColorIndex = 3
Sheets("Sayfa2").Tab.ColorIndex = 5

makro kaydet ile işlemi yapıp otomatik yazılan kodları incelemenizi tavsiye ederim.

Sn.Tarkan VURAL gönderdiğiniz kodlar için teşekkür ederim.
İyi çalışmalar.
:hey:

 

[Resspect]

Peki sayfada herhangi br hücrede değer varsa sayfa sekme rengi sarı olsun? Bunu nasıl yapabilirim makro ile.

 

[Korhan Ayhan]

Deneyiniz.

Sub SEKME_RENKLENDİR()
    Dim Sayfa As Worksheet
    For Each Sayfa In ThisWorkbook.Worksheets
        If WorksheetFunction.CountA(Sayfa.Cells) > 0 Then
            Sayfa.Tab.ColorIndex = 6
        Else
            Sayfa.Tab.ColorIndex = xlNone
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[GursoyC]

Merhaba,
Buradaki kodlardan yola çıkarak kendim uyarlamaya çalıştım ancak beceremedim.
sayfa 1'de X14 hücresinde "ty" yazıyorsa sekme rengini mavi, "kt" yazıyorsa kırmızı yapmak için nasıl bir kod yazmam gerekir acaba?

 

[Korhan Ayhan]

Deneyiniz.

Sub SEKME_RENKLENDİR()
    If Sheets("Sayfa1").Range("X14").Value = "ty" Then
        Sheets("Sayfa1").Tab.ColorIndex = 5
    ElseIf Sheets("Sayfa1").Range("X14").Value = "kt" Then
        Sheets("Sayfa1").Tab.ColorIndex = 3
    Else
        Sheets("Sayfa1").Tab.ColorIndex = xlNone
    End If
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[GursoyC]

Çok teşekkür ederim Korhan bey. Gayet güzel çalışıyor.
Saygılar.

 

[le.kahoot]

Deneyiniz.

Sub SEKME_RENKLENDİR()
    If Sheets("Sayfa1").Range("X14").Value = "ty" Then
        Sheets("Sayfa1").Tab.ColorIndex = 5
    ElseIf Sheets("Sayfa1").Range("X14").Value = "kt" Then
        Sheets("Sayfa1").Tab.ColorIndex = 3
    Else
        Sheets("Sayfa1").Tab.ColorIndex = xlNone
    End If
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

hocam sadece sheet1'de değil de herhangi bir sayfada X14 hücresindeki değere göre renk değişimini nasıl yapabiliriz.