• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Driedubbele zoekroutine??? vert. en hor. door elkaar??

Status
Niet open voor verdere reacties.

Silkin

Gebruiker
Lid geworden
17 sep 2017
Berichten
20
Heb als bijlage een xls met een "data" blad en "TWD" blad.

Wil graag op simpele manier het volgende in het TWD blad , vanuit het Data blad:


Rij 2 in !TWD! blad is eerste criteria (in !data! blad kolom A "mootcode")
Kolom 1 in !TWD! blad "datum" is ook criteria, deze datum moet vallen tussen kolom D "Begindatum" en kolom E "Einddatum" in het !data! blad.

Als aan beide voorwaarde is voldaan moet in deze cel uit kolom B "activiteitencode" van het !data! blad de tekst worden geplaatst.

Wie kan mij helpen?? Het moet er in het !TWD! blad zoiets uit komen te zien:
Dank, Bert

Startdatum
1-jan.-18 19.10-PA 19.10-PB 19.10-PC 19.10-1 19.10-2 19.10-3 19.10-4 19.10-5
1-jan.-18 BEM
2-jan.-18 BEM BEM
3-jan.-18 BEM BEM
4-jan.-18 BEM BEM
5-jan.-18 BEM SL
6-jan.-18 BEM SL
7-jan.-18 SL
8-jan.-18 V-0 SL
9-jan.-18 V-0 SL
10-jan.-18 SL
11-jan.-18 SL WV
12-jan.-18 SL WV V-0
13-jan.-18 SL V-0
14-jan.-18
15-jan.-18 V-0
16-jan.-18 V-0
 

Bijlagen

  • TW.xlsx
    376,5 KB · Weergaven: 33
In de tab 'DATA' staan geen gegevens van januari 2018. Voorbeeldbestanden hoeven geen complete dataset te bevatten.

Code:
=IFERROR(INDEX(DATA!$B$2:$B$2500;SUMPRODUCT((DATA!$A$2:$A$2500=B$1)*($A2>=INT(DATA!$D$2:$D$2500))*($A2<=INT(DATA!$E$2:$E$2500))*ROW($A$2:$A$2500))-1);"")

Zie 'Sheet1'.
 

Bijlagen

  • TW.xlsx
    391,5 KB · Weergaven: 29
met vba vult hij de hele tabel in.

let op op sommigen plekken in de tabel staan meerdere "activiteitencode's"

wel effe checke he.
 

Bijlagen

  • TW 2.xlsm
    416,9 KB · Weergaven: 43
Sylvester, bedankt man, maar ik krijg een melding van een compileerfout???

Sylvester,

Echt puik man!!! Hoe het werkt heb ik geen idee, maar ik sta versteld!!

Wel krijg ik een fout melding; ik heb de screenshot bijgevoegd.

En nog een kleinigheidje voor een leek als ikke:

Als ik nu de data-tabel wijzig of update, moet ik dan de macro handmatig starten, ik heb wel eens een knop aangemaakt zodat ik de macro kon laten runnen, kan dat hier ook???

Echt bedankt man!
 

Bijlagen

  • Schermafbeelding 2018-08-18 om 19.52.35.pdf
    1,9 MB · Weergaven: 24
En een simpele formule zoals in #2 volstaat niet?
 
Silkin, gewoon opnieuw downloaden je hebt op de een of andere manier een regel uit het programma verwijderd.

je kan de DATA gewoon wijzigen. probeer maar uit.

als je wilt dat in blad "TWD" alleen de gebruikte datums staan en in rij 2 alle gebruikte "mootcode's" vanzelf komen dan moet ik het programma wat aanpassen.

VenA, met jouw formule komt altijd maar 1 "activiteitencode" in een cel.
af en toe zijn er meerdere.
 
Laatst bewerkt:
toch nog fout melding?

Sylvester nogmaals dank

ik stuurde per ongeluk de verkeerde foutmelding: bij deze de goede als bijlage de schermafbeelding.

Hij zegt dat dit niet snor zit.....

With CreateObject("scripting.dictionary")


Toch,
Echt ik sta verbaasd dat dit zomaar lukt, echt heel mooi
 

Bijlagen

  • Schermafbeelding 2018-08-18 om 21.47.22a.pdf
    1,4 MB · Weergaven: 23
kan iemand anders de code uit post 3 testen? (ik gebruik excel 2010) op een gewone pc (dus geen Mac)
bij mij werkt het prima
 
Laatst bewerkt:
is Mac, kan dat t zijn?

Sylvester ik was vergeten dat ik op Mac werk...
Is dat nog belangrijk?
 
een Mac is een mooi ding, maar een dictionary in excel kent hij niet.

misschien is er iemand in de buurt met een "echte pc" :)
 
Laatst bewerkt:
@Sylvester op excel 2013 werkt de code niet
Code:
temp = .Item(DATA(R, 1) & k)
deze blijft leeg
 
De code werkt naar mijn idee goed.
 
kijk eens of deze wel werkt op een mac

ook effe controleren of het wel klopt.
 

Bijlagen

  • TW 3.xlsm
    432,5 KB · Weergaven: 32
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan