Düşeyara ve birleştir hakkında

[aylax]

Herkese selamlar,geçmiş bayramlarınızı tebrik ederim.
Arkadaşlar birleştir ve düşeyara birlikte yapmak istedim.fakat formül işlemiyor.Ekli dosyada örnekledim.Çözüm geliştirecek arkaşlara teşekkür ederim.Kolay gelsin.Esen kalın.

 

[Korhan Ayhan]

Selamlar,

İstediğiniz çözümü yerleşik işlevlerle yapmak zor görünüyor. Eğer kullanmak isterseniz size kullanıcı tanımlı fonksiyon önerebilirim.

Fonksiyonun kullanım şekli;

[B][COLOR=blue]=ÇOKLU_BİRLEŞTİR(Hücre_Aralığı;Kriter)[/COLOR][/B]

Option Explicit
 
Function ÇOKLU_BİRLEŞTİR(Aralık As Range, Kriter As Range)
    Dim Hücre As Range, Sonuç As String
    Application.Volatile
    For Each Hücre In Aralık
        If Hücre.Value = Kriter Then
            If Sonuç = Empty Then
                Sonuç = Hücre.Offset(0, 1).Value
                Else
                Sonuç = Sonuç & "-" & Hücre.Offset(0, 1).Value
            End If
        End If
    Next
    ÇOKLU_BİRLEŞTİR = Sonuç
End Function