Paste Special Method of Range Class Failed

[krish42632]

kindly solve this issue



my code is


Private Sub Button9_Click()


Sheets("sys").Range("A9142:A20000").Copy


Dim lastrow As Long
lastrow = Range("A9249:A20000").End(xlUp).Row


Sheets("Sheet1").Activate
Cells(lastrow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

Does adding the blue code resolve the error?

Sheets("Sheet1").Cells(lastrow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[krish42632]

Doesn't working ,kindly help me

 

[Peter_SSs]

Doesn't working ,

That doesn't help much.

Did you still get the Paste Special Method of Range Class Failed error, or did something else go wrong?

 

[krish42632]

Same Error Sir,

"Paste Special Method of Range Class Failed "

 

[Peter_SSs]

I have not been able to reproduce the error.

Is Button9 on a sheet (which sheet) or on a Userform?

Which sheet is this line of code supposed to be using to calculate lastrow

lastrow = Range("A9249:A20000").End(xlUp).Row

Have you posted the full code for Button9 or just an extract?

 

[krish42632]

Button9 is on sheet

code "lastrow = Range("A9249:A20000").End(xlUp).Row" is for sheet1

 

[Peter_SSs]

Button9 is on sheet

What?

Have you posted the full code for Button9 or just an extract?

 

[krish42632]

button9 is on sheet1 ..

i have posted full code.

 

[Peter_SSs]

With the setup you have described, I have not been able to re-produce the error so I am not sure what is wrong.
Are you able to post a copy (with any sensitive data removed or disguised) on a public file-share site (eg Dropbox) and post a link to it here? If so, make sure that the error still occurs in that copy of the file.