Automatisk overførsel fra ét ark til et andet

Det kan nemt laves - men du kan nøjes med
at have en kolonne med Arkiveringsdato
og så bruge:
Filter >> Autofilter
der siger Arkiveringsdato<>""

Men det er nødvendigt at linjen bliver overflyttet til et andet ark, så det er mere overskueligt.
Kan jeg gøre det?

Hvilken kolonne til højre er fri til tids-stempel?

Hej Signe

Når du har lavet filtreringen, kopierer du hele arket til et andet ark, som værdi og formateret som siden du kopierer fra.

Sådan gør du:
Placer markøren i øverste venstre hjørne af arket, der hvor kolonnebetegnelse, og rækkenummer mødes.(til venstre for "A" og over "1"). Højreklik på musen. Klik på kopier.
Flyt markøren til det ark, du vil kopiere til. Venstreklik i øverste venstre hjørne. Højreklik og under "Indsæt" klikker du ikonet med tallene "123".  Placer i gen markøren i øverste venstre hjørne, Højreklik på ikonet med "% og en pensel".

Det er det

Eksempel:
https://www.dropbox.com/s/auuxi0trntl0wwo/Automatisk%20overf%C3%B8rsel%20fra%20%C3%A9t%20ark%20til%20et%20andet.xlsm?dl=0

store-morten, hvordan fik du den kasse frem med "Arkiver"?

Med en makro

Kan du hjælpe med en kode?

Spørg løs ;-)

Altså jeg er fuldstændig nybegynder i forhold til makro og VBA koder i excel, så jeg ved ikke om det er muligt for dig at forklare hvordan jeg sætter det hele op?
Jeg ønsker, når jeg markerer en linje og trykker på boxen 'Arkivér' skal den flyttes over i et andet ark jeg har der hedder 'Ordrearkiv' hvor den skal notere datoen også... Er det muligt?

Private Sub CommandButton1_Click()
Dim answer As Integer

'Markerer celle med rød farve
ActiveCell.Interior.ColorIndex = 3

Svar = MsgBox("Du er ved at flytte række: " & ActiveCell.Row, vbYesNo + vbQuestion, "Arkivering")
If Svar = vbYes Then

    'Flytter rækker ned på Ark2
    Worksheets("Ark2").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
    'Sletter celle farve
    ActiveCell.Interior.ColorIndex = none
    'Kopierer aktiv række og indsætter på Ark2 i anden øverste række
    ActiveCell.EntireRow.Copy Destination:=Worksheets("Ark2").Range("A2")
   
    'Sætter tids-stempel
    Worksheets("Ark2").Range("E2").Value = Now

    'sletter aktiv række
    ActiveCell.EntireRow.Delete

Else
    ActiveCell.Interior.ColorIndex = none
End If
End Sub

Må jeg sende mit Excel ark til dig?
Jeg tror ikke jeg kan få det til at fungere...

Ja, det må du gerne.