¿Cómo comparar dos rangos?
Estoy intentando comparar el contenido del rango de dos hojas, la primera hoja1 y la segunda hoja2. El rango que quiero comparar es el siguiente: en la hoja1 de A2:A10 y en la hoja2 va de la celda B2:B10.
Yo estoy haciendo algo así como
fila=1
fhoja2=2
col=2
choja2=2
If Range(hoja1.Cells(fila, col), h1.Cells(fila, col + 8)) = Range(Hoja2.Cells(fhoja2, choja2), H2.Cells(fhoja2, choja2 + 8)) Then
Esto me da error seguro que la comparación no es buena, a ver si podéis echarme una mano.
1 respuesta
Una variable rango no tiene los valores de las celdas tiene la referencia de las celdas del rango.
La comparación tienes que hacerla celda a celda, esto te puede servir
Dim i as integer, EsIgual as Boolean
EsIgual = True
For i= 2 to 10
If hoja1.cells(i,"A") <> hoja2.cells(i,"B") Then
EsIgual = False
Exit For
End IF
Next i
If EsIgual Then
' Lo que haya que hacer
End IF
Comprendido, doblemente gracias por la respuesta y la rapidez. El método celda a celda ya lo conocía pero la cuestión era ver si eso también servía.
Gracias nuevamente y saludos
