Çözüldü Formül içinde bazı yerlerin renkli olması

[sirkülasyon]

=BİRLEŞTİR(" 4)İhale konusu işin; [";B5;"] bu teklif mektubunun ekinde yer alan birim fiyat teklif cetvelindeki her bir iş kalemi için teklif ettiğimiz birim "&" fiyatlar üzerinden Katma Değer Vergisi hariç [B][U][FONT=Times New Roman] [";BİRLEŞTİR(" "&METNEÇEVİR('Teklif Cetveli'!F6;"#.##0,00 ""TL"";-#.##0,00 ""TL""")&"");"] - [(";YaziyaCevir('Teklif Cetveli'!F6);")] [/FONT][/U][/B] bedel karşılığında yerine getireceğimizi kabul ve taahhüt ediyoruz.")

Yukarıda arz ettiğim formülde altı çizili olan kısmın kalın ve kırmızı olmasını nasıl yapabilirim?

Saygılarımla

 

[yuzun23]

bende bunun cevabını bulamadım

 

[veyselemre]

Keşke örnek ekleseydiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target <> [a1] Then Exit Sub
    With Target.Characters(Start:=bul1 + 6, Length:=bul2 - bul1).Font
        .Bold = False
        .ColorIndex = xlAutomatic
    End With
    bul1 = InStr(Target, "hariç")
    bul2 = InStr(Target, "bedel")
    If bul1 > 0 And bul2 > 0 Then
        With Target.Characters(Start:=bul1 + 6, Length:=bul2 - bul1 - 6).Font
            .Bold = True
            .Color = vbRed
        End With
    End If
End Sub

 

[sirkülasyon]

Teşekkür eder, saygılarımı sunarım