Wie is er binnen 7 dagen jarig ?

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
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)
 

Bijlagen

  • Wie is er binnen 7 dagen jarig.xlsx
    11,2 KB · Weergaven: 18
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
 

Bijlagen

  • Wie is er binnen 7 dagen jarig.xlsb
    16,6 KB · Weergaven: 33
Code: 
y = Date - DateSerial(Year(Date), Month(ar(j, 2)), Day(ar(j, 2)))
 
Vraag weer open. Andere dicht.
 
:thumb: bedankt Huijb.
 
Blijkbaar is een formule voldoende dus de code ga ik niet meer aanpassen.

Als formule lijkt mij dit voldoende.
PHP: 
=EDATE(B2;(DATEDIF(B2;TODAY();"y")+1)*12)-TODAY()
Zijn de mensen aan het begin en aan het eind van het jaar ook jarig.
 

Bijlagen

  • Wie is er binnen 7 dagen jarig (2).xlsx
    12,3 KB · Weergaven: 15
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
 
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 bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan