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

• #10842 m.zmrzlina senior tag Delila_1 #10836

  Új Válasz 2011-07-12 22:42:41 #10842

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Delila_1 #10836 üzenetére

  Na ezzel elleszek egy darabig...
  
  Köszi

• #10837 Fire/SOUL/CD félisten Delila_1 #10836

  Új Válasz 2011-07-12 19:29:29 #10837

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

  Hát csak egy kissé nehezen követhető, talán így egyszerűbb

  With Worksheets("Munka1")
  If .AutoFilterMode Then
  With .AutoFilter.Filters(1)
  If .On Then
  MsgBox ("Szűrve: " & """" & .Criteria1 & """" & " feltétel alapján.")
  Else
  MsgBox ("Nem szűrt")
  End If
  End With
  End If
  End With

  A Filters tulajdonság indexével lehet hivatkozni, tartománya 1-től AutoFilter.Filters.Count-ig.

  UI: "Aki ezt a rövid makrót írta, nagyon erényes. Szép.letisztult makrót írt."
  Igen, nyomhatott volna egy F1-et inkább... [link]

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