Çoklu Birleştir Makrosu

[yasin85]

Merhabalar,

C hücresinden XFD hücresine kadar uzunlukta olan alanda birleştir işlemi yapmak istiyorum fakat B hücresinde değer yazılmış ise her hücre arasına o değer yazılması gerekmektedir.

Birleştirilmiş halini ekte bulunan exceldeki sayfa 2 düzeni gibi olması konusunda yardımcı ola bilir misiniz.

http://s2.dosya.tc/server8/6r3y9n/BIRLESTIR_TOPLU.xlsx.html

Şimdiden teşekkürler..

 

[veyselemre]

Sub test()
    For i = 2 To [Sayfa1].Cells(Rows.Count, 1).End(3).Row
        VER = Application.Index(Range([Sayfa1].Cells(i, 3), [Sayfa1].Cells(i, Columns.Count).End(xlToLeft)).Value, 0)
        [Sayfa2].Cells(i, 1) = [Sayfa1].Cells(i, 1)
        [Sayfa2].Cells(i, 2) = Join(VER, [Sayfa1].Cells(i, 2))
    Next i
End Sub

 

[yasin85]

veyselemre bey çok teşekkür ederim tam istediğim gibi olmuş ellerinize sağlık.