makro ile boş satırdan önceki verileri tek bir hücrede birleştirmek

[ismayil]

Merhaba,
A kolonunda aralarında boş hücreler bulunan veriler var. Veriler arasındaki boş hücre sayısının belli bir standartı yok. Yapmak istediği boş hücreden önceki dolu hücreleri tek bir hücre içine yazabilmek. Yardımcı olmanızı rica ederim . örnek tablo ekli dosyada.

 

[Necdet]

Merhaba,

Eğer A sütununu yine A sütununda birleştirmek istiyorsanız BirlestirA, B sütununda birleştirmek istiyorsanız BirlestirB sütununu bir modülle ilişkilendiriniz.

Sub BirlestirA()
Dim i       As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
    If Cells(i - 1, "A") <> "" Then
        Cells(i - 1, "A") = Cells(i - 1, "A") & " " & Cells(i, "A")
        Cells(i, "A") = ""
    End If
Next i
    
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
MsgBox "Hücreler birleştirilmiştir"
End Sub

Sub BirlestirB()
Dim i       As Long
Dim Son     As Long
Son = [A65536].End(3).Row
Application.ScreenUpdating = False
Range("A1:A" & Son).Copy [B1]
For i = Son To 2 Step -1
    If Cells(i - 1, "B") <> "" Then
        Cells(i - 1, "B") = Cells(i - 1, "B") & " " & Cells(i, "B")
        Cells(i, "B") = ""
    End If
Next i
    
Application.ScreenUpdating = True
MsgBox "Hücreler birleştirilmiştir"
End Sub

 

[ismayil]

Necdet bey ,çok teşekkürler. Sayenizde çok zaman kazandım.

 

[Necdet]

Güle güle kullanınız.

 

[xp45s]

necdet hocam çok teşekkürler.Benimde işime çok yarıyacak

 

[Necdet]

necdet hocam çok teşekkürler.Benimde işime çok yarıyacak

Siz de güle güle kullanınız Sayın xp45s