Hücre içindeki kırmızı fontlu karakterleri alma

[bezl]

selamlar,
Sözlük gibi bir dosya var elimde bu dosyada hücreye kırmızı karakterle açıklaması yapılan kelime ve/veya kelime grubu sonra da açıklaması var bu hücrelerdeki sadece kırmızı fontlu karakterleri nasıl alabilirim. Bir fonksiyon yazmak istiyorum. Yardımcı olursanız sevinirim.

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz.

Function RENK(Hucre As Range)
If Hucre = Null Then Exit Function
For i = 1 To Len([Hucre])
If Hucre.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then
son = son & Mid(Hucre, i, 1)
End If
Next i
RENK = son
End Function

 

[bezl]

teşekkürler...