Aanpassing Marco, opdracht uitvoeren achter de schermen..

[rvt1982]

Beste leden,

Ik heb de volgende code, maar nu wil ik dat via deze code gekopieerd word niet van tab verwisseld word, dus dat dit netjes achter de schermen gebeurd..

    Range("DL18:DP18").Select
    Selection.Copy
    Sheets("AgendaData").Select
    Cells(Rows.Count, "j:j").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

Alvast bedankt voor de hulp.

 

[Warme bakkertje]

Application.ScreenUpdating = False
Range("DL18:DP18").Copy
Sheets("AgendaData").Cells(Rows.Count, "j:j").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
With Application
    .CutCopyMode = False
    .ScreenUpdating = True
End With

 

[rvt1982]

Thnx Warme Bakkertje

Precies wat ik bedoel.