Cómo se puede mantener ordenada una lista de datos?

Hola Eusebio:
Si grabas una macro que te ordene el rango y se la pones al evento Change de
la hoja, yo la pondria a la columna que contenga el ultimo valor que
introduzcas, conseguiras tu objetivo. Mas o menos quedaria asi:
Private Sub Worksheet_Change(ByVal Target As Range)
'como en la columna B esta el ultimo valor que se introduce
'la macro se ejecuta cuando hay modificaciones en esa columna
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

End Sub


Un saludo

"Eusebio" escribió en el mensaje
news:

Hola, se trata de mantener ordenados alfabéticamente una lista de
datos.

Tengo una hoja de cálculo en la que coloco entradas (filas) con
nombre, precio, disponibilidad, ... (datos de cada producto) y me
interesa mantenerla ordenada por nombre

Hasta ahora cada vez que añado datos (filas) doy al menú Datos ->
Ordenar -> "por nombre" pero ¿hay alguna forma de que al introducir
todos los datos de cada fila ésta se coloque automáticamente en su
posición correspondiente sin tener que hacerlo manualmente?

Gracias.