Populate A List From One Cell On One Sheet

[Jmwend]

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 sheet 1, 3000 then in cell A1 on sheet 2, 3000. I then clear A1 sheet 1 and type in 3040 then in cell A2 sheet 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.

Hopefully someone can help me!

 

[Case_Germany]

Hi,

try it this way:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells(1).Address = "$F$20" Then
        Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Target.Value
        Sheet1.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Value = Me.Range("C5").Value
    ElseIf Target.Cells(1).Address = "$F$21" Then
        Sheet1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Target.Value
        Sheet1.Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Value = Me.Range("C5").Value
    ElseIf Target.Cells(1).Address = "$F$22" Then
        Sheet1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = Target.Value
        Sheet1.Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).Value = Me.Range("C5").Value
    End If
End Sub

 

[Jmwend]

Perfect, thank you so much for all your help!