tom ogilvy\gary"s student....... pls!!!!
 

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 ****

tom ogilvy\gary"s student....... pls!!!!
 

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 ****

tom ogilvy\gary"s student....... pls!!!!
 

sorry mike h!!!

thanx... will give that a shot..

will let u know


pswanie



"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 ****

tom ogilvy\gary"s student....... pls!!!!
 

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 ****