Automatically Color Tabs Red based on Expiration Date

[palcallao]

Greetings Mr.Excel community,

Thanks so much for all the help in advance. I have read lot of your posts and the knowledge here is amazing. Alright here is my issue, I need to color each tab red when the contents of E8:E14 and F8:F14 do not have a date posted. I have 26 tabs total in the spreasheet. Thanks again.

 

[palcallao]

These last 2 codes? would I put them together?I apologize for my lack of understanding, thanks for being so patient. And when you say "call it"? is that another term for running the code?

So, like I said, you'll have to call it in each sheet. But it is possible. You have a few options:

Workbook Activate
Workbook Deactivate
Workbook Before Close

Worksheet Change
Worksheet Calculate
Worksheet Selection

If you want Worksheet Change, that would be:

Private Sub Worksheet_Change(ByVal Target As Range)

    colorTabs


End Sub

And then probably change colorTabs to:

Sub colorTabs()




        With ActiveSheet
            Select Case Application.WorksheetFunction.CountBlank(.Range("E8:F18"))
                Case 0
                    .Tab.Color = xlAutomatic
                Case Else
                    .Tab.Color = 255
            End Select
        End With




End Sub

 

[NeonRedSharpie]

You can put them together, but then if you make a change to one you have to remember to make a change to all the others. It's easier to put the colorTabs() in your module and reference it using the worksheet_chage event.

 

[palcallao]

That did it my friend. Thanks so much, you have truly been a blessing to me today!