Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - wyszukiwarka po filtrach ale makrem

Kiluk · Exceloholic **Pomógł:** 6 razy Posty: 249

Witajcie.
Potrzebuje zrobić wyszukiwarkę (coś jak w załączniku)
Chodzi o to abym wpisując kryteria szukania (od 1 do 4) dostawał tabelkę z wynikami szukania.

W przykładnie zrobiłem to dla 2 kryteriów szukania, a myślę o rozszerzeniu tego do 4 kryteriów.
Dla 2 kryteriów mam to zrobione ale z wykorzystaniem funkcji tablicowych, co przy kilkudziesięciu tysiącach wierszy w źródle danych powoduje długi czas potrzebny na otrzymanie wyniku

Chciałbym to wykonać za pomocą makra, ale to za wysokie progi.....
I jeszcze gdyby tak dane źródłowe były nie w 1 ale np 5 arkuszach

szczegóły i przykładowe bzdurne dane w załączniku

Kiluk

szukajka.zip

Pobierz Plik ściągnięto 12 raz(y) 7.39 KB

hurgadion · Excel Expert **Pomógł:** 767 razy Posty: 1302

Witam,
przetestuj proszę jak w załączniku działa makro:

Kod:

Sub Szukaj()
Dim a&, i&, j&, x&

x = 5
a = Cells(Rows.Count, "A").End(xlUp).Row
If a > 5 Then Range("A6:F" & a).ClearContents

With Worksheets("dane")
a = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To a
If .Cells(i, 1).Value = Cells(4, 1).Value Then
x = x + 1
For j = 2 To 6
Cells(x, j).Value = .Cells(i, j).Value
Next j
Cells(x, 1).Value = Cells(4, 1).Value
End If
Next i
End With
End Sub

Podobne makro należy napisać w II przypadku, pozdrawiam.

szukajka.sol.rar

Pobierz Plik ściągnięto 18 raz(y) 10.63 KB

Abramis00 · forumowicz **Pomógł:** 1 raz Posty: 18

Witam, o ile dobrze rozumiem to chodzi o filtrowanie z kilku arkuszy. Niedawno miałem podobny problem z filtrowaniem danych z kilku arkuszy, opisany w poście http://www.excelforum.pl/...za-vt27654.htm. Dzięki pomocy kolegów z forum udało się stworzyć dość dobrze działające makro dla kilku arkuszy. Wpisałem je do Twojego przykładu w załączniku tak aby wyciągać dane z dwóch arkuszy, może się przyda.

szukajka-2.zip

Pobierz Plik ściągnięto 19 raz(y) 15.45 KB

Kiluk · Exceloholic **Pomógł:** 6 razy Posty: 249

Niby działa, ale zauważyłem, że w wyniku wyszukiwania każda wartość jest dublowana.
Kiluk

Abramis00 · forumowicz **Pomógł:** 1 raz Posty: 18

Też to zauważyłem ale nie wiem jak to wyeliminować a nie śmiałem wcześniej nadużywać uprzejmości kolegów. Popraw to makro albo pytaj mądrzejszych ode mnie, pewnie coś poradzą a ja też chętnie się dowiem jak to poprawić.
Pozdrawiam.