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

• #8847 Delila_1 veterán Lackukac #8846

  Új Válasz 2010-12-10 09:07:32 #8847

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

  Két makró lehetővé teszi, hogy az A oszlopot bővítve, vagy szűkítve minden külön gombnyomás nélkül létrejöjjön a B oszlopban a szűrt listád.

  Az elsőt a laphoz kell rendelned: lapfülön jobb klikk, Kód megjelenítése, a VB szerkesztőben (ahova most bejutottál) a jobb oldalon kapott üres lapra másold be.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
  Application.EnableEvents = False
  Range("J1") = Range("A65000").End(xlUp).Row
  Columns("B:B") = ""
  Lista_Szűrő
  Application.EnableEvents = True
  End If
  End Sub

  A szerkesztőben maradva bal oldalon kattints a füzeted nevére. Insert menü, Module. Kapsz bal oldalon egy Module1 nevű modult, ehhez másold be jobb oldalra a második makrót.

  A J1 cellába írja be a makró az A oszlop mindenkori utolsó sorát, és felhasználja a szűrésnél.

  Sub Lista_Szűrő()
  ActiveWorkbook.Names.Add Name:="Lista", RefersToR1C1:= _
  "=OFFSET(Munka1!R1C1,0,0,Munka1!R1C10,1)"
  Range("Lista").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
  "D1:D2"), CopyToRange:=Range("B1"), Unique:=False
  End Sub

  Az "=OFFSET(Munka1!R1C1,0,0,Munka1!R1C10,1)" sorban a félkövérrel írt munkalap nevet írd át a saját lapod nevére.

• #8845 Delila_1 veterán Lackukac #8843

  Új Válasz 2010-12-09 19:15:42 #8845

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

  Irányított szűrővel villámgyorsan megcsinálhatod a mellékelt kép szerint.

  Beírod a D1-be az A oszlop címét (ez szükséges hozzá), D2-ben a feltételt (>0).
  Kijelölöd az A oszlopban a tartományt, Adatok - Szűrő - Irányított.
  A megjelenő párbeszéd ablakot a kép szerint kitöltöd, OK után azonnal kitölti a B oszlopot.

  

• #8844 Lackukac csendes tag Lackukac #8843

  Új Válasz 2010-12-09 19:14:20 #8844

  Ú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

  

  Lackukac

  csendes tag

  válasz Lackukac #8843 üzenetére

  Bocsi, egy kicsit elcsúszott, feltöltök egy képet, úgy érthetőbb lesz remélem.

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