Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple Copy and Paste
Trying to use the following to simply copy the active cell contents to the
next column over and for the next 20 rows. Getting late. Why is this ignoring the column Offset? Thanks. Sub Macro2() ' ' Macro2 Macro ' Macro recorded 3/6/2005 by Michael ' ' Keyboard Shortcut: Ctrl+z ActiveCell.Copy Dim MyArray(1 To 20) As Variant For i = 1 To 20 X = MyArray(i) ActiveCell.Offset(1, X).Select ActiveSheet.Paste Next i End Sub -- WWW |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple Copy and Paste
Not sure exactly what you were trying to achieve, but the problem was
you did not feed values to your array :( Sub Macro2() ActiveCell.Copy Dim MyArray(1 To 20) As Variant For v = 1 To 20 MyArray(v) = v Next v For i = 1 To 20 X = MyArray(i) ActiveCell.Offset(1, X).Select ActiveSheet.Paste Next i End Sub But i would say, why use array, if the array value and array position is identical? look at code below. Sub Macro_Mine() ActiveCell.Copy For i = 1 To 20 ActiveCell.Offset(1, i).Select ActiveSheet.Paste Next i End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Line copy - Not just a simple copy paste | Excel Worksheet Functions | |||
Copy & paste simple problem | Excel Programming | |||
Simple Copy & Paste | Excel Programming | |||
Help! What's wrong with this simple copy and paste | Excel Programming | |||
Simple copy and paste | Excel Programming |