comparar fechas

[oskar5]

hola a TODOS esta es mi primera vez en el foro. por favor su ayuda sera de mucha utilidad para mi estoy seguro


el problema es el siguiente:


tengo en excel una tabla q contien una columna de fechas en las q emleados de mi empresa inician a laborar, y otra columna con las fechas en las q ha de renovarseles el contrato o ser desvinculado de la empresa.

quiero hacer una peque;a macro con el VBA de excel q me permita recorrer las celdas de las fechas de terminacion y cuando encuentre una fecha q tiene como diferencia un mes a la fecha en la que nos encontramos es decir, fecha del sistema windows. entonces me marque toda la fila con algun color como una alerta


tengo entendido q primero debo seleccionar la columna para trabajar en ella asi

sub macrotales()
range(E:E).select


....end sub

y q debo poner la diferencia en un IF pero no tengo las funciones q me dicen como sacar el mes de la fecha y como restarle uno a la fecha del sistema

porfavor apelo ante su sabiduria .... ayudemen

[judoka]

yo creo que te conviene poner un formato condicional,
crea una columna que haga la diferencia entre hoy y la fecha de termino por ejemplo
=entero((hoy()- C2)/30) ; luego si el resultado de eso es menor que uno le pones en el formato condicional el color que desees.

[oskar5]

lo que pasa es q son fechas q debe revisar otra persona por eso necesito hacerlo por el codigo de VB. ademas para cuando la condicion sea negativa es decir q hay q echar al empleado pues mediante codigo elimine esa filay quiero hacerlo escalable para ir añadiendole nuevas ideas. por eso no quiero trabajar formulitas del mismo excel

[judoka]

algo así te puede servir, en este caso pinta la celda pero tu puedes hacer lo que desees y a que te refieres con "formulitas", no menosprecies la capacidad de la formulas muchas veces es mas fácil con fórmulas que con macro sobre todo para los que no saben Vb.

[oskar5]

muchas gracias es sierto no hay q subestimar las cosas. aunque aun no pillo la solucion a mi problema se que esto q me has pasado me servira mucho


a lo de color es con cells.colorindex= a algon numero

[judoka]

perdón en el post anterior se me olvido pegar la macro

Sub Macro1()
dim filas as double
dim fecha as date
dim i as double
Range("D5").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
filas = ActiveCell.Row - 1
For i = 5 To filas
fecha = Cells(i, 4).Value
If (Date - fecha) > 30 Then
Cells(i, 4).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next

End Sub