copy and paste selection in vba

[lezawang]

Hi

I created 2 command buttons one to copy whatever cells are selected using the mouse and then another button to paste them in another selected area/cells. I am getting error message (not accepting Selection.paste). Please see code below. Also can I ask you what "Selection" is? is it an object or what. I could not find it listed under objects list.

Thanks

Private Sub CommandButton1_Click()
Selection.Copy
End Sub
Private Sub CommandButton2_Click()
Selection.Paste
End Sub

 

[SQUIDD]

Hi

i think you may need to specify your paste

like, pastespecial

if you use the macro recorder you can pick your desired paste type.

Dave

 

[My Aswer Is This]

Try this:

Private Sub CommandButton1_Click()
 Selection.Copy
 End Sub
 Private Sub CommandButton2_Click()
 Selection.PasteSpecial
 End Sub

 

[ping_pong]

Selection is a range object, yes.

If you post your full code or a sample worksheet if will be much easier to help you. Anyways, as posted, you can use the PasteSpecial method. You can also use ActiveSheet.Paste.

 

[lezawang]

Thank you all for your help but Selection. Pastespecial did not work? "past especial method of the range class failed" msg

Sub cutselection()
    selection.Cut
End Sub

Sub pasteselection()
    selection.PasteSpecial
End Sub

 

[SQUIDD]

change

Selection.pastespecial

To

Paste

Dave

 

[rlv01]

Sub cutselection()
    selection.Cut
End Sub

"copy" and "cut" are not the same. Go back to "copy"

Selection.Copy

and it should work.

[COLOR=#333333]
Sub copyselection()
    Selection.Copy
End Sub[/COLOR]
[COLOR=#333333]
Sub pasteselection()
[/COLOR]    Selection.PasteSpecial Paste:=xlPasteAll[COLOR=#333333]
End Sub[/COLOR]