Espero me ayudes..estoy haciendo cambios.con macros

Perdona pero no entiendo lo que me pides. ¿Podrías explicarte mejor?

ok...

normalmente ando colocando color a mi bd..ya q al i ngresar una fecha en la celda de la columna AJ coloreo de color verde toda la fila

ejemplo

columna A cliente

columna B aplicación

columna C transporte ; etc...sigo llenando los datos pero cuando llego a la columna AJ ahi coloco siempre una fecha

y asi tengo infinidad de registros que tienen fecha en la columna AJ.

al igual q el anterior sigo utilizando formatos condicionales..AQUÍ MI CODIGO:

Range("A2:AJ10000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$AJ2>1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = 0
.Color = 4234879
.TintAndShade = 0
.PatternTintAndShade = 0

Espero me puedas ayudar ya q cuando ejecute el código q me vas a ayudar reconozca solo

las filas q tienen fecha y los coloree de color verde q indica el código condicional..

gracias

edinson

Es decir, quieres pintar las líneas que contengan una fecha escrita en su celda de la columna AJ ¿es así?

asi...es amigo...

asi es.............!! :)

Te paso mi solución con esta macro:

Sub ejemplo()
'por luismondelo
Range("aj65000").End(xlUp).Offset(1, 0).Value = "final"
Range("aj2").Select
Do While ActiveCell.Value <> "final"
If IsDate(ActiveCell) Then
ActiveCell.EntireRow.Interior.ColorIndex = 3
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
End Sub

no olvides finalizar la consulta