Overview of what I have done:

Using VB Editor I wrote instructions for copying data entries from m
primary worksheet to move my second sheet in my desired format. i.e
it is not an exact duplicate of my first worksheet.

* Basically 1 line of data being entered in my first sheet is copie
into four lines on my second sheet.


The Problem:

I am trying to write a command that will recognize the instructions
wrote as variable so I can make this format repeat as I continue t
make entries in my first worksheet over time.

I know that the command will have to recognize that the instructions
wrote will act in increments of four and I have tinkered with command
but have been unsuccessful. Any suggestions or tips would be ver
gratefully appreciated.

Below is a sample of the commands I wrote. The data from Sheet 1 is
single row of inputs that copy into four lines on the second sheet as
want them.

Sub Duplicate1()

Range("L2").Select
ActiveCell.FormulaR1C1 = "=Entry!R[-0]C"
Range("L3").Select
ActiveCell.FormulaR1C1 = "=Entry!R[-1]C"
Range("L4").Select
ActiveCell.FormulaR1C1 = "=Entry!R[-2]C"
Range("L5").Select
ActiveCell.FormulaR1C1 = "=Entry!R[-3]C"
Range("L5").Select

Range("M2").Select
ActiveCell.FormulaR1C1 = "=Entry!R[-0]C"
Range("M3").Select
ActiveCell.FormulaR1C1 = "=Entry!R[-1]C"
Range("M4").Select
ActiveCell.FormulaR1C1 = "=Entry!R[-2]C"
Range("M5").Select
ActiveCell.FormulaR1C1 = "=Entry!R[-3]C"
Range("M5").Select


End

For Example: On Sheet 1:

L = Quantity, and will copy to L on Sheet 2 but into four rows
M = Price, and will copy to M on Sheet 2 but into four rows


Matt S

--
Message posted from http://www.ExcelForum.com