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

• #8847 Delila_1 Topikgazda 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

  Topikgazda

  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.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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