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

• #40289 Ideg aktív tag

  Új Válasz 2019-02-22 16:22:03 #40289

  Ú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

  

  Ideg

  aktív tag

  Sziasztok!

  Irányított szűrést szeretnék csinálni egy új munkalapra. Tegyük fel egy munkatárs rövid nevére szeretnék szűrni, tehát egy új sheeten felveszem A1 -be azt, hogy "Dolgozó" és A2-be azt, hogy "PISZ". Ha szépen végigkattintgatom irányított szűrésben, hogy mi a lista amiből szűrök, mi a szűrőtartomány és mi a cél ahova másolni szeretném az adatokat, akkor nagyon szépen meg is csinálja. Na már most ebből a szűrésből kellene egy, minden dolgozóhoz, mindig egy új sheeten. Én mint amatőr Excel-es azt találtam ki, hogy megcsinálom ezt egy makróra, így csak a makrót kell mindig lefuttatni ha létrehoztam egy új dolgozónak egy sheetet. Tehát van egy Etalonom ahol az A1-be be van írva, hogy "Dolgozó" és ezután a kolleginának már csak az A2 -be be kell írnia a rövid nevet, majd lefuttatni a makrót.

  A problémát az okozza, hogy mi is legyen a makróban a Szűrőtartomány. Nekem azt kellene elérnem, hogy a szűrőtartomány mindig az éppen aktív sheet A1:A2 tartománya legyen. A makróm jelenleg így néz ki:

  Sub Szuro3()
'
' Szuro3 Makró
'
' Billentyűparancs: Ctrl+q
'
Sheets("Napi GY").Columns("AT:BG").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("AQ3"), Unique:=False
End Sub

  Tehát a CriteriaRange-be szeretném azt elérni, hogy mindig az éppen aktív sheet A1:A2 cellája legyen az szűrőtartomány és a kollégának csak be kell írnia az A2-be a rövid nevet, majd lefuttatnia a makrót.

  Bocsi ha kicsit hosszú lett, próbáltam elmagyarázni konyhanyelven a problémám. Előre is köszi, ha tud valaki segíteni!

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