Excel VBA 13 - WYSZUKAJ PIONOWO wszystkie wartości do osobnych komórek 

Zobacz kurs wideo Mistrz Excela
www.udemy.com/mistrz-excela/?...
Darmowy Kurs Excel podstawy exceliadam.pl/darmowy-kurs
Funkcja WYSZUKAJ.PIONOWO zwraca tylko pierwszy znaleziony element i nie szuka już innych, a czasami chcesz, żeby znaleźć wszystkie elementy spełniające warunek i mieć je wpisane w osobne komórki.
Żeby to osiągnąć możesz napisać makro z argumentami, które będzie wyszukiwało wszystkich elementów korespondujących z szukaną wartością i wpisywało je w wyznaczonym miejscu
Sub WyszukajWszystkie2(Szukana As String, Zakres As Range, _
NrKolumny As Integer, Wstaw As Range)
Dim i As Integer, j As Integer
For i = 1 To Zakres.Rows.Count
If Zakres.Cells(i, 1) = Szukana Then
Wstaw.Offset(0, j) = Zakres.Cells(i, NrKolumny)
j = j + 1
End If
Next i
End Sub
Sub Wywołaj()
Call WyszukajWszystkie2(Range("D10"), Range("A2:B18"), 2, Range("E10"))
End Sub
Pliki do pobrania na stronie:
exceliadam.pl/youtube