Hücre Aralığı Birleştirme

[HarEndu]

Merhaba,
Elimde beşbin satırlık liste var. Tarih ölçütüne gre stok adlarını birleştirmek istiyorum. Tek bir hücreninin içerisinde yazsın. değerli yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Tam olarak görmek istediğiniz sonucu paylaşır mısınız?

 

[HarEndu]

Ektedir...

 

[Korhan Ayhan]

KTF ile çözüm dosyası ektedir.

Uygulanan KTF;

=K_BİRLEŞTİR(Birleştirilecek_Alan;Koşul_Alanı;Koşul;Boş_Hücreleri_Atla;Ayraç)

Option Explicit

Function K_BİRLEŞTİR(Birleştirilecek_Alan As Range, Koşul_Alanı As Range, Koşul As Range, _
                     Optional Boş_Hücreleri_Atla As Boolean = True, Optional Ayraç As String = "-") As String
    Dim Veri As Range, Say As Long
    
    Application.Volatile True
    
    For Each Veri In Koşul_Alanı
        Say = Say + 1
        If Veri.Value = Koşul.Value Then
            If Boş_Hücreleri_Atla = True Then
                If Birleştirilecek_Alan.Cells(Say).Value <> "" Then
                    If K_BİRLEŞTİR = "" Then
                        K_BİRLEŞTİR = Birleştirilecek_Alan.Cells(Say).Value
                    Else
                        K_BİRLEŞTİR = K_BİRLEŞTİR & Ayraç & Birleştirilecek_Alan.Cells(Say).Value
                    End If
                End If
            Else
                If K_BİRLEŞTİR = "" Then
                    K_BİRLEŞTİR = Birleştirilecek_Alan.Cells(Say).Value
                Else
                    K_BİRLEŞTİR = K_BİRLEŞTİR & Ayraç & Birleştirilecek_Alan.Cells(Say).Value
                End If
            End If
        End If
    Next
End Function

 

[HarEndu]

Harikasınız, mükemmel olmuş. Çok teşekkür ediyorum, zahmet verdim sizlere. Emeğinize sağlık olsun inş.