Sütunda Hücre Birleştirme

[bunyaming]

Merhaba,

Aynı sütun altında dolu ve boş hücreleri birleştirmek için yardımınıza ihtiyacım var.
Dosya içinde gerekli açıklamalar mevcuttur.

teşekkürler

 

[Ömer BARAN]

Merhaba.

Kod:

Sub BIRLESTIR()
enson = Cells(Rows.Count, 1).End(3).Row + 1
[B:B].VerticalAlignment = xlCenter: [B:B].UnMerge
For sat = 3 To Cells(Rows.Count, 1).End(3).Row
    If Cells(sat + 1, 2) <> "" Then sat = sat + 1
    son = WorksheetFunction.Min(enson, Cells(sat, 2).End(xlDown).Row)
    Range(Cells(sat, 2), Cells(son - 1, 2)).Merge
    If son = enson Then Exit For
    sat = son - 1
Next
End Sub

 

[bunyaming]

Sub BIRLESTIR() enson = Cells(Rows.Count, 1).End(3).Row + 1 [B:B].VerticalAlignment = xlCenter: [B:B].UnMerge For sat = 3 To Cells(Rows.Count, 1).End(3).Row If Cells(sat + 1, 2) <> "" Then sat = sat + 1 son = WorksheetFunction.Min(enson, Cells(sat, 2).End(xlDown).Row) Range(Cells(sat, 2), Cells(son - 1, 2)).Merge If son = enson Then Exit For sat = son - 1 Next End Sub

hocam teşekkürler

süper çalışıyor

iyi geceler

 

[Ömer BARAN]

Kolay gelsin.