Comparar columnas y si no son iguales insertar celda en blanco

He estado buscando un macro para poder ordenar de esta manera una lista de unos 6 mil registros

Como pueden ver, tengo marcado con color AMARILLO los números de la columna C que no están en A. Y tengo marcado en color AZUL los números de la columna B que SI están en C (en otras palabras no pueden haber parejas coloreadas)

Además el B1809 y B1810 están repetidos, necesito borrar uno de los 2 para que no se repitan

También si pueden observar en la fila 1815 el número que hay en B no existe en C, lo que quiero es que si un número no es igual al de al lado, se añada una celda por encima del número hasta que estén iguales (tomando en cuenta que algunos números de B no están en C y viceversa)

Quedando como resultado esto:

Estuve buscando cómo pero no encuentro una solución que me funcione, me sería de gran ayuda si me facilitaran el macro o qué podría hacer en estos casos

1 Respuesta

Respuesta
2

Te anexo la macro. El resultado quedará en las columnas H e I

Sub Ordenar_Numeros()
'Por.Dante Amor
    Application.ScreenUpdating = False
    j = 0
    ant = ""
    Columns("E:I").Clear
    '
    'Quitar duplicados col B
    u1 = Range("B" & Rows.Count).End(xlUp).Row
    Range("B1:B" & u1).RemoveDuplicates Columns:=1, Header:=xlNo
    'Quitar duplicados col C
    u2 = Range("C" & Rows.Count).End(xlUp).Row
    Range("C1:C" & u2).RemoveDuplicates Columns:=1, Header:=xlNo
    '
    'copiar datos de B
    u1 = Range("B" & Rows.Count).End(xlUp).Row
    Range("B1:B" & u1).Copy Range("E1")
    Range("F1:F" & u1) = "B"
    'copiar datos de C
    u2 = Range("C" & Rows.Count).End(xlUp).Row
    Range("C1:C" & u2).Copy Range("E" & u1 + 1)
    u3 = Range("E" & Rows.Count).End(xlUp).Row
    Range("F" & u1 + 1 & ":F" & u3) = "C"
    '
    'ordenar datos
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("E1:E" & u3), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("F1:F" & u3), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("E1:F" & u3): .Header = xlGuess: .MatchCase = False
        .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
    End With
    '
    'Acomodar datos
    For i = 1 To Range("E" & Rows.Count).End(xlUp).Row
        If Cells(i, "F") = "C" Then
            If Cells(i, "E") <> ant Then j = j + 1
            Cells(j, "I") = Cells(i, "E")
        Else
            j = j + 1
            Cells(j, "H") = Cells(i, "E")
        End If
        ant = Cells(i, "E")
    Next
    Application.ScreenUpdating = True
    MsgBox "Fin"
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Hola amigo! muchas gracias, funciona, pero se me olvido por completo un detalle, no sé si esto es posible, tengo números con colores azul y rojo aparte del negro, y en el resultado los colores pasan a ser todo negro, no hay alguna posibilidad de hacer que pasen con los mismos colores? perdón pero se me escapó el detalle, valoraré con excelente

por ejemplo B6 está con rojo y los primeros de arriba están azules

Prueba así:

Sub Ordenar_Numeros()
'Por.Dante Amor
    Application.ScreenUpdating = False
    j = 0
    ant = ""
    Columns("E:I").Clear
    '
    'Quitar duplicados col B
    u1 = Range("B" & Rows.Count).End(xlUp).Row
    Range("B1:B" & u1).RemoveDuplicates Columns:=1, Header:=xlNo
    'Quitar duplicados col C
    u2 = Range("C" & Rows.Count).End(xlUp).Row
    Range("C1:C" & u2).RemoveDuplicates Columns:=1, Header:=xlNo
    '
    'copiar datos de B
    u1 = Range("B" & Rows.Count).End(xlUp).Row
    Range("B1:B" & u1).Copy Range("E1")
    Range("F1:F" & u1) = "B"
    'copiar datos de C
    u2 = Range("C" & Rows.Count).End(xlUp).Row
    Range("C1:C" & u2).Copy Range("E" & u1 + 1)
    u3 = Range("E" & Rows.Count).End(xlUp).Row
    Range("F" & u1 + 1 & ":F" & u3) = "C"
    '
    'ordenar datos
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("E1:E" & u3), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("F1:F" & u3), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("E1:F" & u3): .Header = xlGuess: .MatchCase = False
        .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
    End With
    '
    'Acomodar datos
    For i = 1 To Range("E" & Rows.Count).End(xlUp).Row
        If Cells(i, "F") = "C" Then
            If Cells(i, "E") <> ant Then j = j + 1
            Cells(i, "E").Copy Cells(j, "I")
        Else
            j = j + 1
            Cells(i, "E").Copy Cells(j, "H")
        End If
        ant = Cells(i, "E")
    Next
    Application.ScreenUpdating = True
    MsgBox "Fin"
End Sub

sal u dos

¡Gracias! me ha servido de mucha ayuda, solo que en los duplicados está prevaleciendo el color negro (tiene que prevalecer el rojo o celeste), pero creo que es demasiado pedir y los estoy haciendo manualmente (son muy pocos)

DE NUEVO MUCHAS GRACIAS DANTE!

En los duplicados, elimina el que necesites. En tus comentarios no estableciste cuál de los 2 duplicados se tiene que eliminar.

Sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
3 respuestas

Access 2013 - Formulario para logear usuarios con contraseña

Estoy planeando agregarle a mi base de datos, un formulario para que logueen distintos usuarios. He estado viendo videos y me doy una idea. Pero mi base de datos está dividida en front y back end, he leído por ahí que eso puede ser un problema al...
3 respuestas

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Buscar la ultima fecha de mantenimiento

Tengo una tabla de excel hoja2 que cuando escribo el numero de activo del equipo en la columna A me busca los datos como el nombre del equipo, marca, serie y modelo. Estos datos provienen de la hoja 1. Lo que quiero hacer es que al digital el activo...
2 respuestas

Promedio de las ultimas 100 celdas con numeros

Tengo en la columna 0Y2:OY146 (celdas en blanco y celdas con numeros necesito calcular el promedio de los ultimos 100 numeros de la columna, si la cantidad fuera inferior a 100 que calcule el promedio de la totalidad de las celdas que contenga numeros.
2 respuestas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
3 respuestas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

Es estrictamente necesario que una aplicación para android e ios se vea diferente

Si una empresa lanza su aplicación en las tiendas para Android y App Store ¿Esta tendría que verse diferente? Ya que he visto aplicaciones de empresas famosas que se ven un poco mejor diseñadas en Iphone ¿Es estrictamente necesario ofrecer una...
2 respuestas

¿Cómo puedo imprimir informe y actualizar tabla usando un "botón de comando"?

Quiero saber como hacer para que en una tabla, dónde el valor predeterminado es "N" al hacer clic en el botón de comando, imprima 1 informe y actualice a "S" el valor de la tabla pero si en cambio, ese campo esta con valor "S" no imprima ni actualice...
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas