Macro para comparar datos en libros

Question

el 16 abr. 13

Macro para comparar datos en libros

Tengo dos libros de clientes el libro 1 y el libro 2, el cual me lo envían todos los meses, quiero una macro para que me resalte de color cuales de los clientes que tengo en el libro 2 no los tengo en el libro 1.

Los archivos están conformados por datos como identificación, apellidos, precios entre otros.

1 respuesta más de otro experto

Respuesta de Gabriel Flores

2

La solución es fácil:

Código VBA:

'invocar este metodo desde un boton
Sub CompararHojas()
' variable de tipo Range para hacer referencia a las celdas
    Dim obj_Cell As Range
    Set h1 = Sheets(1)
    Set h2 = Sheets(2)
    h2.Activate
    Dim fila As Integer
    Dim columna As Integer
    'Recorrer todas las celdas seleccionadas en el rango actual
    For Each obj_Cell In Selection.Cells
        With obj_Cell
            fila = .Row
            columna = .Column
        End With
        'marcar diferencias en hoja 1
        If (h1.Cells(fila, columna) <> h2.Cells(fila, columna)) Then
        'If (h1.Cells(fila, columna).Value <> h2.Cells(fila, columna).Value) Then
            'h1.Cells(fila, columna).Interior.ColorIndex = 6
            h1.Cells(fila, columna).Interior.Color = RGB(255, 0, 0)
        Else
            h1.Cells(fila, columna).Interior.Pattern = xlNone
        End If
        'marcar diferencias en hoja 2
        If (h1.Cells(fila, columna) <> h2.Cells(fila, columna)) Then
        'If (h1.Cells(fila, columna).Value <> h2.Cells(fila, columna).Value) Then
            'h2.Cells(fila, columna).Interior.ColorIndex = 6
            h2.Cells(fila, columna).Interior.Color = RGB(255, 0, 0)
        Else
            h2.Cells(fila, columna).Interior.Pattern = xlNone
        End If
    Next
End Sub

eso es todo favor indicanos si te sirvio la respuesta

el 7 nov. 14

4 comentarios

Hola: Generalmente no agrego más comentarios, pero hoy ando de buenas además me dejaste con la inquietud, por lo que me atreví a revisar tu macro y con todo respeto te comento lo siguiente, para que lo consideres como critica constructiva. Primero la pregunta ya fue valorada por el usuario y mi respuesta fue correcta. Segundo cómo es más fácil con tu macro si tiene casi el triple de líneas de código que mi macro? y ya para finalizar, tu macro no funciona si no seleccionas las celdas, entonces todavía te faltan más líneas de código para seleccionar lo que se quiere comparar. Espero que puedas corregir tu macro para que la puedan tomar otros usuarios. Saludos Cordiales, Dante Amor. - Dante Amor

el 8 nov. 14

Dante,disculpa,pero el que tu macro tenga menos lineas de codigo no significa que sea mejor,ademas tu macro solo verifica en una columna,mi macro es mas generico, compara varias columnas (un rango que el usuario debe seleccionar)y por tanto serviria perfectamente para lo que pide el usuario,y para muchos otros casos mas.Lo que si, me falto detallar mas como usarlo:-crear un archivo excel habilitado para macros-copiar en la hoja1 y hoja 2 los datos a comparar-copiar el codigo de la macro en un modulo VBA del excel (ALT+F11)-crear un boton en la segunda hoja del excel,el boton debe invocar a la macro-en la hoja2 donde esta el boton,se debe seleccionar el rango de celdas,y hacer clic al boton - Gabriel Flores

el 10 nov. 14

Hola, quisiera saber si los valores que están en una columna son iguales a los de otra columna pero de otro libro y en caso de que sean distintos, que marque el que es distinto. - Gustavo Garcia

el 12 abr. 17

Comentario borrado por el autor - Adriana Martinez

el 9 oct. 18

Hola: Generalmente no agrego más comentarios, pero hoy ando de buenas además me dejaste con la inquietud, por lo que me atreví a revisar tu macro y con todo respeto te comento lo siguiente, para que lo consideres como critica constructiva. Primero la pregunta ya fue valorada por el usuario y mi respuesta fue correcta. Segundo cómo es más fácil con tu macro si tiene casi el triple de líneas de código que mi macro? y ya para finalizar, tu macro no funciona si no seleccionas las celdas, entonces todavía te faltan más líneas de código para seleccionar lo que se quiere comparar. Espero que puedas corregir tu macro para que la puedan tomar otros usuarios. Saludos Cordiales, Dante Amor. — Dante Amor
Dante,disculpa,pero el que tu macro tenga menos lineas de codigo no significa que sea mejor,ademas tu macro solo verifica en una columna,mi macro es mas generico, compara varias columnas (un rango que el usuario debe seleccionar)y por tanto serviria perfectamente para lo que pide el usuario,y para muchos otros casos mas.Lo que si, me falto detallar mas como usarlo:-crear un archivo excel habilitado para macros-copiar en la hoja1 y hoja 2 los datos a comparar-copiar el codigo de la macro en un modulo VBA del excel (ALT+F11)-crear un boton en la segunda hoja del excel,el boton debe invocar a la macro-en la hoja2 donde esta el boton,se debe seleccionar el rango de celdas,y hacer clic al boton — Gabriel Flores
Hola, quisiera saber si los valores que están en una columna son iguales a los de otra columna pero de otro libro y en caso de que sean distintos, que marque el que es distinto. — Gustavo Garcia

Dante Amor, https://www.youtube.com/@CursosDeExcelyMacros · Accepted Answer · 2013-04-16T18:58:53.0000000Z

Respuesta de Dante Amor

6

Sigue las Instrucciones para ejecutar la macro
1. Abre tu libro 2 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. Para ejecutarla presiona F5

Sub clientes_libro2_no_en_libro1()
'por.DAM
Set h1 = Workbooks("libro1").Sheets("Hoja1")
Set h2 = Workbooks("libro2").Sheets("Hoja1")
h2.Activate
Set r = h1.Range("A:A")
col = "A"
For i = 1 To h2.Range(col & Rows.Count).End(xlUp).Row
    Set b = r.Find(Cells(i, col))
    If b Is Nothing Then Cells(i, col).Interior.ColorIndex = 6
Next
End Sub

Indicaciones
1. Los dos libros deben estar abiertos
2. La macro la debes poner en el libro2
3. La hoja de los 2 libros le puse “hoja1”, puedes cambiar el nombre en esta parte de la macro:
Set h1 = Workbooks("libro1").Sheets("Hoja1")
Set h2 = Workbooks("libro2").Sheets("Hoja1")

Si tienes problemas en esta parte cambia el nombre así
Set h1 = Workbooks("libro1.xls").Sheets("Hoja1")
Set h2 = Workbooks("libro2.xls").Sheets("Hoja1")
Si tienes versión 2007 o mayor, así
Set h1 = Workbooks("libro1.xlsx").Sheets("Hoja1")
Set h2 = Workbooks("libro2.xlsm").Sheets("Hoja1")

4. La columna de clientes en el libro1, debe estar en la columna “A”, cámbiala en esta parte de la macro
Set r = h1.Range("A:A")
Por ejemplo, si está en la columna D, escribe así
Set r = h1.Range("D:D")
5. La columna de clientes en el libro 2, debe estar en la columna “A”, cámbiala en esta parte de la macro
col = "A"
Por ejemplo, si está en la columna D, escribe así
col = "D"
6. Te va a pintar de amarillo el cliente que no exista, cambia en la macro en esta parte, por el número de color de tu preferencia
If b Is Nothing Then Cells(i, col).Interior.ColorIndex = 6
busca el número de colores en esta página
http://dmcritchie.mvps.org/excel/colors.htm
Saludos. Dam
Si es lo que necesitas.

el 16 abr. 13

gracias...

y si los datos los tengo en 2 hojas del mismo libro como seria.

el 16 abr. 13

Cambia esta líneas

Set h1 = Workbooks("libro1").Sheets("Hoja1")
Set h2 = Workbooks("libro2").Sheets("Hoja1")

H2. Activate

Por estas

Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")

h2.select

Saludos. Dam

el 16 abr. 13

No he recibido comentarios., podrías finalizar la pregunta.

el 21 abr. 13

Macro para comparar datos en libros

1 respuesta más de otro experto

Añade tu respuesta

Más respuestas relacionadas

Macro para comparar datos de 2 libros de excel

Macro busca celda por color y resumen

Comparar dos rangos de fechas? Como comparo dos fecha de dos libros diferentes, si fecha de hoja1 ya existe en hoja1

Se ha producido el error "1004" en tiempo de ejecución: Error definido por la aplicación o el objeto

Copiar datos de una hoja a otra pegándolos en la ultima fila vacía con macro

Sumar cantidades de Artículos de 2 Libros en excel

Como usar macro como la fórmula buscarv en excel.

Copiar Columnas de un Excel a Otro por Macros

Macro busque datos en otro libro rango variable (Luis Mondelo)

Anotador para campeonato de truco!

¿Cómo cerrar sesión de GMail en el móvil?

¿Qué anchura y resolución de pantalla son adecuadas para ver TV a 2 metros?

¿Cómo cambiar PC a un habitación diferente a donde está conexión de fibra?

¿Puede saber un perito informático si unos vídeos han sido manipulados en Android?