Adding to "If" VBA

[Dannottheman]

Hi,
I would like to add several possibilities of words to the statement below. Right now it's considering only "quiz", I would like to add other words such as "unit", "assessment", "test". Right now I have to manually update this each time I run the VBA. I experimented adding it but I am not getting it right. Any help would be appreciated.


Sub Dannottheman3()

Dim Cl As Range

For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))

If LCase(Cl.Value) Like "*quiz*" Then

Cl.Interior.Color = rgbLightBlue

Cl.Font.Bold = True

End If

Next Cl

End Sub

 

[eduzs]

Maybe an array?

Dim aStr, x As Integer
aStr = Array("x", "y", "z")
For x = 0 To UBound(aStr)
    If LCase(Cl.Value) Like "*" & aStr(x) & "*" Then
        ....
    End If
Next x

 

[rollis13]

Oh, I'm late. Anyway, this is how I have changed your macro:

Option Explicit
Sub Dannottheman3()
    Dim Cl     As Range
    Dim srch As Variant
    For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
        For Each srch In Array("*quiz*", "*unit", "*assessment*", "test") '<= note the different use of the jolly (could be useful)
            If LCase(Cl.Value) Like srch Then
                Cl.Interior.Color = rgbLightBlue
                Cl.Font.Bold = True
                Exit For
            End If
        Next srch
    Next Cl
End Sub

 

[Dannottheman]

Oh, I'm late. Anyway, this is how I have changed your macro:

Option Explicit
Sub Dannottheman3()
    Dim Cl     As Range
    Dim srch As Variant
    For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
        For Each srch In Array("*quiz*", "*unit", "*assessment*", "test") '<= note the different use of the jolly (could be useful)
            If LCase(Cl.Value) Like srch Then
                Cl.Interior.Color = rgbLightBlue
                Cl.Font.Bold = True
                Exit For
            End If
        Next srch
    Next Cl
End Sub

Works beautifully! You have made my task MUCH easier! Thank you!!!

 

[Dannottheman]

Maybe an array?

Dim aStr, x As Integer
aStr = Array("x", "y", "z")
For x = 0 To UBound(aStr)
    If LCase(Cl.Value) Like "*" & aStr(x) & "*" Then
        ....
    End If
Next x

Thank you for this.

 

[rollis13]

Glad having been of some help .