Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: Wie is er binnen 7 dagen jarig ?

  1. #1
    Senior Member
    Geregistreerd
    30 augustus 2010
    Vraag is opgelost

    Wie is er binnen 7 dagen jarig ?

    Geacht forum,
    Ik bezit een ledenlijst met ongeveer 130 leden
    Nu wil ik d.m.v. een macro , als ik die activeer , dat deze de ledenlijst afloopt en de gegevens van die leden welke
    binnen 7 dagen jarig worden kopieert en plakt in F5
    Kunt u dit voor mij realiseren?

    Zie de bijlage. (waarvan de namen en geboortedatums niet bij elkaar horen hoor)
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Is geen VBA voor nodig.
    Met een hulp in kolom M en formule in kolom F:
    Wie is er binnen 7 dagen jarig.xlsx
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Maak gebruik van een echte tabel dan heb je de voorwaardelijke opmaak helemaal niet nodig. Klik op de gele knop. Je kan de macro natuurlijk ook in Workbook_Open() zetten.
    Code:
    Sub VenA()
      ar = Sheets("Blad1").ListObjects(1).DataBodyRange
      ReDim ar1(UBound(ar) - 1)
      For j = 1 To UBound(ar)
        y = Date - DateValue(Year(Date) - ((Month(Date) = 1) * (Day(Date) < 7)) & "-" & Month(ar(j, 2)) & "-" & Day(ar(j, 2)))
          If (y > -8) * (y < 0) Then
          ar1(t) = ar(j, 1)
          t = t + 1
        End If
      Next j
      Sheets("Blad1").Cells(1, 6).Resize(UBound(ar)) = Application.Transpose(ar1)
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Code:
    y = Date - DateSerial(Year(Date), Month(ar(j, 2)), Day(ar(j, 2)))
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  5. #5
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    In opvolging van je vraag in:
    https://www.helpmij.nl/forum/showthr...-7-dagen-jarig

    PHP Code:
    1
    
    =ALS(EN(M1>0;M1<7);"Binnenkort jarig";ALS(M1=0;"Vandaag jarig";""))
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  6. #6
    Supermoderator
    Verenigingslid
    huijb's avatar
    Geregistreerd
    19 december 2001
    Vraag weer open. Andere dicht.
    Gegroet

  7. #7
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    bedankt Huijb.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Blijkbaar is een formule voldoende dus de code ga ik niet meer aanpassen.

    Als formule lijkt mij dit voldoende.
    PHP Code:
    1
    
    =EDATE(B2;(DATEDIF(B2;TODAY();"y")+1)*12)-TODAY()
    Zijn de mensen aan het begin en aan het eind van het jaar ook jarig.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  10. #10
    Senior Member
    Geregistreerd
    30 augustus 2010
    Ja, inderdaad!!
    Ik kon via het VBA ineens niet meer reageren vandaar overgestapt naar Exel

    Edmoor,
    Helemaal goed
    Dit is wat ik bedoelde
    Bedankt

    HSV en VenA ,
    OOk jullie beide bedankt voor de geboden oplossingen
    Ik heb ze bewaard
    Vriendelijke groet , Jaap


















    11

  11. #11
    Mega Honourable Senior Member
    Geregistreerd
    13 juni 2016
    Vind Birthday reminder nog steeds leuk.
    Zet deze onder > Opstarten en je hebt direct een overzicht binnen een ingestelde tijd (days to look ahead).

    Let op. Geen updates en ondersteuning meer, maar werkt nog altijd goed.
    Laatst aangepast door Senso : 4 september 2021 om 20:31
    Desktop computer; Windows 10 Pro 64-bits; Versie 21H1; Build 19043.1237;
    WFEP 120.2212.3530.0; Intel(R) Core(TM) i7 CPU 950 @ 3.07 Ghz; RAM 12,0 GB;
    Intel SSD 180 GB; Norton|Security; Office 2007 Home and Students; Windows Live Mail

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren