ActiveSheet

Hejsa

Jeg har en projektmappe hvor jeg nu skal have flere ark,
det jeg skal bruge er at neden stående, henter på "data"-ark,
og sætter ind på det åbne ark og ikke kun på "Hovedstreng"-arket.

på Forhånd tak


Private Sub Workbook_Open()
Application.OnKey "{F2}", "ThisWorkbook.CopyInsert"
Application.OnKey "{F3}", "ThisWorkbook.CopyInsert2"
End Sub

Function CopyInsert()
Application.ScreenUpdating = False

    Sheets("data").Select
    Range("aa16:bn19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Hovedstreng").Select
    Range("A" & Range("AD7")).Select
    Selection.Insert Shift:=xlDown
    Range("AD7").Value = Range("AD7").Value + 4
   
Application.ScreenUpdating = True

End Function