Macro para ordenar celdas contiguas
Necesito una macro que este yo en la celda que este al ejecutarla ordene de menor a mayor las 10 celdas que estén en la misma fila incluida la que está activa.
1 respuesta
H o l a:
Puedes enviarme tu archivo en una hoja me pones un ejemplo de lo que tienes.
En otra hoja me pones el resultado de lo que esperas que haga la macro.
Explica el ejemplo con comentarios y colores.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Miryam Beatove” y el título de esta pregunta.
¡Gracias! Ya te he enviado un correo con el ejemplo.
H o l a:
Te regreso la macro para ordenas los datos.
Sub OrdenarDatos()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets("Datos")
Set h2 = Sheets.Add(after:=Sheets(Sheets.Count))
For i = 5 To h1.Range("A" & Rows.Count).End(xlUp).Row
h2.Columns("A").Clear
h1.Rows(i).Copy
h2.Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
With h2.Sort
u = h2.Range("A" & Rows.Count).End(xlUp).Row
.SortFields.Clear
.SortFields.Add Key:=h2.Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange h2.Range("A1:A" & u): .Header = xlYes: .MatchCase = False
.Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
End With
h2.Range("A2:A" & u).Copy
h1.Cells(i, "B").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next
h2.Delete
h1.Select
[A5].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub' : ) 'S aludos. Dante Amor. Recuerda cambiar la valoración de la respuesta. G racias ' : )
Muchas gracias, no me acaba de funcionar bien. Necesito que ordene los datos contenidos de la columna "C" a la "M". Esté en la fila que esté en ese momento no me importa que ordene toda la tabla pero en estos momentos tengo 517 filas. He intentado hacer yo la modificaciones pero no funciona. Me sale el mensaje de Fin, y no me da ningún error pero no me ordena una vez copiada la macro en la hoja que debe ordenar. La hoja se llama "listado chapas (2)" He modificado también ese dato. Pero algo debo hacer mal.
Pero los ejemplos que me enviaste empiezan en la columna B.
Pon los datos como los pusiste en el ejemplo y prueba nuevamente la macro.
Además te puse unos comentarios en la hoja. Simplemente pon los datos tal y como me los enviaste en el ejemplo.
Si me envías un ejemplo de como tienes los datos, pero la información real la tienes acomodada de otra forma, entonces el ejemplo de nada sirve y por lo tanto la macro tampoco va a funcionar.
Si no puedes poner tus datos como el ejemplo, entonces debes enviarme información real ta y como la tienes y también me tienes que indicar cómo quieres el resultado real.
