Assuming macro's are totally unknown to you, here is a black box program that will do this for you.
Attached is an Excel addIn. It will appear to do very little. On loading it just adds a new tab to the ribbon (menu). The last Item "WizzardOfOz" has a new function Copy Paste. which does what you want.
Open the attached (can add it as an addin)
Then make sure both the source and destination workbook are already opened.
Click the "CopyPaste" button.
You will be prompted for "What you want to copy"
Then you will be prompted on where it must go. I ignore the range so only the top cell is required.
Code below included for the paranoid
Code:
Option Explicit
Public Sub CopyPaste_onAction(control As IRibbonControl)
' Code for onAction callback. Ribbon control button
Call CutCopyRange
End Sub
Sub CutCopyRange()
Dim rRange As Range, oRange
On Error Resume Next
Application.DisplayAlerts = False
'get the cells to be copied
Set rRange = Application.InputBox(Prompt:= _
"Please select a range with your Mouse to be copied." & vbCrLf & _
"You may select any open sheet in any opened work book", _
Title:="SPECIFY RANGE", Type:=8)
On Error GoTo 0
Application.DisplayAlerts = True
If rRange Is Nothing Then
Exit Sub
Else
oRange = rRange.Value2
On Error Resume Next
Application.DisplayAlerts = False
'get where to paste
Set rRange = Application.InputBox(Prompt:= _
"Please select the Top left cell with your Mouse to paste." & vbCrLf & _
"You may select any open sheet in any opened work book", _
Title:="SPECIFY RANGE", Type:=8)
On Error GoTo 0
Application.DisplayAlerts = True
If rRange Is Nothing Then
Exit Sub
Else
'go and paste
rRange.Cells(1, 1).Resize(UBound(oRange, 1), UBound(oRange, 2)).Value2 = oRange
End If
End If
End Sub
Bookmarks