Hücreleri Yazıların Renkleri ile Birleştirme

[rasitgulhan]

Merhaba,
Excel sayfasında,
A1 hücresi Mehmet (Yazı Yeşil Renk)
B1 hücresi Kemal (Yazı Kırmızı Renk)
C1 Hücresi Ayşe (Yazı Mavi Renk)

Hücreleri D1 birleştirmek istiyorum fakat renkleri ile birlikte,

Mehmet - Kemal - Ayşe

İyi Çalışamalar

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub RenkliBirlestir()
For i = 1 To Range("a65536").End(3).Row

r1 = Cells(i, 1).Font.Color: l1 = Len(Cells(i, 1))
r2 = Cells(i, 2).Font.Color: l2 = Len(Cells(i, 2))
r3 = Cells(i, 3).Font.Color: l3 = Len(Cells(i, 3))

        Cells(i, 4) = Cells(i, 1) & " - " & Cells(i, 2) & " - " & Cells(i, 3)
    
    Cells(i, 4).Characters(Start:=1, Length:=l1).Font.Color = r1
    Cells(i, 4).Characters(Start:=l1 + 4, Length:=l2).Font.Color = r2
    Cells(i, 4).Characters(Start:=l1 + l2 + 7, Length:=l3).Font.Color = r3
Next
End Sub

 

[rasitgulhan]

Teşekkürler