Comparar hojas
Tengo 2 hojas con datos, hoja1 rango a1;c23 hoja2 rango a1;c23 , quisiera comparar las 2 hojas, y si alguna celda no es igual, los datos de esa celda en hoja2 salieran en texto en rojo
hoja1 hoja2
1 - a - a1 1 - a - a1
2 - b - b2 2 - c - b2
3 - c - c3 3 - c - c3
4 - d - d4 4 - d - d3
hoja1 hoja2
1 - a - a1 1 - a - a1
2 - b - b2 2 - c - b2
3 - c - c3 3 - c - c3
4 - d - d4 4 - d - d3
1 Respuesta
Respuesta de yoors
1
Veamos a ver prueba con esto:
Inserta un boton y pon el siguiente codigo:
Sub Botón1_Haga_clic_en()
Application.ScreenUpdating = False
Dim CompareRange As Variant, x As Variant, y As Variant
Call deshacercolor
Range("a1:c23").Select
Sheets("hoja2").Select
Set CompareRange = Range("a1:c23")
Sheets("hoja1").Select
For Each x In Selection
For Each y In CompareRange
If x = y Then y.Font.ColorIndex = 38
Next y
Next x
Range("a1").Select
Application.ScreenUpdating = True
End Sub
' y crea la siguiente rutina
Sub deshacercolor()
Sheets("hoja2").Select
Range("a1:c23").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Range("a1").Select
Sheets("hoja1").Select
End Sub
Inserta un boton y pon el siguiente codigo:
Sub Botón1_Haga_clic_en()
Application.ScreenUpdating = False
Dim CompareRange As Variant, x As Variant, y As Variant
Call deshacercolor
Range("a1:c23").Select
Sheets("hoja2").Select
Set CompareRange = Range("a1:c23")
Sheets("hoja1").Select
For Each x In Selection
For Each y In CompareRange
If x = y Then y.Font.ColorIndex = 38
Next y
Next x
Range("a1").Select
Application.ScreenUpdating = True
End Sub
' y crea la siguiente rutina
Sub deshacercolor()
Sheets("hoja2").Select
Range("a1:c23").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Range("a1").Select
Sheets("hoja1").Select
End Sub
