hücreleri farklı fontlarda birleştirme hk.

[garziman]

Merhaba,

makroya yeni başladım. yapmaya çalıştığım makro ile siteden aldığım bir çok kodu denedim fakat başarılı olamadım. yardıma ihtiyacım olan husus şudur.

a1,b1,c1 ve d1 hücrelerindeki verileri , e5 hücresinde , tüm hücrelerin fontlarının farklı olarak birleşmesi...

konu ile ilgili yardımlarınızı ve yönlendirmelerinizi beklemekteyim.

şimdiden teşekkürler ....

 

[Murat OSMA]

Bu kodları kullanabilirsiniz...

Sub Karakter_Change()
    Dim i As Integer
    For i = 1 To 4
        Cells(5, "e") = Cells(5, "e") & Cells(1, i)
        Range("E5").Characters(Start:=2, Length:=1).Font.Bold = True
        Range("E5").Characters(Start:=2, Length:=1).Font.Size = 50
    Next i
    i = Empty
End Sub

 

[garziman]

Merhaba Murat Bey,

yardımızın için teşekkürler .aradığım tamda buydu. fakat iki detayda daha yardımınıza ihtiyacım var.
1. si bu sistemin sayılar la da çalışması gerekiyor,
2. makroyu 2 üç kere çalıştırdığımızda ilk birleştirmenin peşinden devam ediyor, ama her seferinde yalnızca 1 kere çalışması gerekiyor.

bu konularda da yardımcı olabilirseniz çok sevinirim...

şimdiden sağolun