wie is er jarig in de maand....

[maaikelensink]

Ik kom er niet uit, krijg wel iets voor elkaar maar niet volledig kloppend.....
Zie mijn bijlage

alvast bedankt

 

[popipipo]

Ik hoop dat de data die in het bestand je staan fictief zijn zo niet dan zou ik deze maar heel snel verwijderen.

 

[OctaFish]

Dat lijkt mij simpel:

=ALS(MAAND(F4)=MAAND(VANDAAG());"Jarig!";"")

 

[popipipo]

Ik denk dat dit iets te eenvoudig is gedacht.
TS wil denk ik alle verjaardagen netjes onder elkaar zonder lege regels

Bekijk dit bestandje eens, alle gegevens zijn geanonimiseerd.

 

[huijb]

Bestand verwijderd i.v.m. privacy gevoelige info

 

[snb]

Waarom niet simpel het filter op geboortedatum gebruiken ?

En als je van macro's houdt:

Sub Macro1()
    [Table1].AutoFilter 4, 20 + Month(Date), 11
End Sub

Zie ook: https://www.snb-vba.eu/VBA_Autofilter.html#L_3.3.6

 

[peter59]

Hallo Popipipo

Deze vraag van mij heeft eigenlijk niets met excel te maken (of misschien toch) maar hoe heb je de gegevens zo snel geanonimiseerd?

 

[AlexCEL]

https://www.mockaroo.com/

Hier kan je in elk geval "fake" datasets maken...

 

[popipipo]

hoe heb je de gegevens zo snel geanonimiseerd

Uit bestandje van mijn persoonlijk archief
Ik weet niet meer van wie of waar dit kwam
Maar alsnog bedankt voor de maker van dit bestand.

Omdat het misschien wel handig is plaats ik hem hier ook.

 

[peter59]

Hallo Popipipo en AlexCEL

Dank voor jullie toelichting op mijn vraag.

 

[snb]

@Pet

Je zou de afzonderlijke kolommen ook random kunnen sorteren.

Sub M_snb()
   Application.ScreenUpdating = False
   
   With Sheet1.Cells(1).CurrentRegion
     .Offset(1, .Columns.Count + 3).Resize(.Rows.Count - 1, 1).Name = "snb"
     [snb].Offset(-1).Resize(1, 1).Name = "s_1"
     [snb] = "=rand()"

     For j = 1 To .Columns.Count
       If Not Cells(2, j).HasFormula Then
       [s_1] = Split(.Columns(j).Address, "$")(1)
       [snb].Offset(, 1) = ["=" & s_1 & index(rank(snb,snb),)+1]
       [snb].Offset(, j - [snb].Column) = [snb].Offset(, 1).Value
       End If
     Next
   End With
   
   [snb].Offset(-1).Resize([snb].Rows.Count + 1, 2).Clear
End Sub

Zie de bijlage

 

[emields]

of je kan het zo doen.

 

[maaikelensink]

Hoi Allemaal, ik heb idd gegevens allemaal door elkaar gehusseld dus het klopt niet.
dus die zorgen kunnen weg gehaald worden. ik wist niet van deze website, maar heel erg fijn. -> ik sla deze op https://www.mockaroo.com/

Ik ga even naar de gemaakte oplossingen kijken :thumb: alvast bedankt want ik zie veel reactie's

 

[maaikelensink]

Vraagje, als ik bovenstaande codes zou willen leren, wat adviseren jullie dan.
Ik heb al LOI excel professional gedaan en ook PHP, Mysql via de LOI (allemaal hobby matig) maar ik zou mijn kennis wel verder willen uitbreiden.
Ik vind het reuze interessant