Hola a todos!

Ojala puedan ayudarme. Necesito comparar 2 celdas y pintar de rojo en una de ellas las diferencias encontradas.

Adjunto el archivo. Muchas gracias a todo de ante mano.

Saludos

Caracteres_Dif.rar

Hola:

Click en la primera celda, luego Ctrl+Click en la segunda celda, y ejecuta esta macro:

Sub PintarDiferencias()

   For x = 1 To Len(Selection.Areas(1).Cells)

      If Mid(Selection.Areas(1).Cells, x, 1) <> _

         Mid(Selection.Areas(2).Cells, x, 1) Then

         Selection.Areas(2).Cells.Characters(x).Font.Color = vbRed

      End If

   Next

End Sub[/CODE]

Saludos

Hola Muchas gracias por la pronta respuesta.. he probado la macro pero no ejecuta nada.

debo tener alguna consideracion especial al ejectura. no logro hacer que ejecute..

adjunto el archivo y gracias nuevamente!

pintar2.rar

lo verificare... pero segun veo en sus lineas de comando es una referencia...unicamente..

Hola:

El problema viene porqué interpreté que el texto de las celdas serían de la misma longitud.

Recuerda que la segunda celda la tienes que seleccionar con Ctrl+Click, si no te dará error.

Ahora ya funciona

Sub Botón2_Haga_clic_en()

   l = Len(Selection.Areas(1).Cells)

   If l < Len(Selection.Areas(2).Cells) Then

      l = Len(Selection.Areas(2).Cells)

   End If

   For X = 1 To l

      If Mid(Selection.Areas(1).Cells, X, 1) <> _

         Mid(Selection.Areas(2).Cells, X, 1) Then

         Selection.Areas(2).Cells.Characters(X).Font.Color = vbRed

      End If

   Next

End Sub



[/CODE]

Funciona perfecto Muchas gracias!