Colorear celdas con valores repetidos

[Pochonto]

Buena, tengo un archivo en el cual en una columna tengo fechas de desembolso y en la columna de al lado tengo fechas de pago. Necesito una macro que me coloree las celdas donde coiciden las fechas de desembolso con las fechas de pago y por cada caso que encuentre varie el color.

Adjunto el archivo ejemplo del resultado esperado.

Desde ya muchas gracias!!!

[ioyama]

Hola Pochonto

Bienvenido al foro.

Creo que ha habido un problema con tu archivo y no ha sido adjuntado. Inténtalo de nuevo.

Un saludo desde Vitoria

[Antoni]

Hola:

Selecciona el rango de celdas que contiene desde la fecha inicial hasta la fecha final y ejecuta esta macro:

Sub CompararFechas()  

  Selection.Interior.Color = xlNone

  ofset = Selection.Columns.Count - 1

  For Each celda In Selection

      If celda.Column = ActiveCell.Column Then

         If celda.Value = celda.Offset(0, ofset) Then

            celda.Interior.Color = vbYellow

            celda.Offset(0, ofset).Interior.Color = [B][COLOR=#b22222]vbYellow 'Color (*)[/COLOR][/B]

         End If

      End If

  Next



End Sub



[/CODE]

[b][color=#b22222](*) vbYellow, vbRed, vbBlack, vbWhite, vbGreen, vbBkue, vbCyan, ..........[/color][/b]

Saludos

[Guest Cacho R]

Hola! Pochonto (ioyama y Antonio).

Te dejo una pequeña variante respecto a lo que muestra Macro Antonio pero, y del mismo modo: selecciona las celdas de las dos columnas involucradas en la comparación y ejecuta lo siguiente:

Sub IgualesFechas()
Dim myMat, colores(), tRow As Long, jj As Long, ii As Long
If Selection.Columns.Count <> 2 Then Exit Sub
myMat = Selection: tRow = UBound(myMat)
jj = -1: colores = Array(vbRed, vbGreen, vbYellow, vbMagenta, vbCyan)
Selection.Interior.ColorIndex = xlColorIndexNone
For ii = 1 To tRow
  If myMat(ii, 1) = myMat(ii, 2) Then
    jj = (1 + jj) Mod (1 + UBound(colores))
    Selection(2 * ii - 1).Resize(, 2).Interior.Color = colores(jj)
  End If
Next ii
End Sub[/PHP]

Saludos, Cacho R.

[godinez]

Buenos dias Estimado, ¿tenes office 2007, para insertar formato condicional?

Saludos,

[Pochonto]

Desde ya muchas gracias y disculpen que haya desaparecido por tanto tiempo, probe ambas macros y no funcionan.

Tengo office 2010 y adjunto como imagen por que al intenar adjuntar el archivo del resultado esperado da un error del navegador.

--- Mensaje unido automáticamente ---

[Pochonto]

Adjunto el archivo

TEMP.zip