Forums Últimos mensajes - Powered by IBM
 

¿Cómo ordenar alfabeticamente una celda de texto?

25/03/2008 - 04:29 por Mar, Cuidad, Pais, Montaña | Informe spam
Mar, Cuidad, Pais, Montaña
 

Leer las respuestas

#1 Héctor Miguel
25/03/2008 - 06:52 | Informe spam
hola, 'anonimo/a' !

Mar, Cuidad, Pais, Montana



no creo que exista alguna aplicacion (ni siquiera un procesador de textos)...
que "ordene" una linea de texto con la discrecionalidad que indicas -?-
pero siempre puedes echar mano de las macros (si no te incomoda) ;)

asumiendo que las palabras en una celda siempre estaran separadas por una coma y un espacio
y suponiendo que el ejemplo lo tienes ya escrito en la celda activa...
copia/pega las siguientes lineas en un modulo de codigo normal y ejecutas la macro (estando en dicha celda)
necesitaras excel version 2000 o superior (o hacer algunos ajustes si lo necesitas incluso para la version 97)

si cualquier duda (o informacion adiciona)... comentas ?
saludos,
hector.

Dim Palabras, Ant As Integer, Post As Integer, Baja As String, Sube As String
Sub Ordena_celda()
Palabras = Split(ActiveCell, ", ")
For Ant = LBound(Palabras) To UBound(Palabras)
For Post = Ant + 1 To UBound(Palabras)
If Palabras(Ant) > Palabras(Post) Then
Baja = Palabras(Ant)
Sube = Palabras(Post)
Palabras(Ant) = Sube
Palabras(Post) = Baja
End If
Next
Next
ActiveCell = Join(Palabras, ", ")
End Sub

Preguntas similares