Macro o código para poner color a una celda si es igual que otra

Tengo una la cual en la celda EA3 tengo una fecha y tengo un rango E186:E500en la cual anoto fechas distintas, entonces quisiera que cuando se ejecute un código(aparte) en una celda especifica me aparezca en color las fechas iguales a la de EA3

1 Respuesta

Respuesta
1

Te anexo la macro, la celda que se pinta es la de la columna "ED"

Sub PonerColor()
'Por.Dante Amor
    For i = 186 To Range("E" & Rows.Count).End(xlUp).Row
        If Cells(i, "E") = [EA3] Then
            Cells(i, "ED").Interior.ColorIndex = 5
        Else
            Cells(i, "ED").Interior.ColorIndex = xlNone
        End If
    Next
End Sub

Avísame si tienes dudas.

Saludos. Dante Amor

Disculpa dan

En este código que tu me diste quisiera que aparte que avise cuantas celdas son iguales a la celda fecha me pinte las celdas que son iguales para identificarlos

Sub VerificarFecha7()'Por.Dante Amor    For Each c In Range("E186:E331")        If IsDate(c.Value) Then            If c.Value = [AH3] Then                cont = cont + 1            End If        End If    Next    MsgBox "Hay : " & cont & " encargos para entregar el dia " & Range("ah3"), vbInformationEnd Sub
Sub VerificarFecha7()
'Por.Dante Amor
    For Each c In Range("E186:E331")
        c.Interior.ColorIndex = xlNone
        If IsDate(c.Value) Then
            If c.Value = [AH3] Then
                cont = cont + 1
                c.Interior.ColorIndex = 5
            End If
        End If
    Next
    MsgBox "Hay : " & cont & " encargos para entregar el dia " & Range("ah3"), vbInformation
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para mantener el formato de una hoja a otra en excel

Esta pregunta es la continuación de otra pregunta antorior titulada "Macro para copiar el formato de una hoja a otra". Me explico de nuevo. El tema del color del texto y, ya puestos, el del fondo para cada empresa de la hoja PROGRAMACIÓN tiene una...
1 respuesta

Macro que me avise el vencimiento de una fecha pasada 3 días

Para Dante Amor, Mi caso es el siguiente: Tengo una hoja de calculo donde en la fila "b" (desde B2 hasta B115) tengo fecha de inicio y en la fila "c" (desde C2 hasta C115) fecha de cierre, y cuando ingrese una fecha en fecha de inicio lo que necesito...
1 respuesta

Formato condicional para valores duplicados en varias columnas

Mi experto Dante consultar como puedo pintar una celda con valores duplicados pero solo si se duplica En ambas columnas y no en una sola columna te paso un archivo de muestra.
1 respuesta

Marcar celdas de fechas que están entre una y otra fecha

Para Dante Hola Hace una días me proporcionaste una macro para buscar entre fechas. Sera que es posible que las fechas que están entre (ejem. 01/10/2014 a 24/10/2014) salgan marcadas con un color diferente (verde por ejemplo), la idea es que al...
1 respuesta

Marcar automáticamente datos iguales en celdas excel y contar datos iguales por línea

Pregunta dirigida a Dante Amor, Tras el uso de la macro que me facilitaste: ( la cual copio y pego). Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A:E")) Is Nothing Then...
1 respuesta

Macro lenta en la ejecución calculando celdas

Tengo esto en la hoja : Private Sub Worksheet_Activate() ActiveSheet.ScrollArea = "A1:Q6000" Call Celdas_oculta End Sub Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Column = 4 Then If Cells(Target.Row, "B") = "" Then...
2 respuestas

Tengo este código en Visual basic para Excel, y no me funciona.

El código es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.jom uf = Range("H" & Rows.Count).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target) Then Exit Sub If Target = "" Then Target.Interior.ColorIndex...
1 respuesta

Agregar línea de puntos a una celda

Pregunta para dante En un rango de celdas tengo distintos nombre por ejemplo Juan Pedro Roberto Necesito una macro para agregarle una línea de puntos que complete el ancho de la celda y que quede así juan... Pedro... Roberto...
1 respuesta

Una macros para colorear al mismo tiempo los datos repetidos

Necesito q la macros coloree los datos repetitivos y a su vez guarde en un contador cuantos datos repetitivos hay en la columna c Ejemplo A B C Fila 5 126 Fila 15 802 Fila 30 487 Fila 80 487 Fila 120 126 Fila 135 802 Fila 136 12356 Lo puese asi para...
1 respuesta

Macro para copiar el formato de una hoja a otra

Ante todo, agradecer a Dante Amor la última ayuda prestada. La macro que me pasaste me ha ayudado mucho para ahorrarme tiempo en la gestión. Muchas gracias. En el Excel de la última consulta, me gustaría añadir a la macro una "función" que, cuando en...
1 respuesta