Applying style based on value

[gigi79]

Hi all,
Does anyone know of a way to apply a style to cells based on their value/type?

I have a table that I send out and each data type has a different style. I’m currently going through and applying the style to the cells as required. M wondering if there is a way to do this without me having to do so manually.

there are three styles in use: one for date values, one for state values and one for name values.

 

[Crystalyzer]

Try something like the code below. You can change the style names to suit yours.

Assumptions
1. Dates are entered as actual dates and are not strings
2. States are two letter abbreviations
3. Names are anything else

If the assumptions above are not correct, please post a copy of your data with the XL2BB tool.

Sub ApplyStyles()
    Dim r As Range, c As Range
    
    Set r = Application.InputBox("Select range to apply styles.", "Styles", , , , , , 8)
    
    If Not r Is Nothing Then
        For Each c In r
            If Len(c) > 2 And Not (IsDate(c)) Then c.Style = "Neutral"
            If IsDate(c) Then c.Style = "Good"
            If Len(c) = 2 Then c.Style = "Bad"
        Next c
    End If
End Sub