Çokludüşeyara ile veri toplama

[selphi7]

Ekli dosyada örnekle açıklamaya çalıştığım konuda yardımlarınızı bekler iyi çalışmalar dilerim.
Teşekkür ederim.
saygılarımla,

 

[Ömer]

Merhaba,

Bu işlem için makro kullanmanızı tavsiye ederim.

Sub Listele()
 
    Dim Sv As Worksheet, c As Range, i As Long
    Dim Adr As Variant, Wf As WorksheetFunction
 
    Set Sv = Sheets("Veri")
    Set Wf = WorksheetFunction
    
    Application.ScreenUpdating = False
    Sheets("Sayfa2").Select
    Range("B2:C" & Rows.Count).ClearContents
 
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        With Sv.Range("A:A")
            Set c = .Find(Cells(i, "A"), , xlValues, xlWhole)
            If Not c Is Nothing Then
              Adr = c.Address
                Do
                    Cells(i, "C") = Cells(i, "C") & " - " & Sv.Cells(c.Row, "C")
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
                Cells(i, "B") = Sv.Cells(c.Row, "B")
                Cells(i, "C") = Wf.Substitute(Cells(i, "C"), " - ", "", 1)
            End If
        End With
    Next i
 
    Application.ScreenUpdating = True
 
 End Sub

.

 

[selphi7]

Ömer Bey,
Çok teşekkür ederim.
Saygılarımla,