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!!!

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

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

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.

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

Saludos,

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 ---

Adjunto el archivo

TEMP.zip