copy paste macro needs tweak Solved/Closed

Question

Hello, 
I'm new to VBA, and would appreciate any help with this Macro. It copys the mouse input, but overwrites the last paste. I need it to (after I hit a command
button) to ask (with input box) where to paste. I would click "D32" or any other
cell in the same worksheet.
Thanks 

Sub CopyStuff()

Dim x As Range
Dim y As Range

Set x = Application.InputBox("Select what copy using the mouse", Type:=8)
Set y = ActiveWorkbook.Sheets("Sheet2").Range("C32")

x.Copy y

End Sub

TrowaD · Answer

Hi Frank,

You basically gave yourself the answer:
Sub CopyStuff()

Dim x As Range 
Dim y As Range

Set x = Application.InputBox("Select what copy using the mouse", Type:=8) 
Set y = Application.InputBox("Select where paste using the mouse", Type:=8)

x.Copy y

End Sub 

Best regards,
Trowa
 
Monday, Tuesday and Thursday are usually the days I'll respond. Bear this in mind when awaiting a reply.

frank7788 · Answer

Thanks for the reply......It works!

Copy paste macro needs tweak

2 responses

Similar discussions

Subscribe To Our Newsletter!