Formul İçeriğindeki Metnin Biçimlendirilmesi( Renk ve Kalınlık Gibi)

[adoen]

Merhaba aşağıda belirttiğim formulde yazan İşlem başarısız sonucu geldiği zaman. Bunun başarısız kısmını kırmızı ve kalın olarak göstermesini istiyorum.
Çok uğraştım ama çözümünü bulamadın. Yardımcı olabilirseniz sevinirim.
Şimdiden teşekkürler...
=EĞER(X7="Yok";"İşlem Başarısız";"")

 

[hamitcan]

Formül içinde bu işlemi yapamazsınız. Ama kod yardımıyla yapılabilir.

 

[adoen]

Kod ile nasıl yapabiliriz yardımcı olabilir misiniz ?

 

[hamitcan]

Private Sub Worksheet_change(ByVal Target As Range)
  If Target.Address <> "$A$1" Then Exit Sub
    If Target.Value = "Yok" Then
        With Range("B1")
            .Value = "İşlem Başarısız"
            .Characters(7, 16).Font.Bold = True
            .Characters(7, 16).Font.Color = vbRed
        End With
    End If
End Sub

 

[adoen]

teşekkür ederim.