Simple macro help

[bbbuffalo]

Well I think it should be simple.

I want to record a macro that starts from whatever cell I am currently in, then goes down one cell, to the left one cell, cuts that data, goes back to the right one cell, up one cell and pastes the data.

Then move down 2 cells.

A1 = Name
A2 = Phone
A3 = Name
A4 = Phone

I want to move the phone numbers to the B1, B3 position.

 

[Yahya]

try to record macro with Relative References
Steps :
1. make Cell A1 Active cell
2. record macro --> Relative References
3. go down one step copy the cell then come back to B1
4. go to A3
5. Stop record macro

you get this macro

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(-1, 1).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.Offset(2, -1).Range("A1").Select
End Sub

then every time you run the code it will do one Move
if you want to move all cells
just add two lines

Do Until IsEmpty(ActiveCell)
and at end
Loop

your code will be like this

Sub Macro1()
'
' Macro1 Macro
'

Do Until IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(-1, 1).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.Offset(2, -1).Range("A1").Select
Loop
End Sub

HTH

 

[Paradigm_Shift]

    ActiveCell.Value = ActiveCell.Offset(1, -1)