Macro til kopiering af hele rækker fra aktivt ark til næste ark

Claus - kig engang på Data/Filter/Avanceret filter, som kan løse opgaven for dig. Optag det i en makro.

I den optagne makro udskifter du \"100012\" med Range(\"A1\") - prøv det :-)

Flemming,
jeg har overvejet din løsning, men den giver ikke løsningen til at kopiere over til et nyt ark, desværre.

MVH
Claus

Jo, det kan godt lade sig gøre, at lave avanceret filter på et andet ark.

Kan en af jer specifer, hvordan man gør det?

Det er åbenbart ikke helt ligegyldigt hvor man står, når man optager makroen, så det kan nemt være det, som driller dig.

Men jeg har lavet et lille eksempel, som ihvertfald virker.

jan_vogt_hansen@hotmail.com

Jan,
er det ok, hvis jeg sender arket til dig i løbet af weekenden og beskriver problemformuleringen? - jeg skal nok smide ekstra point på.

MVH
Claus

1. Marker din liste eller blot en del af den.
2. Vælg Data/Filter/Avanceret filter
3. OK
4. Afkryds \"Kopier til et andet sted\"
5. Udfyld med de rigtige områder
6. OK

>ransborg
Ja, det er ok - send det bare.

>flemming
Det fungerer ikke, hvis man optager makroen \"lige ud ad landevejen\".

Jan,
Jeg sender det til dig *S*

Flemming, jeg har lige været inde i hjælpe funktionen, og der står noget om, at hvis det skal kopieres til et andet ark, skal man først sørge for, at kolonne overskrifterne er ens på begge ark. Så det kræver lidt mere end som så

MVH
Claus

tjaa - kopi og indsæt af kolonneoverskrifter er vel let nok !

>Flemming
Har du prøvet?

Du kunne prøve denne makro.
Den foudsætter at data og A1 er adskilt med en linie eller mere. Altså data begyder i række 3

Sub Makro2()
    Selection.AutoFilter Field:=4, Criteria1:=Range(\"a1\").Value
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets.Add
    Range(\"A1\").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Du skal stå i dataområdet når du starter makroen.

Lidt forbedret version, samme forudsætninger, dog kan makroen afspilles også når man står i A1:
Sub Makro2()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    StartArk = ActiveSheet.Name
    Selection.End(xlDown).Select
    Selection.AutoFilter Field:=4, Criteria1:=Range(\"a1\").Value
    Selection.CurrentRegion.Copy
    Sheets.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets(StartArk).Select
    Selection.AutoFilter
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

ransborg> har du fået svar nok ??

Jeg har simpelthen ikke haft tid til at prøve det af, men jeg stoler på din dømmekraft, BAK.

Jeg håber det er ok med dig, at jeg også uddeler point til Jan og Flemming, da de har vist meget velvilje.

MVh
Claus

Hmmm underligt, Bak  jeg opretter lige et spørgsmål til at give dig point.
Bak 26 point.