Bueno la siguiente macro te guarda en un rango que debes definir con el nombre "historia" los valores de una celda cuyo nombre debes definir como "valor"
Si quizas no sabes como colocarle el nombre a una celda o rango, visita este link
http://www.allexcel.com.ar/generales/tutoriales/PONER-NOMBRES-A-RANGOS/poner-nombres-a-rangos.html
Si quieres usar este codigo, en la pestaña de tu hoja le das click derecho-Ver codigo y lo pegas.
-Al llenarse el rango, te preguntara si deseas borrar o no la información que esta en el.
-El rango historia lo puedes definir como quieras en una sola fila, o en una sola columna o en multiples filas o columnas, no importa.
-La celda "valor" no se movera si das enter, no se si te sirve esta funcion, si no, ponle comentario con el simbolo ' a la linea 4 que dice Target.Select
'By Viktor [email protected]
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Valor")) Is Nothing Then Exit Sub
Target.Select
For Each r In Range("Historia")
If r = "" Then
r.Value2 = Target.Value
Exit Sub
End If
Next
If MsgBox("Historia llena, desea borrar?", vbCritical + vbOKCancel) = vbOK Then
Range("Historia").ClearContents
Range("Historia").Cells(1, 1) = Target.Value
End If
End Sub
Si es la solución a tu problema no se te olvide finalizar la pregunta. Hasta la proxima!