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

• #10818 Delila_1 veterán Pityke78 #10813

  Új Válasz 2011-07-12 13:49:44 #10818

  Ú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 Pityke78 #10813 üzenetére

  Tegyél ki ehhez a makróhoz egy gombot, a futtatás után a szűrt oszlopok fejléce (1. sor) piros hátterű lesz.

  Sub AutoSzuro()
  Dim AF As AutoFilter, F As Filter, oszlop As Long
  
  Set AF = ActiveSheet.AutoFilter
  For oszlop = 1 To AF.Filters.Count
  Set F = AF.Filters(oszlop)
  If F.On Then
  Cells(1, oszlop).Interior.ColorIndex = 3
  Else
  Cells(1, oszlop).Interior.ColorIndex = -4142
  End If
  Next
  End Sub

  Majd jön ide valaki, aki megmondja, hogy lehet a szűrés változásához hozzárendelni, hogy ne kelljen külön gombot nyomogatni.

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