II = Sheets(1).UsedRange.Rows.Count For I = 2 To II If Sheets(1).Rows(I & ":" & I).Hidden = False Then Sheets(1).Rows(I & ":" & I).Copy Sheets("Ark2").Range("A" & Sheets(2).Range("A65536").End(xlUp).Row + 1) End If Next
et eksempel på hvad der er vist i filtret på sheets(1), kopieres hele rækken over i Sheets(2)
Marker de filtrerede værdier. Tryk F5 og vælg "Speciel" Afmærk "Kun synlige celler" og tryk OK Tryk CTRL+C for at kopiere Vælg dit andet ark og tryk CTRL+V for at indsætte værdierne
Janvogt > kan du få "Avanceret filter" til at gemme i et andet ark, jeg kan ikke , min excel 2000 nægter at udføre det, på andet end det ark som filtreres på.
Ja, det er korrekt som bak skriver. Det kan godt lade sig gøre, hvis bare man starter ud på det ark, man ønsker sine data filtreret over i. Kriterierne kan godt stå på det "gamle" ark. Pudsigt nok var jeg for nyligt på et MOS-kursus (Microsoft Office Specialist), hvor underviseren også hårdnakket påstod, at det ikke kunne lade sig gøre. Hun blev klogere ...... :-)
Jeg tror i misforstår. Min formulering er sikkert dårlig.
Jeg skal ikke have filtrerede celler over i et nyt ark, men værdierne fra autofilter dropdownboxen. Dvs. hvis der i kolonnen Navne står Hans, Poul, Jim og John, skal jeg have disse 4 navne over i et andet ark. De samme navne går igen i mange celler i kolonnen, men jeg skal altså kun have hvert én gang.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.