Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I'm looking for a simpler way of doing the following:
Sub CopyCell() Sheets("SHEET1").Range("A1").Copy Sheets("SHEET2").Range("A1") Sheets("SHEET1").Range("A2").Copy Sheets("SHEET2").Range("A1") Sheets("SHEET1").Range("A3").Copy Sheets("SHEET2").Range("A1") Sheets("SHEET1").Range("A4").Copy Sheets("SHEET2").Range("A1") Sheets("SHEET1").Range("A5").Copy Sheets("SHEET2").Range("A1") End Sub The data in sheet1, column A is dynamic, it may contain 5 records or 500. Instead of adding additional lines of code, is there a routine that can be used that provides the same results? Thanks, Donnie |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing Options | Excel Discussion (Misc queries) | |||
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing | Excel Discussion (Misc queries) | |||
How can I copy a value from a cell and paste it into another cell while adding it to the previous value in that cell | Excel Worksheet Functions | |||
I copy a formula and the results copy from the original cell | Excel Discussion (Misc queries) | |||
VBA to copy to empty cell directly below a cell when analogous cells in different column have same value as each other? | Excel Programming |