Makro ile hücre birleştirme (karakter tipleri farklı)

[Tsunami41]

Meraba arkadaşlar,

Makrolar konusunda yeniyim. Ancak çalışmamda bir yerde takıldım. Örnekle yapmak istediğimi açıklamaya çalışayım.

Mevcut hücreler:
A1=ALİ B1=19

Sonuç olarak istenen:
C1=ALİ(12 punto, bold)
19(6 punto, italik)

Yazarak açıklamak gerekirse; A1 hücresindeki ifade ve B1 hücresindeki ifade birleştirilmek isteniyor. Sonuç olarak C1 hücresinde ilk satırda A1 hücresindeki ifade 12punto ile ve bold olarak, ikinci satırda ise B1 hücresindeki ifade 6punto ile ve italik olacak şekilde oluşsun isteniyor. Ve bu işlem A veya B sütununda aynı satıradaki her iki hücre de boş olana kadar devam etsin isteniyor.

Umarım anlatabilmişimdir. Yardımlarınız için şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Option Explicit
 
Sub BİRLEŞTİR()
    Dim X As Long
 
    Application.ScreenUpdating = False
 
    Range("C:C").ClearContents
 
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        If Cells(X, 1) <> "" And Cells(X, 2) <> "" Then
            Cells(X, 3) = Cells(X, 1) & Chr(10) & Cells(X, 2)
            With Cells(X, 3).Characters(Start:=1, Length:=Len(Cells(X, 1))).Font
                .Name = "Calibri"
                .FontStyle = "Kalın"
                .Size = 12
            End With
            With Cells(X, 3).Characters(Start:=Len(Cells(X, 1)) + 2, Length:=Len(Cells(X, 2))).Font
                .Name = "Calibri"
                .FontStyle = "Normal"
                .Size = 6
            End With
        End If
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[MT007]

Acaba farklı boyuttaki bu karakterler yan yana yazılabilir mi?

 

[Korhan Ayhan]

Merhaba,

Zaten A ve B sütunundaki değerler C sütununda istenen formatta birleştirilere yazdırılıyor. Siz nasıl bir işlem yapmak istemiştiniz?

 

[MT007]

Merhaba,
Ekte bir örnek gönderiyorum. Yardımcı olabilirseniz sevinirim.

Teşekkürederim

 

[Deyeexzist]

Merhabalar,
iki farklı hücreyi =A2&" "&B2 bu formülle birleştirebiliyoruz. Peki bu formüle ek yaparak birleştirilecek hücreler içerisindeki renk ve/veya bold vs. gibi biçimleri de koruyarak iki ya da üç farklı hücreyi tek hücreye toplayabilir miyiz. Makrosuz bir şekilde bunu yapmak mümkün mü?
Makro tek çözümse bu kodu excel 2007'de nasıl ekleyebilirim.
Çok teşekkür ederim.