Copy/Paste

[elgringo56]

This may not be possible, but I have a need for it if it is. I am doing this with a macro, so need instructions if it can be done. I have a row of data, within that row I select some number of cells and copy them. I then select a cell in another row. Now, I want to do a paste value, but I want to past from the cell I select up, instead of down. example, I copy A7 thru A15 and copy. I then select cell B25 and when the paste is done, what was in A15 is in B25 and what was in A7 is in B18.

[NateO]

Try the following macro. You should only select one cell on the paste, a procedure I did not test for in case you want to make a multiple selection. It will paste up in the original order from the first cell in the paste selection.

Sub rPaste()

Dim n As Range, d As Range, y As Long

On Error GoTo 1 'Handle Cancel

Set n = Application.InputBox("Select Range to Copy", Type:=8)

Set d = Application.InputBox("Select a single cell to Paste", Type:=8)

On Error GoTo 0

y = n.Count - 1

If d.Row - y < 1 Then

MsgBox "Your data is too large (preceeds row 1)"

End

End If

n.Copy

With Cells(d.Row - y, d.Column)

 .PasteSpecial Paste:=xlValues

End With

1: Application.CutCopyMode = False

End Sub

Hope this helps.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-05-19 00:53 ]

[elgringo56]

I shall give it a try, Nate, thanks