ciao
con le formule di excel non e' possibile, devi utilizzare VBA
da inserire nel modulo del foglio
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, 1) = Target.Value
Application.EnableEvents = True
End If
End Sub
Ciao da locate
excel 2007 / 13