Comparar caracteres de las celdas

[aamv87]

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

[Antoni]

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

[aamv87]

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

[nelsony]

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

[Antoni]

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]

[aamv87]

Funciona perfecto Muchas gracias!