VBA ile hücre içindeki yazının bir kısmının rengini değiştirme

[SKBR]

Merhaba, Vba ile bir rapor çalışmam var. Bir hücreye farklı iki hücreden veri getiriliyor. Bu iki hücrenin birleşerek geldiği tek hücrede verinin bir kısmının rengini değiştirmek istiyorum.
Normalde renk değiştirmek için aşağıdaki kodu kullanıyorum.

 .Range("A1").Font.Color = -16776961

Ama bu kod hücredeki bütün verinin rengini değiştirmesini sağlıyor.
Kısmi olarak renk değişimini nasıl yaparım,yardımcı olabilecek olan var mıdır acaba?

 

[Korhan Ayhan]

Characters ifadesi ile arama yapınız.

 

[SKBR]

Characters ifadesi ile arama yapınız.

Korhan Bey, peki bu aramayı yaparken mesela a sütunundan alınan veriler sadece kırmızı olsun gibi bir kıstas koyabilir miyiz?
Yani şimdi A ve B sütunlarındaki veriler C sütunundaki hücrelere birleşerek geliyor. Ben C sütununda örneğin A sütunundan gelen verilerin sadece renklenmesini istiyorum. Bunun bir yolu var mıdır?

 

[Korhan Ayhan]

Bu şekilde olabilir.

Option Explicit

Sub Test()
    Dim X As Long, Son As Long
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    For X = 1 To Son
        Cells(X, 3) = Cells(X, 1) & " " & Cells(X, 2)
        Cells(X, 3).Characters(1, Len(Cells(X, 1))).Font.ColorIndex = 3
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub