waarschuwing bepaalde leeftijd bereikt

[William1979]

Ik heb meerdere soortgelijke vragen gevonden, maar niet een die exact het juiste antwoord geeft.

Mijn vraag is: Hoe kan ik in Excel een melding krijgen wanneer iemand de leeftijd 21, 22, of 23 heeft bereikt? De melding moet weergegeven worden vanaf 7 dagen voor de verjaardag tot en met de verjaardag en daarna weer verdwijnen.

Ik heb geen idee hoe ik hier een voorbeeld kan plaatsen, dus ik hoop dat ik voldoende info heb gegeven.

Uiteraard heb ik de geboortedatum als gegeven.

Al vast bedankt.

 

[robdgr]

Volgens mij zo, maar er zijn vast meer wegen naar Rome.

 

[William1979]

Dag Rob,

Precies wat ik zocht, dus bedankt voor zo ver.

Echter een probleem, als ik de formule kopieer naar mijn eigen bestand (en de verwijzingen naar cellen aan pas aan mijn document), dan krijg ik #naam? in beeld. Heb je hier ook nog een oplossing voor?

Bedankt voor de hulp.

 

[robdgr]

Engelstalige Excel? Dan Today(). Is de datum wel een getal?

 

[William1979]

Het is gelukt, ik moest de celeigenschappen van geboortedatum nog op aangepast zetten.

Nogmaals bedankt.

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost (in de balk net bovenaan je eerste vraag).

 

[William1979]

Beste Rob (of iemand anders),

Ik kom er nu achter dat het nog niet helemaal werkt zoals het moet. De melding is nu namelijk zichtbaar 7 dagen voor de verjaardag (zoals het hoort), maar ook tot een jaar - 7 dagen na de verjaardag. De melding moet verdwijnen direct na de verjaardag.

Ik hoop dat er iemand uit komt om dit aan te passen.

Rudi, ik zal dit onderwerp sluiten wanneer ik antwoord heb op bovenstaande

 

[robdgr]

Een tweede als toegevoegd:

=ALS(DATUM(JAAR(VANDAAG());MAAND($A2);DAG($A2)>VANDAAG());"";ALS(EN((VANDAAG()-7-$A2)/365,25<B$1;(VANDAAG()-7-$A2)/365,25>B$1-1);"x";""))

Test je hem zelf even of plaats anders eens een bestandje met data.

 

[William1979]

Beste Rob,

Hierbij een deel van het bestand zoals ik het uiteindelijk moet hebben.

Dit had ik eerder kunnen doen, maar aangezien ik hier niet bekend ben, wist ik niet eens hoe ik dat moest doen :s

Het gaat om de cellen I, J en K (2 en 3).

Ik hoor het graag.

 

[robdgr]

Ik heb hem eenvoudiger gemaakt.

 

[William1979]

Nu klopt ie precies.

Bedankt voor de moeite.

 

[William1979]

Beste Rob,

Na het in gebruik nemen van de rapportage zie ik toch een "fout".

Het is nu zo dat de melding verschijnt, ook meer dan 7 dagen na de verjaardag. Daarnaast is het zo dat wanneer iemand bijna jarig is, de melding staat bij de leeftijd van dat moment en niet de leeftijd die de persoon gaat worden.

Wat mij het beste lijkt is een aanpassing te maken. Wat ik graag zou willen is: Een melding wanneer iemand binnen nu en 7 dagen jarig is. Het mooiste zou zijn dat de melding de leeftijd weergeeft van hoe oud iemand GAAT worden.

Ik maak het niet makkeljik

Ik hoop dat je mij hier mee kunt helpen.

Groeten William.

 

[robdgr]

Formule aangepast op nieuwe kolom:

=ALS(EN(VANDAAG()-DATUM(JAAR(VANDAAG());MAAND($B2);DAG($B2))<=7;DATUMVERSCHIL($B2;VANDAAG();"y")=I$1-1);DATUMVERSCHIL($B2;VANDAAG();"y")+1;"")

Die langere zichtbaarheid snap ik niet: zou niet mogen met het eerste deel van de formule.

 

[sylvester-ponte]

