Bij kopieren en plakken krijg ik #VERW!

[davylenders123]

Heb een macro gemaakt die van die map gegevens in cellen zet en dan alles kopiereerd om dan alles in een ander bestand te kunnen plakken.
Echter als ik in het andere bestand plak krijg ik de volgende vermelding in alle cellen "#VERW!".
Hoe kan ik dit oplossen.
Het hoeven niet de formules te zijn die mee overgenomen dienen te worden.
Enkel de gegevens overnemen is voldoende

Sub distributie()
'
' Macro1 Macro
'

'
    Range("K5").Select
    ActiveCell.FormulaR1C1 = "=RC[-6]"
    Range("L5").Select
    ActiveCell.FormulaR1C1 = "=R[1]C[-7]"
    Range("M5").Select
    ActiveCell.FormulaR1C1 = "=R[2]C[-8]"
    Range("N5").Select
    ActiveCell.FormulaR1C1 = "=R[4]C[-9]"
    Range("O5").Select
    ActiveCell.FormulaR1C1 = "=R[5]C[-10]"
    Range("P5").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q5").Select
    ActiveCell.FormulaR1C1 = "=R[1]C[-9]"
    Range("R5").Select
    ActiveCell.FormulaR1C1 = "=R[4]C[-10]"
    Range("S5").Select
    ActiveCell.FormulaR1C1 = "=R[5]C[-11]"
    Range("S6").Select
    
    
    
    
 Range("K5:S5").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("K5:S5").Select
    With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    Range("K5:S5").Select
    Selection.Copy
End Sub

 

[Haije]

probeer het eens met plakken van waarden ipv formules

 

[davylenders123]

Hoe doe je dat ?

 

[dnties]

Rechtsklikken op de cel waar je het in wilt kopiëren en kiezen voor het klembord item met 123 ervoor (tweede van links van het rijtje van 6 klembordjes).
Zo ziet het er bij mij uit (Excel 2013).

Zie schermafdruk.

Tijs.

 

[davylenders123]

alle bedankt zo werkt het :thumb: