Jump to content

Colorear celdas con valores repetidos


Pochonto

Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • 1 month later...

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.

f1pC73o0F0aVAAAAAElFTkSuQmCC

--- Mensaje unido automáticamente ---

f1pC73o0F0aVAAAAAElFTkSuQmCC

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy