Makro Birleştir Ve Yan yana yaz

[arifcetin93]

Herkese selamlar bu foruma yeni üye oldum kendi çapımca bir tasarım yapıyorum fakat bir noktada eksik kaldım desteginize ihtiyacım var sorum şu ;

özet fatura ekranında sarı ile işaretli alanda ki hücreleri birleştirme yaparak altındaki dört degeri yan yana yazdırması bunu yaparken kodlarımda da göreceginiz üzere en dolu satırın bir altında yazması gerekli.



https://s6.dosya.tc/server20/j4xm1p/ornek.xlsm.html

 

[arifcetin93]

merhabalar yardımcı olabilecek varmı

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod bloğunu kendi kodlarınızın sonuna ekleyip deneyiniz.

    Dim Son_Satır
    
    Son_Satır = Sayfa3.Cells(Sayfa3.Rows.Count, "A").End(xlUp).Row - 5
    
    With Sayfa3.Range("A" & Son_Satır)
        .Resize(, 5).Merge
        .Resize(, 5).Value = Join(Application.Transpose(.Cells(3, 2).Resize(4).Value), " / ")
    End With

 

[arifcetin93]

korhan hocam elinize saglık cok tesekkurler