Mil Gracias !!

hola, meilis !

... ... para hacerlo por columnas en diferentes hojas!! ejemplo:
manzanas peras naranjas
25 12 14
24 10 13
21 11 12
23 20 10
en hoja uno sortear manzanas en la dos peras y en la tres naranjas!

suponiendo que los titulos estan en la fila 1 ... copia las siguientes lineas
sustituyendo el numero de la columna correspondiente -> 'A' [col # 1], 'B' [col # 2] y 'C' [col # 3]
y la celda del 'primer dato' -> a2, b2 y c2
en el modulo de codigo ->de la hoja 1<- ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Row > Me.UsedRange.Rows.Count Then Exit Sub
Me.UsedRange.Sort [a2], xlAscending, , , , , , xlYes
End Sub

en el modulo de codigo ->de la hoja 2<- ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row > Me.UsedRange.Rows.Count Then Exit Sub
Me.UsedRange.Sort [b2], xlAscending, , , , , , xlYes
End Sub

en el modulo de codigo ->de la hoja 3<- ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row > Me.UsedRange.Rows.Count Then Exit Sub
Me.UsedRange.Sort [c2], xlAscending, , , , , , xlYes
End Sub

saludos,
hector.