Tabblad kleuren als Cel B4 niet nul is.

[Omteleren]

Hallo,

Ik heb ongeveer 80 tabbladen. De tabbladen moeten geprint worden als op het tabblad cel B4 niet nul is.
Dit kan iedere maand anders zijn. Graag zou ik willen dat het tabblad een groen kleur krijgt, als cel B4 niet nul is.

Ik denk dat hier VBA voor aan te pas komt, maar ik kan geen codes zelf schrijven.

Ik hoop dat iemand mij kan helpen, indien het mogelijk is.

 

[edmoor]

Dat kan met dit in de ThisWorkbook sectie:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Tab.Color = IIf(Sh.Range("B4") <> "", vbGreen, xlNone)
End Sub

 

[Omteleren]

Hoi Ed,
Het lukte niet, maar heb de code aangepast en tabblad Test wordt nu groen.
Doel is bereikt. Je hebt me op het juiste pad gebracht.

Private Sub Worksheet_Activate()

If Range("B4") > 0 Then
Worksheets("Test").Tab.ColorIndex = 4
Else
Worksheets("Test").Tab.ColorIndex = 3
End If

End Sub
Bedankt voor je hulp.

 

[edmoor]

Die moet je dan voor ieder tabblad gebruiken waar je dat wilt.
Met mijn voorbeeld werkt dat ook en heb je de code maar 1x.