birleştir

[işsiz123]

Selâmun aleyküm arkadaşla
B sutununda kaç hücre doluysa a sutununda okadar hücre billeşsin örnek olarak b1:b5 e kadar hücrelerde veri var a1 hücresini a5 kadar birleştirsin
Yani a sütununu b sütununun son satırının hizasına kadar birleştirsin

 

[YUSUF44]

Sub birleştir() 
Range("A1:A"&Cells(Rows.Count, "B").End(3).Row).Merge
End Sub

Kodunu deneyin. Cepten yazdığımdan deneyemedim.

 

[işsiz123]

Tamamdır Yusuf Allah razı olsun

 

[muygun]

Merhaba;
Birleştirilecek hücre sayısı birden fazla ise Alternatif:
Eki deneyin.
İyi çalışmalar.

 

[işsiz123]

Arkadaşlar teşekürler bir ricam daha olacaktı birleştirdigim aln yazılar en alta geliyor onu ortalama için ve uzun yazılarda hücrede tamamı görünmesi için kod nedir acaba

 

[YUSUF44]

Sub birleştir()
    Range("A1:A" & Cells(Rows.Count, "B").End(3).Row).Merge
    With Range("A1:A" & Cells(Rows.Count, "B").End(3).Row)
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
End Sub