Paste ranges with offset Excel 2000
Oops, missed the treble cell bit (I commented it out in my tests).
That as well, the approach is more efficient.
--
HTH
Bob Phillips
"Bob Phillips" wrote in message
...
I can't see any problems with the code (apart from testing for blank at
the
start of the loop in case B2 is empty), but this is a more efficient way
of
doing it
With Range("B2").End(xlDown).Offset(1, 0)
.Value = Workbooks("ReportRP.xls").Sheets("PS").Range("D13: D15")
.Offset(0, -1) = _
Workbooks("ReportRP.xls").Sheets("PS").Range("I6:I 10")
End With
--
HTH
Bob Phillips
"carloshernandezy" wrote in message
ups.com...
Hello,
I¨m working with copyinf and pasting cell in differents sheets, and
ait works well but when I try to do the same with range I have
problems.
I use this code.
-------------------------------
Range("B2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value =
Workbooks("ReportRP.xls").Sheets("PS").Range("D13: D15")
ActiveCell.Offset(0, -1) = _
Workbooks("ReportRP.xls").Sheets("PS").Range("I6:I 10")
____________________________________
the same code refering only to one cell works well, I think the problem
is the Offset, can I change it??.
Thanks in advance.
|