Verplaatsen van gegevens naar ander blad met macro

[PvR68]

Hallo allemaal,

Met onderstaande VBA code wil ik graag uitgerekende cellen verplaatsen naar een ander blad. Het is namelijk de bedoeling om deze van zondag t/m zaterdag onder elkaar te krijgen waaruit een grafiek wordt getoond
Omdat in de cellen van Blad 1 gegevens staan die met formule berekend worden, wordt ook de formule door de macro gekopieerd naar Blad2.
Dit is niet wat ik wil bereiken, en geeft dus foute uitkomst.

Wie kan mij hiermee helpen?

Verplaats()
    Dim SourceRange As Range, DestRange As Range
    Dim DestSheet As Worksheet, Lr As Long

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    'fill in the Source Sheet and range
    Set SourceRange = Sheets("Blad1").Range("L2:P2")
    
    'Fill in the destination sheet and call the LastRow
    'function to find the last row
    Set DestSheet = Sheets("Blad2")
    Lr = DestSheet.Cells(Rows.Count, "F").End(xlUp).Row

    'With the information from the LastRow function we can
    'create a destination cell and copy/paste the source range
    Set DestRange = DestSheet.Range("F" & Lr + 1)
    SourceRange.Copy DestRange

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    
    Sheets("Blad1").Select
    
End Sub

PS: de code werkt wel als ik de getallen zelf handmatig invul

Alvast mijn dank!
Pieter

 

[Cobbe]

Pas dit even aan:

Set DestRange = DestSheet.Range("F" & Lr + 1)
    SourceRange.Copy
    DestRange.PasteSpecial Paste:=xlValues

 

[PvR68]

Thx Cobbe! Dat werkt inderdaad
Er blijft wel een stippellijntje om deze cellen staan, zoals Excel wel vaker laat zien als je een formule gebruikt bij meerdere cellen
Is die ook uit te schakelen?

Alvast weer bedankt
Pieter

 

[Haije]

voeg na de paste regel toe:

Application.CutCopyMode = False

 

[PvR68]

Top!
Bedankt