thats kinda what i need...

But instead of putting it over to sheet2 when entered i need it to run with
my macro called clearandexit

the way u got it now if someone enter the wrong amount in they cannot go
back and edit coz that will just keep the old amount.

clearandexit is with a button and they only click that when everything is
dbl checked and ready to be printed and then clear the sellected cell and
sheets and close the work book

"Mike H" wrote:

Could I help?

Try this pasted into sheet 1 worksheet code:-

Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, Range("c15")) _
Is Nothing Then Exit Sub
lastrowcold = Worksheets("Sheet2").Range("d65536").End(xlUp).Row
Worksheets("Sheet2").Cells(lastrowcold + 1, 4).Value = target.Value
End Sub

Mike
"pswanie" wrote:

on sheet1 cell c15 ppl enter the sales for the day (along with some other
info on other cells. those then calculate the usage of items etc) i only
need cell c15 from sheet on to be copied to sheet2 colum d downward

sheet to i got



a b c d
sales projection
date day last yr sales this yr sales
1 01/07/07 mon $1.20 ****
2 02/07/07 tues $1.20 ****
3 03/07/07 wed $1.20 ****
4 04/07/07 thur $1.20 ****
5 05/07/07 frid $1.20 ****

1 - It's better to keep related questions in the same thread
2 - Please title your subject so that it shows the problem. There are
others here who are able to answer if they have all the info..
3 - It sounds like your requirements are changing and you haven't included
it all here.

If I could see the entire thread, I'd try to help. I"m not sure what you
want at this point.

"pswanie" wrote:

thats kinda what i need...

But instead of putting it over to sheet2 when entered i need it to run with
my macro called clearandexit

the way u got it now if someone enter the wrong amount in they cannot go
back and edit coz that will just keep the old amount.

clearandexit is with a button and they only click that when everything is
dbl checked and ready to be printed and then clear the sellected cell and
sheets and close the work book

"Mike H" wrote:

Could I help?

Try this pasted into sheet 1 worksheet code:-

Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, Range("c15")) _
Is Nothing Then Exit Sub
lastrowcold = Worksheets("Sheet2").Range("d65536").End(xlUp).Row
Worksheets("Sheet2").Cells(lastrowcold + 1, 4).Value = target.Value
End Sub

Mike
"pswanie" wrote:

on sheet1 cell c15 ppl enter the sales for the day (along with some other
info on other cells. those then calculate the usage of items etc) i only
need cell c15 from sheet on to be copied to sheet2 colum d downward

sheet to i got



a b c d
sales projection
date day last yr sales this yr sales
1 01/07/07 mon $1.20 ****
2 02/07/07 tues $1.20 ****
3 03/07/07 wed $1.20 ****
4 04/07/07 thur $1.20 ****
5 05/07/07 frid $1.20 ****

on sheet1 cell c15 i got ppl entering the day sales. and alot of other info.

all the other info gets cleared with a macro. mike h gave me a
threat that will "copy and paste" sheet1 cell c15 upon the enter being hit.
problem are that if the wrong sales input have been done the wrong amount
will be "carried" over. and when they go back to enter the correct data that
will then be added to the next open line on sheet2.

sheet2 looks like this and the day's sales will then be carried over to
colum d
__________________________________________________ ____
a b c d
__________________________________________________ ____
1 \ sales projection
2 \ date day last yr sales this yr sales
3 \ 01/07/07 mon $1.20 ****
4 \ 02/07/07 tues $1.20 ****
5 \ 03/07/07 wed $1.20 ****
6 \ 04/07/07 thur $1.20 ****
7 \ 05/07/07 frid $1.20 ****


what i think i need are some thing like this...




select sheet1 range c15
copy
select sheet2
if system date 01/07/07 then select.d3 or if system date 02/07/07 then
select.d4 or if system date 03/07/07 then select.d5 etc
paste

'and then rest of my current macro