mam kody:
Kod: Zaznacz cały
If (ActiveCell.Parent.AutoFilterMode) Then
Dim field As Integer: field = ActiveCell.Column - ActiveSheet.AutoFilter.range.Column + 1
If (field > ActiveSheet.AutoFilter.range.Columns.Count) Then Exit Sub
ActiveCell.AutoFilter field:=field, Criteria1:=ActiveCell.Value
End If
Ustawia mi filtr w bieżącej kolumnie na wartość z zaznaczonej komórki
Kod: Zaznacz cały
If (ActiveCell.Parent.AutoFilterMode And ActiveCell.Parent.FilterMode) Then
ActiveSheet.ShowAllData
End If
P.s.Resetuje mi wszystkie filtry jako nie wybrane - ale filtry nadal są dostępne do użycia
ważne jest to że powyższy kod działa na każdym arkuszu (pola filtrów na różnych arkuszach mają różną lokalizacje)
nie mam pojęcia jak to przenieść do LibreOffice, prośba o pomoc
Ps