do you want to accumulate values or will your enteries always be in L2:L5
and M2:M5

If the latter and entries always made in L2 and M2, once the formulas are
entered as you code does, the second sheet would always display 4 copies of
the current values.

Assume you are not always entering your values in sheet Entry in L2 and M2.
If not will you want both the entry of data and duplication of 4 instances
of each value to accumulate as well (entries progress down column L and M in
Entry and 4 copies progress down the second sheet).

Clarify and perhaps you can get answer that is consistent with your need.

--
Regards,
Tom Ogilvy


"Matt G " wrote in message
...
Overview of what I have done:

Using VB Editor I wrote instructions for copying data entries from my
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 copied
into four lines on my second sheet.


The Problem:

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

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

Below is a sample of the commands I wrote. The data from Sheet 1 is a
single row of inputs that copy into four lines on the second sheet as I
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 SF


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