Metin kutusundaki yazı renklerini ayarlamak

[bsen]

Merhabalar,
Ekte bulunan dosyamın içerisinde Basınç Seviyesi 90 dan büyük olduğunda metin kutusunun içindeki yazı KIRMIZI renkte 90 dan küçük olduğu zaman YEŞİL renkte yapmak istiyorum yardımcı olur musunuz?

 

[Orion1]

Dosyanız ektedir.

Sub kirmizi()

    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select

    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill

        .Visible = msoTrue

        .ForeColor.RGB = RGB(255, 0, 0)

        .Transparency = 0

        .Solid

    End With

End Sub

Sub yesil()

    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select

    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill

        .Visible = msoTrue

        .ForeColor.RGB = RGB(0, 176, 80)

        .Transparency = 0

        .Solid

    End With

End Sub

 

[bsen]

Dosyanız ektedir.

Sub kirmizi()

    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select

    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill

        .Visible = msoTrue

        .ForeColor.RGB = RGB(255, 0, 0)

        .Transparency = 0

        .Solid

    End With

End Sub

Sub yesil()

    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select

    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill

        .Visible = msoTrue

        .ForeColor.RGB = RGB(0, 176, 80)

        .Transparency = 0

        .Solid

    End With

End Sub

Teşekkürler, tam istediğim gibi olmuş.