Range referencing incorrectly

B

Bob Zimski

I seem to be missing how to reference celles properly, any help appreciated:

Dim i As Integer
For i = maxrows To 2 Step -1
Range("cells(i,1):cells(i,2)").Select
Selection.Cut Destination:=Range("cells(i-1,3):cells(i-1,4)")
Next i
 
N

new1

I seem to be missing how to reference celles properly, any help appreciated:

  Dim i As Integer
  For i = maxrows To 2 Step -1
    Range("cells(i,1):cells(i,2)").Select
    Selection.Cut Destination:=Range("cells(i-1,3):cells(i-1,4)")
  Next i
Click to expand...

Hello,

It seems to be Range(cells(i,1),cells(i,2)").Select instead of Range
("cells(i,1):cells(i,2)").Select

Hope this helps

Regards

new1@[no/spam]realce.net
 
D

Dave Peterson

You could use:

Range(cells(i,1),cells(i,2)).Select

or

cells(i,1).resize(1,2).select
(resize that cell in column A to 1 row by 2 columns.

so

Dim i As Long
Dim maxrows As Long
maxrows = 5 'for testing
For i = maxrows To 2 Step -1
Cells(i, 1).Resize(1, 2).Cut _
Destination:=Cells(i - 1, 3)
Next i

Excel will resize the destination range. Just like if you did it manually, you
could just select the topleft cell of the destination range.
 
Top