verticaal zoeken

[djbartos]

Ik heb in blad 1 allemaal datums staan in kolom a!

Graag zou ik nu hebben wanneer de datum van vandaag overeenkomt met een datum in kolom a dat er dan een boodschap verschijnt op blad 2.

Ik ben namelijk een verjaardagskalender aan het maken!

Alle hulp is welkom!

 

[jzeedijk]

Hoi DJ,

Ook jij hier?

Niet zo'n moeilijke vraag:

op blad2:
=als(isfout(vergelijken(Datum;blad1!A:A;0));"";"mededeling:")

B5=ALS(en(A5<>"";GEHEEL(JAAR.DEEL(A5;Datum blad2))=JAAR.DEEL(A5;Datum blad2));RIJ();"")
door kopieren kalender.

Vervolgens op blad2:
A5= als(aantal.als(Blad1!B$5:B$999)<rijen(A$5:A5);"";kleinste(blad1!B$5:B$999;Rijen(A$5:A5))

Kopieer naar beneden en je hebt een lijstje van rijnummers van jarigen.

Jeroen

 

[Hooija]

zoiets bedoel je?

 

[djbartos]

Ja zoiets bedoelde ik ja!

Kun je dan ook via vba bijvoorbeeld hem doen inlezen wie er allemaal jarig is!


Bijvoorbeeld:

Er zijn ... jarigen vandaag!


Een gelukkige verjaardag geweenst aan:

....

....

En als er geen jarige is:

Er zijn geen jarigen vandaag!

 

[Hooija]

Het kan allemaal !

 

[Hoornvan]

Verticaalzoeken

Op deze site kun je een kant en klare verjaardagskalender vinden.
Deze werkt uitstekend en aan de maker heb ik gevraagt om een kleine aanpassing te doen voor mij.
de site is :http://home.planet.nl/~kees.oosterveld/Excel/Verjaardagskalender.html
succes

 

[djbartos]

Ik weet het,ben het bestand ook al eens tegengekomen!


Vooral de beveiliging vind ik prachtig!

Mooi bestandje zeker en vast, enkel kan je er niet véél uit leren doordat het goed beveiligd is (wat begrijpbaar is)!


Ik ga nog een beetje verder prutsen om aan een degelijke verjaardagskalender te komen!

Alle tips zijn welkom, als het bestandje af is zet ik het wel online!

 

[djbartos]

Geplaatst door Hooija
Het kan allemaal !

Ik ben aan het zoeken naar het volgende, als er één iemand jarig is zeg hij ook, er zijn 1 jarigen gevonden ipv "Er is één jarige gevonden"

Dus if else zou moeten aangepast worden,

Kan dat?

ps. waarom komen er op het einde van elke regel zo'n kotje te staan?

 

[Ingrid B]

Geplaatst door djbartos
Ik ben aan het zoeken naar het volgende, als er één iemand jarig is zeg hij ook, er zijn 1 jarigen gevonden ipv "Er is één jarige gevonden"

Vervang de laatste If-constructie door:

    If ZoekJarig = "0" Then
        ...
    ElseIf ZoekJarig = "1" Then
        ...
    Else

Geplaatst door djbartos
ps. waarom komen er op het einde van elke regel zo'n kotje te staan?

Vervang vbNewLine doorChr(10).