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

• #9776 Delila_1 veterán Jarod1 #9774

  Új Válasz 2011-03-26 19:43:20 #9776

  Ú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 Jarod1 #9774 üzenetére

  Lehet, hogy igaza van Fire-nek az elírással kapcsolatban, de én úgy értettem a kérdést, hogy az érdekel, hány oszlopban van beállítva valamilyen feltétel szerinti szűrés.

  Arra itt a makró hozzá:

  Sub SzűrtOszlopok()
  Dim oszlop As Integer, sz As Integer
  Dim w As Worksheet
  Dim FiltOszlop As String
  
  Set w = Worksheets("Munka1")
  
  With w.AutoFilter
  FiltOszlop = .Range.Address
  For oszlop = 1 To .Filters.Count
  If w.AutoFilter.Filters.Item(oszlop).On Then sz = sz + 1
  Next
  End With
  MsgBox sz
  End Sub

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