Sütunları virgüllü satırlara dönüştürmek

[prepositions]

Arkadaşlar Merhaba,
Ekte yolladığım excelde 2 sütun yer alıyor, bu sütunlardan ilki id niteliğinde. 2. sütunsa kategori bilgisi, istediğim ise id lere ait kategorileri aşağıya doğru değilde, virgülle ayrılmış biçimde yana doğru yazdırmak.
Eke bakabilirseniz ayrıntılı olarak resimleyerek anlattım.
Yardımlarınız için çok teşekkür ederim.
Saygılarımla,
Cihan

 

[BG]

Merhaba

Sheet1 H1 hücresine aşağıdaki formülü kopyalayınız.

Örnektir.

=BİRLEŞTİR(B1;",";B2;",";B3;",";B4;",";B5;",";B6;",";B7;",";B8;",";B9;",";B10;",";B11;",";B12)

 

[prepositions]

Sevgili brain, yanıtın için teşekkürler, ancak ben bunun makro ile çözüleceğini düşünüyorum, çünkü senin çözümün tek bir id için, ve her id nin kategori sayısı farklı...Yardımlarınızı bekliyorum...Teşekkürler, Cihan

 

[Orion1]

Dosyanız ekte.

Sub IDNOLAR()
Dim i As Long, k As Range, sat As Long
Sheets("Sheet1").Select
Application.ScreenUpdating = False
Range("G1:H65536").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row
    Set k = Range("G1:G65536").Find(Cells(i, "A").Value)
    If k Is Nothing Then
        sat = sat + 1
        Cells(sat, "G").Value = Cells(i, "A").Value
        Cells(sat, "H").Value = Cells(i, "B").Value
        Else
        k.Offset(0, 1).Value = k.Offset(0, 1).Value & "," & " " & Cells(i, "B").Value
    End If
Next i
Set k = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[hamitcan]

Bir tane de benden olsun.

Sub dd()
c = 1
    Columns(1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("g1"), Unique:=True
    [g1].Delete
    For i = 1 To [a65536].End(3).Row
        If Cells(i, 1) = Cells(c, "g") Then
            a = a & Cells(i, 2) & ", "
        End If
        Cells(c, "h") = Left(a, Len(a) - 2)
        If Cells(i, 1) <> Cells(i + 1, 1) Then c = c + 1: a = ""
    Next
End Sub

 

[prepositions]

Arkadaşlar çok ama çok teşekkürler..
Excelwebtr.com çözemediği bir soru göremedim zaten.
Ne söylesem az, çok teşekkürler...
Cihan

 

[tahsinanarat]

Dikkatimi çektiği için soruyorum; sn. prepositions'un örnek dosyasında kodlar çalıştırıldığında, A sutununda tek olan sayıların karşılığındaki b sutunundaki bilgilerin satırı boş olarak geliyor,
oysa sn. Evren Gizlen'in ekli dosyasında ise boş gelmiyor, neden olabilir ki, ben bulamadım

 

[tahsinanarat]

afedersiniz, hücreler sağa yazlı olduğu için görmemişim, şimdi fark ettim, ellerinize sağlık. arşivime alıyorum