T
Tony
I have an IF formula that provides a “Y†value if a cell date matches a
vlookup table of statuory holidays which works fine.
wsPh.Range("F7:AD7").Formula =
"=IF(ISNA(VLOOKUP(F5,StatHolidays,2,FALSE)),"""",""Y"")"
Based on that date I want to use code that will colour cells in a column.
Right now the shading does not work even though the “Y†exists on the screen.
I also copied the value from H7 and paste special it back into H7 and it
still didn’t work.
If h7 = "Y" Then
wsPh.Range("h9:h60").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Else
End If
P.S. is there any way to combine the “With†criteria onto one (1) line
instead of three (3)
vlookup table of statuory holidays which works fine.
wsPh.Range("F7:AD7").Formula =
"=IF(ISNA(VLOOKUP(F5,StatHolidays,2,FALSE)),"""",""Y"")"
Based on that date I want to use code that will colour cells in a column.
Right now the shading does not work even though the “Y†exists on the screen.
I also copied the value from H7 and paste special it back into H7 and it
still didn’t work.
If h7 = "Y" Then
wsPh.Range("h9:h60").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Else
End If
P.S. is there any way to combine the “With†criteria onto one (1) line
instead of three (3)