bır sutunda alt alta gelen rakamların yan sutununda bırlestırılmesı

[kakara]

merhaba degerlı ustadlarım örnek dosyada yapmak ıstedıgımı daha detaylı anlattım sımdıden yardımlarınız ıcın tesekkur ederım

 

[veyselemre]

Sub test()
    [f:f].Copy [p1]
    With Range("p2:p" & Cells(Rows.Count, 2).End(3).Row)
        For Each Rng In .SpecialCells(xlCellTypeBlanks).Areas
            Rng.Offset(-1, 0).Resize(Rng.Cells.Count + 1, 1).MergeCells = True
        Next Rng
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End Sub

 

[kakara]

ustad verdıgınız kod calısıyor yalnız ben f sutunundakı rakamların p sutununa gelmesını ıstemıyorum sadece hucreler bırlesıcek ve bos bır sekılde gelıcek mumkunmudur acaba

 

[veyselemre]

ustad verdıgınız kod calısıyor yalnız ben f sutunundakı rakamların p sutununa gelmesını ıstemıyorum sadece hucreler bırlesıcek ve bos bır sekılde gelıcek mumkunmudur acaba

Sub test()
    [f:f].Copy [p1]
    With Range("p2:p" & Cells(Rows.Count, 2).End(3).Row)
        For Each Rng In .SpecialCells(xlCellTypeBlanks).Areas
            Rng.Offset(-1, 0).Resize(Rng.Cells.Count + 1, 1).MergeCells = True
        Next Rng
        .ClearContents
    End With
End Sub

 

[kakara]

çok tesekkurler aslında sızın ılk verdıgınız kod daha saglıklı kontrol amaçlı olarak sonra ıcerıgı temızlıyebılırım ıkı kodu da kullanıcam tekrardan tesekkurler ustad