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

• #19540 Mutt senior tag Mittu88 #19539

  Új Válasz 2013-11-17 16:25:36 #19540

  Ú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

  

  Mutt

  senior tag

  válasz Mittu88 #19539 üzenetére

  Hello,

  Kiegészítheted a korábbi makrót ezzel a sorral.

  Worksheets("masik lap").Columns("A:D").AutoFilter Field:=1, Criteria1:=Range(cella).Value

  Így lefut a szűrés minden alkalommal.
  A gond, hogy pont emiatt erőforrás pazarló, ezért egy kicsit lehet hangolni rajta:
  Dim EredetiErtek
  Const cella As String = "A2"
  
  Private Sub Worksheet_Calculate()
  
  'kikapcsoljuk az eseménykezelést, mivel a következősor újabb eseményt (change) indítana el
  Application.EnableEvents = False
  'értéket másolunk eggyel a keresett cella alá
  Range(cella).Offset(1).Value = Range(cella).Value
  'eseménykezelést visszakapcsoljuk
  Application.EnableEvents = True
  
  End Sub
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  
  'csak akkor engedjük futni a szűrést, ha változott a szűrési feltétel
  If EredetiErtek <> Range(cella).Value Then
  Worksheets("UDF").Columns("A:D").AutoFilter Field:=1, Criteria1:=Range(cella).Value
  EredetiErtek = Range(cella).Value
  End If
  
  End Sub

  üdv

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