Moveing Rows
 

Hi all , and a good day

I still have a problem . I need to move the content of rows ,
in the next order :
Rows :

A1 -
A2 -
A3 -
A4 -
A5 -

to became :

A1 = A5
A2 = A4
A3 = A3
A4 = A2
A5 = A1

Moveing Rows
 

Hi

Try this:


Sub AAA()
Dim MyArr As Variant
Dim MyRange As Range

Set MyRange = Range("A1:A5")
MyArr = Array(MyRange.Value)
counter = UBound(MyArr(0))
For Each cell In MyRange
cell.Value = MyArr(0)(counter, 1)
counter = counter - 1
Next
End Sub

Regards,
Per

On 22 Feb., 16:08, ytayta555 wrote:
Hi all , and a good day

I *still have a problem . I need to move the content of rows ,
in the next order :
Rows :

A1 -
A2 -
A3 -
A4 -
A5 -

to became :

A1 = A5
A2 = A4
A3 = A3
A4 = A2
A5 = A1

Moveing Rows
 

On 22 feb., 17:42, Per Jessen wrote:

It don't remove entire row , but it work very
well for me .

Thank you very much , have a good evening

Moveing Rows
 

In B1 enter =INDEX($A$1:$A$5,5-(ROW(A1)-1))


Gord Dibben MS Excel MVP


On Mon, 22 Feb 2010 07:08:54 -0800 (PST), ytayta555
wrote:

Hi all , and a good day

I still have a problem . I need to move the content of rows ,
in the next order :
Rows :

A1 -
A2 -
A3 -
A4 -
A5 -

to became :

A1 = A5
A2 = A4
A3 = A3
A4 = A2
A5 = A1

Moveing Rows
 

On 22 feb., 19:15, Gord Dibben <gorddibbATshawDOTca wrote:

Thank you , Gord . Is useful for me