Yazılar içerisinde Kırmızı Renk var ise bulabilirmiyiz?

[Kemal Demir]

Arkadaslar Günaydın.Aşağıdaki Kodda Hücre Kırmızı İse Kırmızı Oldugunu Başka Bir Kolona yazdırabiliyoruz.Ama Cümle içinde bazı harfler kızmızı ise nasıl bulabilir.

[vb:1:27227e2f95]Sub Kırmızıbul()
For x=1 to 10
if Cells(x,1).font.Colorindex=3 then
Cells(x,2).value="Kırmızı"
End if
Next
End Sub[/vb:1:27227e2f95]

Bu Satırdaki yazılar kırmızı ise işimi görüyor ama bazı harfler kırmızı değilse bulamıyor.
Kısacası Bazı Kelimeler Kırmızı ise nasıl bir çözüm bulabiliriz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Kırmızıbul()
For X = 1 To [A65536].End(3).Row
For Y = 1 To Len(Cells(X, 1))
If Cells(X, 1).Characters(Start:=1, Length:=Y).Font.ColorIndex = 3 Then
Cells(X, 2).Value = "Kırmızı"
End If
Next
Next
End Sub

 

[Kemal Demir]

Sn.Cost Control
Herşeyden Önce ilgin için teşekkur ederim.

Ama Uygulamada başarız oldum istediğim sonucu alamadım.
2 kolona Kırmızı yazdıramadım.
Hata nerede olabilir.
Tekrar yardımcı olabilirmisin.

 

[Korhan Ayhan]

Selamlar,

Ben kodu deneyerek göndermiştim. Ama isterseniz kendi çalışmanızın küçültülmüş bir örneğini ekleyin üzerinde yapalım.

 

[Kemal Demir]

Sn. Cost control

İlgin İçin Tekrar Teşekkurler.
Dosya Ek'tedir.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Kırmızıbul()
For X = 1 To [A65536].End(3).Row
For Y = 1 To Len(Cells(X, 1))
If Cells(X, 1).Characters(Start:=Y, Length:=Y).Font.ColorIndex = 3 Then
Cells(X, 2).Value = "Kırmızı"
End If
Next
Next
End Sub

 

[Kemal Demir]

Teşekkur Ederim