Como hago para que Excel me avise cuando se cumpla una fecha

Hola, Rob !

... en una columna ... nombre y apellido ... en otra fecha de ingreso
... en otra ... que me saque un aviso que se cumplio un determinado tiempo, ejemplo 6 meses.
... que ... se ejecute solo cada vez que ... abra el libro ... un sonido o ... un cartel [...]

las siguientes lineas de codigo [como 'ejemplo'] le ponen [o quitan] color al rango_fila 'suponiendo' que...
1.- la fila 1 contiene los titulos ['A1'= nombre y apellidos + 'B1' = fecha de ingreso + 'C1' = tiempo 'transcurrido']
2.- el listado inicia en la fila 2 [con la fechas a 'evaluar' en la columna 'B']
3.- puse el 'parametro' EN DIAS [6 meses de 30 dias = 180]
[por si quieres 'estar al pendiente'] =>modifica los dias a tu mejor conveniencia<4.- si necesitas contar con 'precision' los seis meses [mismo dia 6 meses 'despues']...
seria necesario usar otro 'tipo de evaluacion' :(( ¿comentas?
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
Dim Celda As Range, Limite As Integer, Total As Long
Application.ScreenUpdating = False
Limite = 180
With Worksheets("Hoja1")
For Each Celda In Range(.Range("b2"), .Range("b65536").End(xlUp))
With .Range(Celda.Offset(, -1), Celda.Offset(, 1))
If Date - Celda >= Limite Then
Celda.Offset(, 1) = Date - Celda & " días"
With .Font: .Bold = True: .ColorIndex = 3: End With
With .Interior: .ColorIndex = 2: .Pattern = xlGray50: .PatternColorIndex = 19: End With
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
Total = Total + 1
Else
Celda.Offset(, 1).ClearContents
With .Font: .Bold = False: .ColorIndex = xlColorIndexAutomatic: End With
With .Interior: .ColorIndex = xlColorIndexNone: .Pattern = xlPatternNone: End With
.Borders(xlLeft).LineStyle = xlLineStyleNone
.Borders(xlTop).LineStyle = xlLineStyleNone
.Borders(xlRight).LineStyle = xlLineStyleNone
.Borders(xlBottom).LineStyle = xlLineStyleNone
End If
End With
Next
End With
If Total > 0 Then MsgBox "Existen " & Total & " ingresos >= a " & Limite & " días."
End Sub

Saludos,
Héctor.

Buenos días Héctor Miguel:

Rob se me adelanto en la pregunta, que es casi idéntica a mi pregunta, mi
problema es que soy novel en el uso del Excel, y me pierdo con facilidad, no
se como introducir el modulo que comentas, ¿me podrías decirme como?, si no
es mucha molestia, entiendo que podría abusar aun mas de tus conocimientos y
pedirte que adjuntaras un archivo hecho, pero creo que es mejor aquello en
enseñar a pescar..

Gracias por anticipadas

Algo más sencillo es que utilizen el formato condicional, de tal forma que
puedan formatear la celda con un color distinto (letra, fondo de celda,
etc) para cada vez que se cumpla una condición
Aeoris wrote:

Buenos días Héctor Miguel:

Rob se me adelanto en la pregunta, que es casi idéntica a mi pregunta, mi
problema es que soy novel en el uso del Excel, y me pierdo con facilidad, no
se como introducir el modulo que comentas, ¿me podrías decirme como?, si no
es mucha molestia, entiendo que podría abusar aun mas de tus conocimientos y
pedirte que adjuntaras un archivo hecho, pero creo que es mejor aquello en
enseñar a pescar..

Gracias por anticipadas

Mensaje enviado desde http://grupos.buscadoc.org

¿que tal, chicos?

1.- con respecto de 'como' poner el codigo en el modulo 'ThisWorkbook' ...
a) una vez en excel, abres el editor de vba => herramientas / macro / editor de cv [o 'atajo' = {Ctrl}+{F11}]
b) en el 'explorador' de proyectos ['similar' al de windows] => doble-click en el objeto ThisWorkbook
c) en el modulo de codigo del objeto copias las lineas del 'ejemplo'
d) la siguiente vez que se abra el archivo, se ejecutara el 'evento' Workbook_Open
==> si no te quieres 'esperar' hasta entonces... situa el cursor 'dentro' de la macro y presiona {F5} <=
2.- con respecto al comentario de marcelo...
coincido totalmente con lo utiles que son los formatos condicionales :))
=> revisa el 'hilo' de la consulta que hizo JLG con 'asunto' de: 'como se hace esto en excel? (fechas)' en nov-16 < resulta 'impresionante' la cantidad de cosas [y usos] que se pueden 'lograr' con los formatos condicionales
si requieres ayuda adicional [y proporcionas la informacion 'necesaria'], con seguridad, 'algo mas' surgira :))

saludos,
Héctor.

Muy amables, gracias ;-))

"Héctor Miguel" ha escrit en el missatge
dels grups de discussió:%

¿que tal, chicos?

1.- con respecto de 'como' poner el codigo en el modulo 'ThisWorkbook' ...
a) una vez en excel, abres el editor de vba => herramientas / macro /

editor de cv [o 'atajo' = {Ctrl}+{F11}]

b) en el 'explorador' de proyectos ['similar' al de windows] =>

doble-click en el objeto ThisWorkbook

c) en el modulo de codigo del objeto copias las lineas del 'ejemplo'
d) la siguiente vez que se abra el archivo, se ejecutara el 'evento'

Workbook_Open

==> si no te quieres 'esperar' hasta entonces... situa el cursor

'dentro' de la macro y presiona {F5} <=>

2.- con respecto al comentario de marcelo...
coincido totalmente con lo utiles que son los formatos condicionales

:))

=> revisa el 'hilo' de la consulta que hizo JLG con 'asunto' de:

'como se hace esto en excel? (fechas)' en nov-16 <> resulta 'impresionante' la cantidad de cosas [y usos] que se pueden
'lograr' con los formatos condicionales

si requieres ayuda adicional [y proporcionas la informacion

'necesaria'], con seguridad, 'algo mas' surgira :))

saludos,
Héctor.