Re: Populate a list from one cell on one ***...

You can do it using an event macro.

Rightclick on the work*** tab that should have this behavior. Select view
code. Paste this into the code window.

Then back to excel to test it out:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim DestCell As Range

With Target
If .Cells.Count > 1 Then Exit Sub
If Intersect(.Cells, Me.Range("a1")) Is Nothing Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If IsError(.Value) Then Exit Sub

With Worksheets("sheet2")
Set DestCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
End With

DestCell.Value = .Value

End With

End Sub



Jay3253 wrote:
>
> Hello, need a little help please.
>
> I would like to compile a list of numbers I have typed into a cell on
> one page and list it on another page without writing over the number
> but putting it in a different cell.
>
> For example: I type into the cell A1 *** 1, 3000 then in cell A1 on
> *** 2, 3000. I then clear A1 *** 1 and type in 3040 then in cell
> A2 *** 2, 3040, etc.
>
> Making a list of numbers I have used so they I can keep track of them,
> and go back to see that I have used them.
>
> Thanks for your help
> Jason
>
> --
> Jay3253
> ------------------------------------------------------------------------
> Jay3253's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=5955
> View this thread: http://www.excelforum.com/showthread.php?threadid=465945

--

Dave Peterson
.