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

• #10829 Fire/SOUL/CD félisten Delila_1 #10828

  Új Válasz 2011-07-12 18:08:27 #10829

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 #10828 üzenetére

  Tegyél a munkalapra pl. egy MOST() fx-et és az Worksheet Calculate eseményébe tedd a kódot. Ez meg egy másik megközelítés, a Filterhez

  Private Sub Worksheet_Calculate()
  'Szűrt terület sorainak teljes száma, a címsort is beleértve
  MsgBox (AutoFilter.Range.Rows.Count)
  'Szűrt terület aktuális (szűrt) sorainak száma, címsort is beleértve
  MsgBox (AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count)
  End Sub

  Értelem szerűen, ha az a két érték egyenlő, akkor nincs szűrés, más esetben meg igen.

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