Makro - loop

Tilføj en Do... Loop løkke omkring din kode:

Do While Worksheets("Ark").Range("A2").Value <> ""
  ' din eksisterende kode
Loop

Det giver lidt problemer med    Value <> kunne du prøve at sætte dit forslag ind i makroen for mig, på forhånd TAK



Sub Print_og_slet()
' Print_og_slet Makro

    Sheets("ark1").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("ark2").Select
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
End Sub

Jeg opdagede lige en trykfejl - der manglede et 2-tal i angivelsen af hvilket worksheet der skulle kigges på. For konsistens ift. din øvrige kode har jeg rettet Worksheets til Sheets - resultatet skulle være det samme.

Sub Print_og_slet()
' Print_og_slet Makro
 
  Do While Sheets("Ark2").Range("A2").Value <> ""

    Sheets("ark1").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("ark2").Select
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp

  Loop
End Sub

Hej Anlu det virker  Mange Tak  send det som svar så jeg kan afslutte denne.

Det var så lidt :o)