sorteo de datos

hola, meilis !

... sortear datos automaticamente? [...]

usando los eventos en el modulo de codigo de 'la hoja'... copia las siguientes lineas:
[click-derecho sobre la pestaña del nombre -> ver codigo...]

-> suponiendo que los numeros los ingresas en la columna 'A' ->SIN 'titulos' en la fila 1<-
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Columns("a").Sort [a1], xlAscending
End Sub

-> suponiendo que los numeros los ingresas en la columna 'A' ->CON 'titulos' en la fila 1<-
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Range([a2], [a65536].End(xlUp)).Sort [a2], xlAscending
End Sub

saludos,
hector.