Hucre ici Text Boyama

[mustafaine1]

Merhaba arkadaslar,

1.000,16 + *6.937,00 + 2.825,58
105,29 + *627,08 + 1.428,12

seklinde hucrelerim var bu hucrelerdeki basinda yildiz bulunan metinlerin rengini degistirmek istiyorum; fikri olan var mi acaba?

 

[mustafaine1]

yildiz_start = InStr(Cells(j + 1, "I").Value, "*")
    If yildiz_start > 0 Then
        yildiz_finish = InStr(yildiz_start + 1, Cells(j + 1, "I").Value, ",") + 2
   
   With Range("I" & j + 1).Characters(Start:=yildiz_start + 1, Length:=(yildiz_finish - yildiz_start)).Font
      .Color = vbBlue
    End With

seklinde cozdum arkadaslar tesekkurler..

 

[Zeki Gürsoy]

Virgül olamdığı durumda uzunluğu nasıl bulacaksınız? Sayı biçimi hep aynı sanırım.

 

[mustafaine1]

Evet Zeki Bey, sayi bicimi ayni formatta geldiginden bu durum sorun yaratmayacak, Aksi halde sonrasinda bosluk varmi varsa bosluga kadar yoksa son sayi olmasina karsi kalan karakterleri almasi icin 100 filan yazmak gerekecekti.

Incelediginiz icin ayrica tesekkur ederim.