değişken satır sayısına sahip verileri birleştirme

[ziraatci26]

Arkadaşlar ekte gönderdiğim dosyada alt alta bulunan verileri birleştirmek istiyorum.Ancak verilerin bulunduğu satır sayıları değişken sadece birleştirilecek verinin ilk satırının başından bir numara var.Buna göre birleştirme yapmam gerekiyor.Yardımcı olursanız sevinirim

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayıp deneyiniz.

Denemeden önce dosyanın yedeğini almayı unutmayınız.

Sub Birlestir()
Dim i, j As Long
SonSat = [B65536].End(3).Row
i = 1
j = 1
Columns(3).ClearContents
Cells(j, "C") = "Adres"
Do
    i = i + 1
    If Cells(i, "A") <> "" Then
        Cells(j, "C") = Trim(Cells(j, "C"))
        j = i
    End If
    
    Cells(j, "C") = Cells(j, "C") & " " & Cells(i, "B")
    
Loop Until i = SonSat
Columns("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns("B:B").Delete Shift:=xlToLeft
MsgBox "Birleştirme İşlemi Tamamdır", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL] her zaman yanınızdadır...."
End Sub

 

[ozgretmen]

Arkadaşlar ekte gönderdiğim dosyada alt alta bulunan verileri birleştirmek istiyorum.Ancak verilerin bulunduğu satır sayıları değişken sadece birleştirilecek verinin ilk satırının başından bir numara var.Buna göre birleştirme yapmam gerekiyor.Yardımcı olursanız sevinirim

Dosyanız ekte...Alternatif olsun...

Sub listele()
On Error Resume Next
For i = 2 To [A65536].End(3).Row
   If Cells(i, "A") <> "" Then
         For j = i To i + 10
              If Cells(j, "B") = "" Then
                 yer = Cells(j, "B").Row
                   For k = i To yer
       Cells(i, "C") = Cells(i, "C") & " " & Cells(k, "B")
                   Next k
                   Exit For
               End If
        Next j
   End If
Next i
End Sub

 

[ziraatci26]

değerli üstadlar çok teşekkür ederim.klavyenize sağlık

 

[ozgretmen]

değerli üstadlar çok teşekkür ederim.klavyenize sağlık

Rica ederim.
İyi çalışmalar.:mutlu:

 

[ziraatci26]

kenarlıkla ayrılmış verileri birleştirme

Sayın hocam bu konuya benzer bi konu daha var.Bu sefer veriler birbirinden kenarlıklar ile ayrılmış.Örneği ekte sunuyorum.Yardımcı olabilirseniz çok sevinirim saygılarımla