Anónimo
Comparar columnas por cadena texto
Necesitaría una macro que me comparase datos en dos columnas diferentes, pongamos por caso la columna A y la columna B. El dato en la columna A tiene seis caracteres y en la B ocho caracteres, la comparación se debe hacer en base a los últimos cuatro caracteres del dato de la columna A o B.
Si los datos de la columna A y la B fuesen diferentes preciso que me marque la fila entera. También si en B el dato fuese igual a 0 que la fila se marcase.
1 respuesta
Prueba esta macro
Sub compara_columnas()
Set datos = Range("a1").CurrentRegion
With datos
filas = .Rows.Count
For i = 1 To filas
cadena = Right(.Cells(i, 1), 4)
cadena2 = Right(.Cells(i, 2), 4)
If cadena <> cadena2 Or cadena2 = 0 Then .Rows(i).Interior.ColorIndex = 6
Next i
End With
End Sub
Gracias por la rápida respuesta.
El código me ha funcionado correctamente, solo tengo un apunte más.
Como hacer para que no me coloree la primera fila (la de los encabezados) ya que al utilizar la expresión currentregion también selecciona el encabezdo
simple solo cambias el i=1 to filas por
For i = 2 To filas y listo