EXCEL:opakované vyhledání v oblasti dat+návrat všech hodnot Vyřešeno

[birgis]

Ahoj borci,

opět jsem tu s prosbou o radu:
mám data se sloupci

Jmeno, datum, Typ dokladu

a na jiném listu potřebuju do jedné buňky vrátit všechny nalezené typy dokladu , oddělené třeba čárkou (se stejným jménem a datem)

Ideálně bez maker (pokud to jde)
Moc díky za jakoukoukoli pomoc

Dotaz.xlsx

(10.7 KiB) Staženo 100 x

[Reklama]

[guest]

Bez maker v jedné buňce dle mého názoru nelze rozumně uskutečnit.

[Azuzula]

Někde jsem zahlédla maticový vzorec, který dokáže vyhledat několik stejných textových výsledků, ale už nevím kde to bylo a nedaří se mi to nikde najít.

Možná někdo znalý matic poradí jak to udělat.
A kdyby ne:
Před pár lety jsem si napsala svoji funkci která tenhle požadavek dokáže snadno vyřešit. Bez povolených maker to ale nepůjde.

Kód: Vybrat vše

Function NajdiVice(Hledat As Variant, Oblast As Range, Prohledat_sloupek As Integer, Vzit_sloupek As Integer, Poradi As Integer) As Variant
' funkce na vyhledání položky v zadaném sloupci a v zadaném pořadí
' **** vysvětlivky ****
' Hledat = co hledat
' Oblast = oblast dat (tabulka) kde hledat a vybírat výsledky
' Prohledat_sloupek = číslo sloupce v oblasti dat který se má prohledat
' Vzit_sloupek = číslo sloupce ze kterého se bude brát výsledek hledání
' Poradi = pořadí výsledku který má najít
' ****

Dim a As Long, x As Integer
x = 1
With Oblast
    For a = 1 To .Rows.Count
        If .Cells(a, Prohledat_sloupek) = Hledat Then
            If x = Poradi Then
                NajdiVice = .Cells(a, Vzit_sloupek) 'vrací nalezenou hodnotu
                Exit Function
            Else
                x = x + 1 'počítadlo pořadí shody
            End If
        End If
    Next
End With
NajdiVice = CVErr(xlErrNA) 'vrátí chybu N/A když nenajde shodu
End Function

Funkce a vzorce viz příloha.

[birgis]

Ahoj, je to naprosto perfektní. A vlastně možná je to makrem i lepší. Nějaká matice by asi soubor dost zpomalila.

Moc děkuju za pomoc