Aynı veriye karşılık gelen değerleri sıralama

[karatren84]

Ektede detaylı bir şekilde yazdığım soruna çözüm bulamadım yardımlarınız bekliyorum

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyiniz:

http://www.excel.web.tr/f122/formulle-suzme-uygulamalary-t86938.html


.

 

[karatren84]

Teşekkür ederim kolay gelsin

 

[Murat OSMA]

Makro ile alternatif...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim evn As Range
    Dim sat As Integer
    sat = 18
    If Target.Address(0, 0) <> "A18" Then Exit Sub
    For Each evn In Range("A2:A17")
        If Target.Value = evn.Value Then
            Cells(sat, "B") = evn.Offset(0, 1)
            sat = sat + 1
        End If
    Next evn
    sat = Empty: Set evn = Nothing
End Sub

 

[baydeniro]

Teşekkürler sayın yurttas ve Murat Osma.

 

[Murat OSMA]

Rica ederiz Serdar Bey, iyi akşamlar...

 

[Murat OSMA]

Sn. karatren84, konu ile ilgili bir cevap vermediniz. Sonuç nedir ? :dusun: