Új hozzászólás Aktív témák

• #33313 Delila_1 veterán föccer #33311

  Új Válasz 2016-11-25 08:21:32 #33313

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #33311 üzenetére

  Szia!

  Sub teszt()
Dim AF As AutoFilter, F As Filter, i As Long

Set AF = ActiveSheet.AutoFilter
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then MsgBox "Az AutoFilter " & i & ". oszlopában bekapcsolt szűrő, feltétel: '" & F.Criteria1 & "'"
Next
End Sub

  Ez a makró végig lépked a táblázaton. Amelyik oszlopban be van kapcsolva a szűrő, ott kiírja a kritériumot.
  Üzenet helyett cellákba is kiírhatod az eredményt, amit majd a szumhatöbb függvény paramétereként felhasználsz.

Új hozzászólás Aktív témák