megoldást keresek erre a problémára
-
#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