Düşeyara (Birden Fazla Satır Getirtme)

[tirEdsOuL]

Merhaba;

Düşeyara formülünde istediğimiz değere karşılık olan bir değeri getirebiliyoruz. Peki aynı koşula uyan birden fazla değeri de aynı hücreye getirtmek mümkün mü acaba ?

Örnek görüntü ektedir.

 

[Ömer]

Merhaba,

Formül ile yapmak isterseniz birden çok yardımcı hücre kullanmanız gerekir. Makro kullanılması en doğru yoldur.

Sayfanın kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim c As Range, Adr As String, deg As String

    If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub
    
    With Range("A:A")
        Set c = .Find(Target.Value, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                deg = deg & "," & Cells(c.Row, "B")
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
    
    Range("E2").ClearContents
    Range("E2") = WorksheetFunction.Substitute(deg, ",", "", 1)
    
End Sub

.