Hücreleri Özelliklerini Kaybetmeden Birleştirme

[MSCRoMuLuS]

Dosya

https://www.hizliresim.com/hpj3ej9

Değerli üstatlar linkteki resimdeki gibi alt alta iki farklı özellikteki hücreleri başka bir hücreye özelliklerini kaybetmeden birleştirmem lazım.

Ekteki kodu araştırarak kendimce yaptım. İlk kırmızı rengi de sorunsuz ekledim ama ikinci mavi rengi ekleyince görüntüdeki sonucu alıyorum.

Sizlere zahmet hatamı düzeltir misiniz?

Kod:

Sub deneme()
[I1].ClearContents
[I1].Font.Strikethrough = False
[I1] = [a1] & [char(10)] & [a2]
[I1].Characters(1, Len([a1])).Font.Strikethrough = True
[I1].Characters(1, Len([a1])).Font.ColorIndex = 3
[I1].Characters(1, Len([a2])).Font.ColorIndex = 32
End Sub

 

[ÖmerFaruk]

Son satıra ufak bir ilave yapın.
[I1].Characters(1+Len([a1]), Len([a2])).Font.ColorIndex = 32

 

[MSCRoMuLuS]

[I1].Characters(1+Len([a1]), Len([a2])).Font.ColorIndex = 32

Teşekkür Ederim sorunum çözüldü elinize sağlık

 

[MSCRoMuLuS]

Son satıra ufak bir ilave yapın.
[I1].Characters(1+Len([a1]), Len([a2])).Font.ColorIndex = 32

Ömer bey "[I1].Characters(1" burada ki "1" neyi ifade ediyor onu çözemedim. bilgi verebilirmisiniz?

 

[ÖmerFaruk]

1'in kendi başına anlamı yok.
Range("I1").Characters(Başlangıç, Uzunluk).Font.ColorIndex=32
Siz Başlangıç kısmındaki 1+ Len([A1]) kısmını soruyorsanız anlamı bu. Yani Hanhi Karakterden başlayıp hangi uzunluktaki karakter dizisinini Yazı Rengi özelliğini değiştirmek istediğinizi tanımlıyorsunuz.