Soru FORECOLOR RENKLENDİRME

[MESUT K]

Herkese Merhaba
Aşağıdaki basit hesaplama kodunda "uygun" ve "uygun değil" uyarılarını yazı tiplerini renklendirmek istiyorum.Kod düzeni nasıl olmalı

Saygılarımla

"uygun" için yeşil
"uygun değil" için kırmızı


Private sub cmdhesap_click()
txtkir.text=a+b
if txtkir.text<5 then [a2]="uygun" else [a2]="uygun değil"
endif
end sub

 

[kulomer46]

Merhaba

Selamlar...

Private Sub cmdhesap_click()

txtkir.Text = a + b
If txtkir.Text < 5 Then
    [a2] = "uygun"
    Cells(2, 1).Font.Color = RGB(0, 176, 80)   
Else
    [a2] = "uygun değil"
    Cells(2, 1).Font.Color = RGB(255, 0, 0)
   
End If

End Sub

 

[MESUT K]

kod çalışıyor çok teşekkür ederim

 

[kulomer46]

kod çalışıyor çok teşekkür ederim

Selamlar...