VB Code needed for Tab Color

[rmarquis]

Hi all,

Im not going to pretend that I know VB code but what I am trying to do is take a column of dates E3:E8 and have then turn the tab color yellow if its within a week of the date. So basically if my sheet "test" has a due date thats 3 days from now the tab color will turn yellow to make users aware we have a completion date thats almost here. If there is nothing within a week then it will just be no color.

Thanks so much for the help!

 

[Yongle]

I do not understand how "within a week" and "3 days from now" are the same thing
But here is something you can tweak to match your required condition (looks for a date in next 7 days)

Sub ColorTab()

Dim cel As Range, rng As Range
Set rng = Sheets("Test").Range("E3:E8")

For Each cel In rng
    If cel >= Date And cel - Date < 7 Then
        Sheets("Test").Tab.ColorIndex = 6
        Exit Sub
    End If
Next
Sheets("Test").Tab.ColorIndex = -4142

End Sub

 

[rmarquis]

Thanks so much thats exactly what I needed. the 3 days was just an example, you gave me exactly what i need.... Thanks a lot for the help!

 

[Yongle]

Thanks for the feedback