Colorear duplicados de dos libros de Excel

En la columna " A " del libro " Matriz Septiembre " necesito colorear de rojo las celdas que se encuentren duplicadas, comparándolas con la columna " A " del libro " Matriz Agosto ". La información comienza a partir de la Celda A3 en adelante.

1 Respuesta

Respuesta
1

H o l a:

Te anexo la macro para colorear.

No mencionaste cómo se llama la hoja del libro de septiembre, ni tampoco cómo se llama la hoja del libro de agosto, en ambos caso le puse "hoja1", si tiene otro nombre, cámbialo en la macro en estas líneas:

    Set h1 = l1.Sheets("hoja1")                 'Hoja de septiembre
    Set h2 = l2.Sheets("hoja1")                 'Hoja de agosto

La macro:

Sub ColorearDuplicados()
'Por.Dante Amor
    Set l1 = ThisWorkbook
    Set h1 = l1.Sheets("hoja1")                 'Hoja de septiembre
    Set l2 = Workbooks("Matriz Agosto.xlsx")
    Set h2 = l2.Sheets("hoja1")                 'Hoja de agosto
    '
    For i = 3 To h1.Range("A" & Rows.Count).End(xlUp).Row
        Set b = h2.Columns("A").Find(h1.Cells(i, "A"))
        If Not b Is Nothing Then
            h1.Cells(i, "A").Interior.ColorIndex = 3
        End If
    Next
    MsgBox "Terminado"
End Sub

Pon un botón en tu hoja de septiembre para ejecutar la macro.

Debes tener abierto los 2 libros.


Sigue las Instrucciones para un botón y ejecutar la macro

  1. Abre tu libro de Excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. Ahora para crear un botón, puedes hacer lo siguiente:
  6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
  7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
  8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
  9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: ColorearDuplicados
  10. Aceptar.
  11. Para ejecutarla dale click a la imagen.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas