Comparar columnas con Macro

Que tal Elsa necesito ayuda con una macro para comparar 2 columnas en 2 hojas diferentes pero la misma columna, encontré una de tus macros que hace lo inverso que necesito, porque lo que quiero que me rellene con un color la fila de con valores iguales, pero no encuentro como. He tratado de modificar pero me salen errores.
Espero puedas ayudarme, te lo agradeceré mucho.
Gracias
Sub comparaCol()
' Macro grabada el 11/05/2005 por Elsamatilde
ActiveSheet.Range("G7").Select
'recorre la col G hasta una celda vacía, presuponiendo que será el final.
While ActiveCell.Value <> ""
If ActiveCell.Value <> ActiveCell.Offset(0, 6).Value Then
ActiveCell.Interior.ColorIndex = 4
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub

1 respuesta

Respuesta
1
Te ajusté la rutina. Esta no controla fila, es decir que los valores encontrados no necesariamente están en la misma fila, verdad.?
Sub comparaCol()
' Macro grabada el 11/05/2005 por Elsamatilde
Dim fila, ctrol As Integer
fila = 2
'suponemos que se comparan las col C de la hoja activa y la Hoja2
ActiveSheet.Range("C2").Select
'recorre la col C hasta una celda vacía, presuponiendo que será el final.
While ActiveCell.Value <> ""
'recorre la col C de la hoja2
While ctrol = 0
'controla si no será la última fila de la hoja2
If Sheets("Hoja2").Cells(fila, 3) = "" Then
ctrol = 1
ElseIf ActiveCell.Value = Sheets("Hoja2").Cells(fila, 3) Then
ActiveCell.Interior.ColorIndex = 4
ctrol = 1
Else
fila = fila + 1
End If
Wend
ActiveCell.Offset(1, 0).Select
fila = 2
ctrol = 0
Wend
End Sub
Pruébala y comentame si esto es lo que necesitabas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Comparar dos columnas de diferentes hojas y colorear

Por lo que he leído creo que tu podrías ayudarme. Tengo dos temas que necesito. El primero comparar dos columnas en un excel de diferente hoja y las que coincidan pintar el fondo de la celda`. ¿Podrías orientarme con el macro? Y la segunda es, tengo...
1 respuesta

Macro para encontrar faltantes de una serie

Necesito una macro que me permita recorrer una columna que contiene una serie de números correlativos y que registre en una nueva hoja de calculo, con el nombre"Faltantes", los faltantes de la serie.
2 respuestas

Macro que copie renglones segun valores en columnas

Tengo el siguiente detalle. En un libro de excel tengo alrededor de miles de registros, con la siguiente estructura: ColA ... Col E col F... Col AK col AL ... Col BD xx dato dato valor1 valor2 ... Valor 3 La cosa es la siguiente quiero que se copie...
1 respuesta

Macro para Imprimir Hojas según Condición

Alguien me puede ayudar a desarrollar una macro en excel para que me pueda imprimir solo algunas hojas solo si cumplen algunas condiciones. Les explico tengo un archivo excel con 21 Hojas, en la Hoja 1 hay una lista basada en nombres, montos ($) y...
1 respuesta

Excel. Comparar 2 columnas de diferentes hojas y copiar lineas completas de coincidentes

En hoja 1 tengo una tabla con 10.000 filas y 20 columnas En hoja 2 tengo una tabla con 2 columnas (A y B). Necesito copiar la línea completa de la hoja 1 a la la hoja 2, de los valores coincidentes que existan en la columna A de las 2 hojas. Las...
1 respuesta

Macro de búsqueda excel 2010

He encontrado una macro de Elsa que realiza una búsqueda, me ha sido muy útil, muchas gracias. Mi problema es que no sé cómo modificarla para que no ponga una x en la primer coincidencia sino que ponga la x en TODAS las coincidencias que encuentre....
1 respuesta

Función buscarV con macros

Señores: Revisando el portal encontré la siguiente macro: Sub Traer() Application.ScreenUpdating = False Sheets("hoja2").Select Range("A1").Select Posicion = 1 While ActiveCell.Value <> "" direccion = ActiveCell.Value Sheets("hoja1").Select...
1 respuesta