Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Przesunięty przez: Artik
26-02-2021, 09:04
Makro - filtrowanie według założeń
Autor Wiadomość
Adamus25
Fan Excela


Pomógł: 5 razy
Posty: 64
Wysłany: 25-02-2021, 19:47   Makro - filtrowanie według założeń

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

ID posta: 401013 Skopiuj do schowka
 
 
kuma 
Excel Expert


Wersja: Win Office 2010
Pomógł: 1453 razy
Posty: 4171
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
_________________
Pozdrawiam.
ID posta: 401021 Skopiuj do schowka
 
 
Adamus25
Fan Excela


Pomógł: 5 razy
Posty: 64
Wysłany: 25-02-2021, 22:35   

Dziękuję bardzo za pomoc.

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

Pozdrawiam serdecznie
ID posta: 401028 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe