macros to copy and paste to range you select

[hossam sadek]

hello
could you please help me to asign macro to the attached sheet to copy the cells from the range D7 To D11 and paste them to another excel sheet and allow to select the range that it will paste to

 

[Luke M]

If others need, the password to unlock the workbook:
AAAABABAAAA]

Here's is a macro that does what you asked.

Sub CopyRange()
Dim sourceRng As Range
Dim destRng As Range

On Error Resume Next
Set destRng = Application.InputBox("Where do you want to paste to?", "Destination range", , , , , , 8)
On Error GoTo 0
If destRng Is Nothing Then Exit Sub

'What do we copy?
Set sourceRng = Worksheets("Out-put (Lay-up & PB)").Range("D7:D11")
Application.ScreenUpdating = False
'Perform the copy/paste
sourceRng.Copy
destRng.PasteSpecial xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[hossam sadek]

hello Luke M
thank you for your support the above macros is so close to what i need to do but whene i try to choose the workbook that i want to paste to in another excel workbook it dosn't let me navigate to it so please if you can help me with this

 

[Luke M]

That would be because you stated in OP that you wanted to copy to a different sheet, not a different workbook.

To do what you ask in a different workbook would require an UserForm. See here for how to build one:
http://stackoverflow.com/questions/18125650/vba-dialog-box-to-select-range-in-different-workbook

Alternatively, I might just suggest you add a macro like this to your Quick Access Toolbar

Sub CopyRange()
Dim sourceRng As Range
Dim destRng As Range

'What do we copy?
Set sourceRng = ThisWorkbook.Worksheets("Out-put (Lay-up & PB)").Range("D7:D11")
Application.ScreenUpdating = False
'Perform the copy/paste
sourceRng.Copy
ActiveCell.PasteSpecial xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Then, you can navigate to whichever workbook/worksheet you want, hit the button on the QAT, and the information will be copied.