comparar fechas
 

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

Re: comparar fechas
 

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.

Re: comparar fechas
 

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

Re: comparar fechas
 

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.

Re: comparar fechas
 

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

Re: comparar fechas
 

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