Enter different data into same cell and have it create a log on another sheet

[TitansFan]

I'm trying to figure out a way to be able to enter different data into a particular cell on one sheet and have this data be listed as individual items or rows on a different sheet.

For example, let's say I have cell A1 on Sheet 1 as my cell that will have different text entered into it. Let's say I type the word 'dog' into A1. I would want this copied into Sheet 2 in cell A1 as 'dog'. Now, let's say I want to enter the word 'cat' into A1 on Sheet 1. I would then want this new text to not replace A1 on Sheet 2, BUT to drop down another row and be in cell A2 on Sheet 2. Does that make sense??? In other words, Sheet 1 would be for data entry and would show the last text entered into cell A1. Sheet 2 would create a log or history of the text that was entered into A1 of Sheet 1.

Any thoughts on how do do this?

Thanks!

 

[njimack]

Paste the following into your sheet1 module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1) = Target.Value
End Sub

 

[TitansFan]

That works! Thanks, njimack.

 

[#tbone]

Bringing this post back to life.

Can someone modify this VBA to...
-Store the log in the same sheet
-Move the stored data "down" (store the most recent entered data at the top of the list)
-Set a max number rows data is kept (10)
-Apply this to data entered in two cells

Thanks for the time.

 

[arains]

Hi There,

Would anyone please help me how can I transfer (automatically incremental percent) value from one cell to another column to log progress rate monthly.

Suppose I got cell which has got percent value increasing as work progress and I want that value log monthly into another column progressively into different rows so I can find how much percent increased in different months. <o></o>
Will appreciate any help.<o></o>
Cheers

 

[Craized]

Paste the following into your sheet1 module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1) = Target.Value
End Sub

(I know this is an old thread, I'm hoping someone knowledgeable sees this and can help.)

I found this code by searching and I believe it is a step in the right direction for me, however, it's not yet ideal. I actually have 14 columns that I would like to track the changes of in a separate sheet. Rather than doing it every time one of these cells is targeted as the quoted code is doing, I would prefer to run a check for changes on these columns when the end user saves the workbook - and then copy any columns that did change to my log.

Can it be done?

Thanks in advance for your help!