create a button to do conditional formatting

[kerm007]

hello
i try to do a conditional formating with a button
i have this code but its not right

ub Highlight()
Dim MyRange As Range
'Create range object
Set MyRange = Sheets("Fixtures").Range("B:D")
'Delete previous conditional formats
MyRange.FormatConditions.Delete
'Add first rule
MyRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=H", Formula2:="=150"
MyRange.FormatConditions(1).Interior.Color = RGB(255, 0, 0)
End Sub

i have number on colum B and F and some are Numbers with an H
i want to put in bold and red the line where its number and H
like 60H

can i do that ?
Thanks

ps: the button i create is on another sheet because when i ran the fixture the button disapear
ty

 

[kerm007]

hi again
i was able to run conditinal formating on the page but this rule was not kept after i ran another script
can we add this to the previous code and when i press the button it will do all ?
Thankks

 

[kerm007]

who can help me to add another formatting when it see the no game either on the B and F colum i know how to get it yellow but everything i try its not doing anything i miss something for sure

 

[kerm007]

hello this what i did so far


Sub Bye()

Dim MyRange As Range
Dim FormulaStr As String

'Create range object
Set MyRange = Sheets("Fixtures").Range("B:F")

'Delete previous conditional formats
MyRange.FormatConditions.Delete

'Create Formula
'=AND(RIGHT(B1,1)="No Game"
FormulaStr = "=AND(RIGHT($B1,1)="

'Add first rule
With MyRange.FormatConditions.Add(xlExpression, Formula1:=FormulaStr)
.Interior.Color = RGB(255, 255, 0)
.Font.Bold = True
.Font.Color = vbWhite
End With

End Sub


not working