Delila1 2016. dec. 22. 07:00 | válasz | #2269
Szia! Rögzíted a makrót úgy, hogy a specszűrés is benne legyen. A példában az A1:C50 tartományt szűrjük, kritériumtartomány a G1:G2, a szűrés helye az I1, csak az egyedi rekordokat jelenítjük meg. Range("A1:C50").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("G1:G2"), _ CopyToRange:=Range("I1"), Unique:=True Ezután átalakítjuk a makrót úgy, hogy a bővülő táblában is hibátlanul működjön. Dim usor As Long usor = Range("A" & Rows.Count).End(xlUp).Row Range("A1:C" & usor).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("G1:G2"), _ CopyToRange:=Range("I1"), Unique:=True Megteheted, hogy a makróban adod meg a kritérium 2 adatát. Range("G1")="cím":Range("G2")=érték Utoljára szerkesztette: Delila1, 2016.12.22. 07:04:40