Database Management

[KO69]

I have a spreadsheet with about 1000 rows.

I want to automate a process where I do the following steps:
- start on a cell
- copy the cell
- move one cell to the right
- ctrl+down
- move left twice
- ctrl+shft+up
- move down twice (whilst still highlighting the cells)
- ctrl+v

Thanks for any help

 

[jc.021286]

Here you go,

You can do this by using the record macro and simply going in and editing it a bit to make it generic.

I've set this one up for me to execute when I hit CTRL+SHIFT+C

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
'- start on a cell
'- copy the cell
    Selection.Copy
'- move one cell to the right
    Selection.Offset(0, 1).Select
'- ctrl+down
    Selection.End(xlDown).Select
'- move left twice
    Selection.Offset(0, -2).Select
'- ctrl+shft+up
    Selection.End(xlUp).Select
'- move down twice (whilst still highlighting the cells)
    Range(Selection, Selection.Offset(2, 0)).Select
'- ctrl+v
    ActiveSheet.Paste
'Clean up
    Application.CutCopyMode = False
End Sub

Regards,
jc