Hello,
Using Excel 2003 on XP, I am attempting to add CF to a macro using VBA. I'm very new to VBA, so my syntax isn't always clean. I can't find a similar enough reference to what I'm trying to do, so I need help, or I'll pull out the rest of my hair.
Here is a sample of the code I'm trying to use - pared down to two Cases from six, for visibility:
Dim fairtype as Range
Dim rangevar As Range
Set fairtype = Sheets("Monitor").Range("C1")
Set rangevar = Sheets("Adv").Range("d2:d600")
For Each cell In rangevar
Select Case fairtype
Case "PRES"
If (rangevar.Value = "*holiday*") Or (rangevar.Value = "*Yellow*") Or (rangevar.Value = "*pic*") Then
cell.Interior.ColorIndex = 35
cell.Interior.Pattern = xlSolid
End If
Case "MIL"
If (rangevar.Value = "*Best*") Or (rangevar.Value = "*Green*") Then
cell.Interior.ColorIndex = 35
cell.Interior.Pattern = xlSolid
End If
End Select
Next cell
I'm getting a "Type Mismatch" error in Case "MIL" (that is what is in the Range when I run the macro, so skipping over Case "PRES" is correct).
Please let me know how I messed this up.
Using Excel 2003 on XP, I am attempting to add CF to a macro using VBA. I'm very new to VBA, so my syntax isn't always clean. I can't find a similar enough reference to what I'm trying to do, so I need help, or I'll pull out the rest of my hair.
Here is a sample of the code I'm trying to use - pared down to two Cases from six, for visibility:
Dim fairtype as Range
Dim rangevar As Range
Set fairtype = Sheets("Monitor").Range("C1")
Set rangevar = Sheets("Adv").Range("d2:d600")
For Each cell In rangevar
Select Case fairtype
Case "PRES"
If (rangevar.Value = "*holiday*") Or (rangevar.Value = "*Yellow*") Or (rangevar.Value = "*pic*") Then
cell.Interior.ColorIndex = 35
cell.Interior.Pattern = xlSolid
End If
Case "MIL"
If (rangevar.Value = "*Best*") Or (rangevar.Value = "*Green*") Then
cell.Interior.ColorIndex = 35
cell.Interior.Pattern = xlSolid
End If
End Select
Next cell
I'm getting a "Type Mismatch" error in Case "MIL" (that is what is in the Range when I run the macro, so skipping over Case "PRES" is correct).
Please let me know how I messed this up.