Hiya Board,

I have a workbook that contains 10 worksheets,
Page one is for data input,

This is what I am trying to acheive.......
Copy data in row 3 and automatically move it to another worksheet...
dependant on what I enter in cell A1.
(Lets say the names of the other worksheets are Red White Blue...etc)

So if I enter "Red" in A1..
The data is sent to the chosen worksheet.
(data sent must append to the existing data)

I know this is asking a lot, but any help or pointers in the right
direction would be greatly appreciated,

(I have learned how to copy data from one sheet to another (appended)
but i cannot figure this one out.

Kind Regards

Stephen.

Since you already know how to copy to the other ws, this should help.
Sub otherws()
x = Sheets("othersheet").Cells(65536, "A").End(xlUp).Row + 1
MsgBox x
End Sub


"Ste_uk" wrote in message
...
Hiya Board,

I have a workbook that contains 10 worksheets,
Page one is for data input,

This is what I am trying to acheive.......
Copy data in row 3 and automatically move it to another worksheet...
dependant on what I enter in cell A1.
(Lets say the names of the other worksheets are Red White Blue...etc)

So if I enter "Red" in A1..
The data is sent to the chosen worksheet.
(data sent must append to the existing data)

I know this is asking a lot, but any help or pointers in the right
direction would be greatly appreciated,

(I have learned how to copy data from one sheet to another (appended)
but i cannot figure this one out.

Kind Regards

Stephen.

Wow - Thanks for the speedy response!

I give them a go,


Kind Regards
Stephen
:D

Hi Ron

Finally got around to trying the code....
It does exactly as I requested (thank you)

However it has created other unforseen issues that I now need to
tackle,

I will give them a go but dont be suprised if you see another post in a
weeks time!

Once again,
Many thanks for your help

Kind regards

Stephen.