Excel - Ordenar columnas excel

Pos: 395

Val: 7

Ordenar columnas excel

Publicado por Fco. Javier (4 intervenciones) el 25/03/2019 16:58:14

Buenas tardes.

Tengo varios archivos excel con 3 columnas (KEY, VALUE y FIELD_TXT) y quiero ordenar una de ellas (KEY) con respecto a otra (FIELD_TXT) la cual tiene el dato por el que quiero ordenar en una tercera columna (VALUE). Ver archivo adjunto de ejemplo (Prueba_1)

Como observáis, la tercera columna (FIELD_TXT) tiene nombres de campos cuyo valor está en la segunda columna (VALUE). Pues bien lo que quiero es que se ordene la primera columna respecto al valor de la dirección que hay en la segunda columna. En definitiva, querría que me quedase como el archivo adjunto de ejemplo (Prueba_2):

Espero haberme explicado bien.

¿Como se podría automatizar esto, si es que se puede?

Muchas gracias.

Archivos-ejemplo.7z(8,5 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 4.908

Ordenar columnas excel

Publicado por Antoni Masana (2478 intervenciones) el 25/03/2019 19:56:41

Seguramente hay más de una forma de hacerlo pero te cuento lo que se me ocurre.

Recorro desde la fila 2 hasta la primera fila vacía

    Pregunto La celda de la columna B es texto, Guardo el texto : Contador a CERO

    Pongo el texto mas un contador en la columna D

    Sumo 1 al conatdor.

Ordeno por la columna D

Borro la columna D

El contador es para que las 4 lineas (en el caso del ejemplo) queden en el mismo orden.

Asi es como queda antes de ordenar

KEY                |  VALUE           |  FIELD_TXT            |

EL132_M_VA02_CDCA  |  FC ABIERTA      |  Título               |  FC ABIERTA_0

EL132_M_VA02_CDCA  |             137  |  Dirección            |  FC ABIERTA_1

EL132_M_VA02_CDCA  |             160  |  Perfil de archivado  |  FC ABIERTA_2

EL132_M_VA02_CDCA  |               6  |  Perfil de muestreo   |  FC ABIERTA_3

EL132_I_PT13_CDLO  |  NIVEL BAJO      |  Título               |  NIVEL BAJO_0

EL132_I_PT13_CDLO  |             259  |  Dirección            |  NIVEL BAJO_1

EL132_I_PT13_CDLO  |             140  |  Perfil de archivado  |  NIVEL BAJO_2

EL132_I_PT13_CDLO  |               3  |  Perfil de muestreo   |  NIVEL BAJO_3

EL132_T_RE01_INBA  |  BATERÍA REMOTA  |  Título               |  BATERÍA REMOTA_0

EL132_T_RE01_INBA  |               2  |  Dirección            |  BATERÍA REMOTA_1

EL132_T_RE01_INBA  |             160  |  Perfil de archivado  |  BATERÍA REMOTA_2

EL132_T_RE01_INBA  |               6  |  Perfil de muestreo   |  BATERÍA REMOTA_3

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 395

Val: 7

Ordenar columnas excel

Publicado por Fco. Javier (4 intervenciones) el 26/03/2019 10:16:22

Buenos días.

Lo primero, gracias por la respuesta.

Creo que no me he explicado bien, aparte de haber omitido datos. Lo siento, quería hacer el mensaje lo menos largo posible.

He vuelto a enviar los archivos de prueba. He marcado en verde el dato por el cual quiero que se ordene la columna 1 (KEY). Como veis el dato es númerico y está en la columna 2 (VALUE), pero sólo quiero que se ordene por ese dato que corresponde al campo 'Dirección' de la columna 3 (FIELD_TXT).

El archivo 'Prueba_1' es como está actualmente y el 'Prueba_2' es como quiero que quede.

Espero haberme explicado mejor esta vez.

Gracias.

Prueba.7z(9,8 KB)

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

Ordenar columnas excel

Publicado por Antoni Masana (2478 intervenciones) el 26/03/2019 12:23:03

Teniendo el libro y con el comentario que has puesto he realizado la macro.

Sub Ordenar_Tabla()

    Dim Fila As Long, Direc As Long, Titul As String

    Fila = 2

    While Cells(Fila, "A") <> ""

        If Cells(Fila, "C") = "Título" Then

           Direc = Cells(Fila + 1, "B") * 100

           Titul = Cells(Fila, "B")

        End If

        Cells(Fila, "D") = Format(Direc / 100, "0000000.00#") & "-" & Titul

        Direc = Direc + 1

        Fila = Fila + 1

    Wend

    Fila = Fila - 1

MsgBox "Tabla dispuesta para ser ordenada", vbInformation, "BORRAME"

    ' ---&--- Ordena la Tabla

    Range("A1:D" & Fila).Select

    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add _

                                       Key:=Range("D2:D" & Fila), _

                                       SortOn:=xlSortOnValues, _

                                       Order:=xlAscending, _

                                       DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Hoja1").Sort

        .SetRange Range("A1:D" & Fila)

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    ' ---&--- Elimina la columna D

    Columns("D:D").Select

    Selection.Delete Shift:=xlToLeft

End Sub

NOTAS:

Desconozco cuanto puede valer el número de la dirección y le he puesto 7 cifras.
Los decimales es para que las filas del mismo grupo sigan en el mismo orden.
Tampoco se si se puede repetir la dirección en otro grupo y añado el título para que Dirección + Título sea único. Creo.
He puesto un MSGBOX para que puedas ver como generó la tabla para ordenar

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 395

Val: 7

Ordenar columnas excel

Publicado por Fco. Javier (4 intervenciones) el 26/03/2019 12:25:11

Muchas gracias, la voy a probar y ya comento.

Valora esta respuesta

Comentar

Pos: 395

Val: 7

Ordenar columnas excel

Publicado por Fco. Javier (4 intervenciones) el 26/03/2019 12:34:00

Funciona a la perfección.

Muchisimas gracias.

Valora esta respuesta

Comentar

Como buscar datos en diferentes hojas de excel de un mismo archivo

BORRAR N/A Y EL VALOR QUE SEA 0