gegevens overschrijven met een macro

[lakizali]

Beste,

ik maak gebruik van onderstaande code om via een macro drie verschillende excel bestanden in mn model te laden.
als ik nu een bestand van 10 regels in laad en daarna het bestand vervang voor een bestand van 7 regels dan blijven de onderste drie regels van het oude bestand staan, hoe kan ik er nu voor zorgen dat excel automatisch de oude gegevens wist?

dit is mn code:

Sub tst()
    Workbooks.Open ThisWorkbook.Path & "\" & "Afgemelde transportregels.xlsx"
    With ActiveWorkbook
        .Sheets("Sheet1").UsedRange.Copy ThisWorkbook.Sheets("Afzetten").Range("A1")
        .Close False
    End With
    Workbooks.Open ThisWorkbook.Path & "\" & "Voorraad.xlsx"
    With ActiveWorkbook
        .Sheets("Sheet1").UsedRange.Copy ThisWorkbook.Sheets("voorraad standen").Range("A1")
        .Close False
    End With
    Workbooks.Open ThisWorkbook.Path & "\" & "Inkoopregels.xlsx"
    With ActiveWorkbook
        .Sheets("Sheet1").UsedRange.Copy ThisWorkbook.Sheets("Inkoop order regels").Range("A1")
        .Close False
    End With
End Sub

BvD,
Niels

 

[Roncancio]

Het is het makkelijkste om in het begin van de code het cellenbereik leeg te maken.
Bijvoorbeeld:

Sub tst()
    Sheets("Afzetten").Range("1:10").ClearContents
    Sheets("voorraad standen").Range("1:10").ClearContents
    Sheets("Inkoop order regels").Range("1:10").ClearContents

    Workbooks.Open ThisWorkbook.Path & "\" & "Afgemelde transportregels.xlsx"
    With ActiveWorkbook
        .Sheets("Sheet1").UsedRange.Copy ThisWorkbook.Sheets("Afzetten").Range("A1")
        .Close False
    End With
    Workbooks.Open ThisWorkbook.Path & "\" & "Voorraad.xlsx"
    With ActiveWorkbook
        .Sheets("Sheet1").UsedRange.Copy ThisWorkbook.Sheets("voorraad standen").Range("A1")
        .Close False
    End With
    Workbooks.Open ThisWorkbook.Path & "\" & "Inkoopregels.xlsx"
    With ActiveWorkbook
        .Sheets("Sheet1").UsedRange.Copy ThisWorkbook.Sheets("Inkoop order regels").Range("A1")
        .Close False
    End With
End Sub

Met vriendelijke groet,


Roncancio

 

[lakizali]

bedankt :d