Hücre içi renklendirme

[kimki]

Merhaba,
Örnek dosya ekledim, birleştir ile birleştirdiğim hücrelerin hücre biçimlerini korumasını istiyorum. Yardım ederseniz sevinirim.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub birlestir()

    [C7] = [C3] & "-" & [D3] & "-" & [F3]
    
    [C7].Characters(Start:=1, Length:=Len([C3])).Font.ColorIndex = [C3].Font.ColorIndex
    [C7].Characters(Start:=Len([C3]) + 2, Length:=Len([D3])).Font.ColorIndex = [D3].Font.ColorIndex
    [C7].Characters(Start:=Len([C3] & [D3]) + 3, Length:=Len([F3])).Font.ColorIndex = [F3].Font.ColorIndex

End Sub

 

[kimki]

Merhaba,

Deneyiniz.

Sub birlestir()

    [C7] = [C3] & "-" & [D3] & "-" & [F3]
   
    [C7].Characters(Start:=1, Length:=Len([C3])).Font.ColorIndex = [C3].Font.ColorIndex
    [C7].Characters(Start:=Len([C3]) + 2, Length:=Len([D3])).Font.ColorIndex = [D3].Font.ColorIndex
    [C7].Characters(Start:=Len([C3] & [D3]) + 3, Length:=Len([F3])).Font.ColorIndex = [F3].Font.ColorIndex

End Sub

Teşekkürler, istediğim gibi.