Result from macro copy and paste error

Hi Team, I have a value in a cell that I'm trying to simply copy and paste (as value only), that I've programmed into a simple macro. When this value is the product of a formula the macro driven ...

Excel for web

office 365

Harun24HR

Aug 22, 2022

Locky81 Understood your problem. Actually you are pasting twice. So you do not need second ActiveSheet.Paste line. Delete it from your code. I have comment it in my below codes.

Sub EXECUTECOPYPASTE()
    Range("K5").Select
    Selection.Copy
    Range("L15").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Basically you can do it by below single line code.

Sub CopyValue()
    Range("L15").Value = Range("K5").Value2
End Sub

Harun24HR

Bronze Contributor

Aug 22, 2022

Locky81 Understood your problem. Actually you are pasting twice. So you do not need second ActiveSheet.Paste line. Delete it from your code. I have comment it in my below codes.

Sub EXECUTECOPYPASTE()
    Range("K5").Select
    Selection.Copy
    Range("L15").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Basically you can do it by below single line code.

Sub CopyValue()
    Range("L15").Value = Range("K5").Value2
End Sub

Locky81

Copper Contributor

Aug 22, 2022

Thanks so much mate, it's working for me now. Kudos!

Harun24HR
Bronze Contributor
Aug 22, 2022
If it works then please tick mark the answer.

Forum Discussion

Result from macro copy and paste error

Resources