[ÇÖZÜLDÜ] Koşullu Sayfa Renklendirme

[baydeniro]

Merhaba arkadaşlar. Koşula göre sayfa sekme renginin otomatik olarak ayarlanması mümkün müdür ?

Örnek dosya ekte !!

 

[uzmanamele]

merhaba
bu kod işinizi görür mü

Sub sekme_rengi()
For i = 1 To Sheets.Count
If Sheets(i).Range("d2") > 0 Then
Sheets(i).Tab.ColorIndex = 43
End If
Next
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kod işinizi görürse eğer, ThisWorkbook'un kod bölümüne kopyalayınız.

Sayfa aktif olduğunda D2 hücresi Sıfırdan büyükse renk yeşil, sıfırsa renk normale dönüyor.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If [D2] > 0 Then
    ActiveSheet.Tab.Color = vbGreen
Else
    ActiveSheet.Tab.Color = xlNone
End If
End Sub

 

[hamitcan]

Not:ThisWorkbook kısmına ekleyin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address <> "$D$2" Then Exit Sub
    If Target > 0 Then
    Sh.Tab.Color = 5296274
    Else
    Sh.Tab.Color = xlAutomatic
    End If
End Sub

 

[baydeniro]

Sayın üstatlarım, yardımlarınız ve ilginiz için çok teşekkür ederim. Hepsi birbirinden değerli kodl'ları uygun yerlerde değerlendireceğim. Çok teşekkür ederim. Elleriniz dert görmesin. Sağlıcakla kalın.

 

[uzmanamele]

merhaba
sorunuzun cevabı tatmin ediciyse;
konu araçları / bu soruyu [ÇÖZÜLDÜ] olarak işaretle'yiniz.

 

[baydeniro]

"Çözüldü" işaretlemesi ile ilgili uyarınız için çok teşekkür ederim sayın uzmanamele. Bu konu yeni başlamıştı, sayenizde bu uygulamayı da kullanmış oldum.