VBA Excel - Automatický filtr

[Branscombe]

Možná triviální otázka, ale jak přidám automatický filtr do horního řádku pomocí VBA ??

[navstevnik]

Co takhle zkusit nahrat makro a patricne upravit? Je to vhodny zpusob pro jednoduche pozadavky, kdyz nevis jak to ve VBA napsat.

[Branscombe]

To jsem samozřejmě vyzkoušel a nic ... Zkusil jsem i Google a taky nic ...

[navstevnik]

Ches snad tvrdit, ze se nezaznamenalo takoveto podobne makro?

Kód: Vybrat vše

Sub Makro1()
'
' Makro1 Makro
' Makro zaznamenané 21.10.2010, Private User
'

'
    Selection.AutoFilter
End Sub

Upravou ziskas - priklady:

Kód: Vybrat vše

Option Explicit

Sub AktivovatAutoFiltr()
' aktivuje autofiltr
  ActiveSheet.UsedRange.AutoFilter
End Sub


Sub AktivovatAutoFiltr1()
' aktivovat autofitr, sloupec 2, kriterium "21"
  Dim FBlk As Range

  Set FBlk = ActiveSheet.UsedRange
  FBlk.AutoFilter Field:=2, Criteria1:="21"
  Set FBlk = Nothing
End Sub

Sub DeaktivovatAutoFiltr()
  Selection.AutoFilter
End Sub

[Branscombe]

No zaznamenalo se mi to co pises, ale nenapadlo me to prevest do takovehoto formatu...
diky moc za rady, jsi proste dobrej ...