hallo William
misschien mag het ook met VBA :Bekijk bijlage leeftijden (2.xlsm
dit is de code

Function BijnaEnJarig(GbDat)
    Dim Vandaag As Date, VerJaardagDitJaar As Date, Verschil As Long, Leeftijd As Long
    BijnaEnJarig = ""
    If GbDat <= 0 Then Exit Function
    Vandaag = Date
    VerJaardagDitJaar = DateSerial(Year(Vandaag), Month(GbDat), Day(GbDat))
    Verschil = VerJaardagDitJaar - Vandaag
    Leeftijd = Year(Vandaag) - Year(GbDat) - (Verschil >= 0)
'nu is leeftijd bekend
'en verschil is aantaldagen voor de verjaardag
'je kunt deze functie zelf aan passen zodat hij alleen reageert bij 21, 22 en 23
'nu reageert hij nog bij elke leeftijd

    If Verschil <= 7 And Verschil > 1 Then
        BijnaEnJarig = "over " & Verschil & " Dagen ben je  " & Leeftijd
    ElseIf Verschil = 1 Then
        BijnaEnJarig = "over " & Verschil & " Dag ben je  " & Leeftijd
    ElseIf Verschil = 0 Then
        BijnaEnJarig = "Hoera " & Leeftijd
    End If
End Function

groet sylvester

 

[William1979]

Voorgaande formule is wat makkelijker en de "fout" dat de melding blijft, ook na de verjaardag, die is er uit.

Is het mogeljik om aan deze formule toe te voegen dat de melding alleen verschijnt bij de leeftijden 21, 22 en 23?

Ik hoor het graag.

 

[robdgr]

Is niet nodig, want hij staat in kolommen met die leeftijden op rij 1.

 

[sylvester-ponte]

zo iets? Bekijk bijlage leeftijden (3.xlsm

Function BijnaEnJarig(GbDat)
    Dim Vandaag As Date, VerJaardagDitJaar As Date, Verschil As Long, Leeftijd As Long
    BijnaEnJarig = ""
    If GbDat <= 0 Then Exit Function
    Vandaag = Date
    VerJaardagDitJaar = DateSerial(Year(Vandaag), Month(GbDat), Day(GbDat))
    Verschil = VerJaardagDitJaar - Vandaag
    Leeftijd = Year(Vandaag) - Year(GbDat) - (Verschil >= 0)
'nu is leeftijd bekend
'en verschil is aantaldagen voor de verjaardag
'je kunt deze functie zelf aan passen zodat hij alleen reageert bij 21, 22 en 23
'nu reageert hij nog alleen op leeftijden van 21,22 en 23 jaar
    If Leeftijd < 21 Or Leeftijd > 23 Then Exit Function
    If Verschil <= 7 And Verschil > 1 Then
        BijnaEnJarig = "over " & Verschil & " Dagen ben je  " & Leeftijd
    ElseIf Verschil = 1 Then
        BijnaEnJarig = "over " & Verschil & " Dag ben je  " & Leeftijd
    ElseIf Verschil = 0 Then
        BijnaEnJarig = "Hoera " & Leeftijd
    End If
End Function

 

[William1979]

Bovenstaande is wat ik zoek. In dit geval hoef ik ook niet de drie kolommen met leeftijden aan te houden, maar heb ik 1 kolom voor de leeftijdswaarschuwing.

Zou je mij kunnen vertellen hoe ik dit nu in mijn bestand kan krijgen?

Al vast bedankt.

 

[robdgr]

Je hebt zelf met je voorbeeld de toon gezet met drie leeftijden. Dank. De formulr is aan te passen maar ga maar verder met vba

 

[sylvester-ponte]

William, ik heb de functie een beetje aangepast inverband met het herberekenen

en zo komt hij in jouw bestand: Bekijk bijlage leeftijden (4.xls
groet sylvester

Function BijnaEnJarig(GbDat, Vandaag)
    Dim VerJaardagDitJaar As Date, Verschil As Long, Leeftijd As Long
    BijnaEnJarig = ""
    If GbDat <= 0 Then Exit Function
    VerJaardagDitJaar = DateSerial(Year(Vandaag), Month(GbDat), Day(GbDat))
    Verschil = VerJaardagDitJaar - Vandaag
    Leeftijd = Year(Vandaag) - Year(GbDat) - (Verschil >= 0)
'nu is leeftijd bekend
'en verschil is aantaldagen voor de verjaardag
'nu reageert hij nog op leeftijden van 21,22 en 23 jaar
    If Leeftijd < 21 Or Leeftijd > 23 Then Exit Function
    If Verschil <= 7 And Verschil > 1 Then
        BijnaEnJarig = "over " & Verschil & " Dagen ben je  " & Leeftijd
    ElseIf Verschil = 1 Then
        BijnaEnJarig = "over " & Verschil & " Dag ben je  " & Leeftijd
    ElseIf Verschil = 0 Then
        BijnaEnJarig = "Hoera " & Leeftijd
    End If
End Function