Indexing

[Anto111]

Hi guys,

What i want to do is create a master sheet in worksheet 1 where I enter data
or text into respective cells. I then want a button on this master sheet that
I can hit, following which all the entered data will be sent to designated
cells in row 1 worksheet 2. I would then like the data on the master sheet to
disappear ready for another data entry, which will then subsequently be
transferred to the designated cells in row 2 of worksheet 2 and so forth,
thus creating an accumilating index in worksheet 2 from the base entries in
worksheet 1.

I am guessing that I will need to create some sort of macro for the button
on worksheet 1 but do not have a clue how to send data to accumilate
consecutively into the next available blank row on worksheet 2.

All help would be highly appreciated,

many thanks in advance for all your help on here, it is very much appreciated.

kind regards,

Anthony

 

[Mike H]

Hi,

Place a button from the 'Forms' toolbar on the worksheet and when the
dialogbox pops up click 'New' and paste this code in.

Sub Button1_Click()
Sheets("Sheet1").Rows("1:1").EntireRow.Copy
Sheets("Sheet2").Range("A" & (Sheets("Sheet2").Cells(Rows.Count,
"A").End(xlUp).Row) + 1).PasteSpecial
Sheets("Sheet1").Rows("1:1").ClearContents
End Sub

For every click it copies row one to the first empty row in sheet 2

Mike