Satır Birleştirme Hk.

[use2000]

Merhaba Arkadaşlar;

ekteki dosyada a sütununda bulunan isimleri yan tarafa birleştirmesini istiyorum, aynı olan isimleri tekrar yazmasın istiyorum. ama aynı isim farklı grupta yinelenirse tekrar yazsın istiyorum. Dosyayı açtığımda ne demek istediğim daha net bir şekilde anlaşılır sanıyorum.

Yardımlarınız için şimdiden teşekkürler..

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub GrupBirlestir()
 
Dim sons As Long, i As Long, sat As Long, oprtr As String
 
sons = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
 
Range("B2:B" & sons).ClearContents
 
For i = 2 To sons + 1
    If Cells(i, "A") <> "" And Cells(i - 1, "A") = "" Then
        sat = i
    Else
        If Cells(sat + 1, "B") = "" Or Cells(i - 1, "A") = "" Then
            oprtr = ""
        Else
            oprtr = "/"
        End If
 
        Cells(sat + 1, "B") = Cells(sat + 1, "B") & oprtr & _
        Cells(i - 1, "A")
        Cells(sat + 1, "B") = WorksheetFunction.Substitute( _
        Cells(sat + 1, "B"), Cells(i, "A"), "")
        Cells(sat + 1, "B") = WorksheetFunction.Substitute( _
        Cells(sat + 1, "B"), oprtr & oprtr, oprtr)
    End If
Next i
Application.ScreenUpdating = True
 
End Sub

.

 

[use2000]

çok teşekkür ederim, çok makbule geçti. size ne kadar teşekkür etsem azdır.
ellerinize sağlık.

bir de bir şey soracağım bunları formül ile yapamazmıyız?

 

[Ömer]

Rica ederim.

Bu mantıkla formül ile yapılamaz. Yalnız veri sayısına göre yüzlerce yardımcı sütun kullanılarak belki yapılabilir. Uğraşmak gerek.

.

 

[use2000]

Çok teşekkür ederim Ömer bey; zekanıza sağlık..

 

[use2000]

Tekrardan merhabalar. Kod tam istediğim gibi oldu ancak bir de tekrarlanan isimlerin alt satıra kopyalanmasını istiyorum. örneği inceledimizde ne demek istediğimi daha net anlayacksınız. Teşekkürler..

 

[ates_2001]

Ömer Bey; sütundaki bütün verileri birleştirmek için verdiğiniz formülde neyi değiştirmek lazım, yani aynı isimleride birleştirsin, mesela 1 den 50 ye kadar bütün verileri birleştirsin aynı isimlerde olabilir ama onlarıda birlştirsin. mümkünmüdür teşekkürler