Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Makro - filtrowanie według założeń

Adamus25 · Fan Excela **Pomógł:** 5 razy Posty: 64

Witam,

Dzięki pomocy Maciej Gonet i DwaNiedźwiedzie zagregowałem i uporządkowałem dane z kilkunastu tabel. Pozostało filtrowanie.

Moja koncepcja makra:
Kliknięcie w komórkę jednej tabeli zakłada filtr na innej tabeli z założeniami wynikającymi w którą komórkę klikamy.
Szczegóły w pliku.

Jeżeli jest to do zrealizowania to poprosiłbym o napisanie takiego makra.

Pozdrawiam serdecznie

Maszyna.xlsx

Pobierz Plik ściągnięto 14 raz(y) 48.29 KB

kuma · Wysłany: 25-02-2021, 21:11

Przetestuj moją propozycję. Moduł VBA arkusza 1.

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hd As String
Dim id As Integer

If Intersect(Target, Range("G2:Ak32")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
hd = Cells(5, Target.Column).Value
id = Cells(Target.Row, 3).value
Filtruj hd, id
End Sub

Moduł normalny VBA.

Kod:

Sub Filtruj(hd As String, id As Integer)
Dim cl As Integer

Application.ScreenUpdating = False
With Sheets("Arkusz2").Cells(4, 2).CurrentRegion
.Parent.Activate
cl = Application.Match(hd, .Parent.Rows(4), 0) - 1
.AutoFilter
.AutoFilter cl, id
End With
End Sub

Adamus25 · Fan Excela **Pomógł:** 5 razy Posty: 64

Dziękuję bardzo za pomoc.

Mała kosmetyka zakresu i działa bardzo dobrze. :-D

Pozdrawiam serdecznie