Soru Fatura Satırındaki verileri Tek Satırda Tire İle Ayırma

[ozanyakar]

Üstatlarım merhaba,
Aynı fatura numarası olanların , C Sütununda fatura satırları var, bir faturada birden fazla malzeme var, tek satırda, aynı fatura içerisindeki verileri "-" ayracı ile nasıl yapabilirim , yardımcı olabilir misiniz ?

İSTENEN Kısmında örnek yaptım.

 

[Muzaffer Ali]

Merhaba.

Sayfanın kod kısmına aşağıdaki kodu kopyalayıp çalıştırın.

Dim Veri As Variant
Sub test()
    Dim Say As Long
    Dim Bak As Long
    Say = 3
    For Bak = 3 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "A") = Cells(Bak + 1, "A") Then
            RedimVeri Bak

        Else
            RedimVeri Bak
            
            Cells(Say, "C") = Cells(Bak, "A")
            Cells(Say, "d") = Join(Veri, "-")
            
            Say = Cells(Rows.Count, "C").End(xlUp).Row + 1
            Veri = Empty
        End If
    Next
    MsgBox "Tamamlandı."
End Sub

Sub RedimVeri(Bak As Long)
    If IsArray(Veri) Then
        ReDim Preserve Veri(UBound(Veri) + 1)
    Else
        ReDim Veri(0)
    End If
    Veri(UBound(Veri)) = Cells(Bak, "B")
End Sub

 

[ozanyakar]

Sayın
Muzaffer Ali yardımlarınız için teşekkür ederim. Bir problem yok. Ellerinize , emeğinize sağlık. Saygılar sunarım.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.