91
Excel / Re: vba code aanpassen
« Laatste bericht door lco Gepost op 14 maart 2024, 13:42:43 »Aan de helpers,
in bijlage het aangepaste werkboek.,tot nu toe
mvg,Lco
in bijlage het aangepaste werkboek.,tot nu toe
mvg,Lco
=LET(st;Blad2!A2:D321;y;WEGLATEN(REDUCE("";FILTER(st;ISGETAL(VIND.SPEC(J2;st)));LAMBDA(a;b;VERT.STAPELEN(a;LET(z;NAAR.RIJ(ALS((st=b)*(Blad2!J2:U321="ja");Blad2!J1:U1;NB());2);HOR.STAPELEN(b;ALS(ISFOUT(z);"";z))))));1);ALS.FOUT(FILTER(y;INDEX(y;;2)<>"");""))
Ik gebruik de Outlook App voor mijn mail te behandelen.Outlook App op pc/laptop of op Smartphone ?
Wordt wel wat complexer. Zie bijlage.Code: [Selecteer]=LET(st;Blad2!A2:A9;y;DROP(REDUCE("";FILTER(st;ISNUMBER(SEARCH(B2;st)));LAMBDA(a;b;VSTACK(a;LET(z;TOROW(IF((st=b)*(Blad2!B2:F9="ja");Blad2!B1:F1;NA());2);HSTACK(b;IF(ISERROR(z);"";z))))));1);IFERROR(FILTER(y;INDEX(y;;2)<>"");""))
=LET(st;Blad2!A2:A9;y;DROP(REDUCE("";FILTER(st;ISNUMBER(SEARCH(B2;st)));LAMBDA(a;b;VSTACK(a;LET(z;TOROW(IF((st=b)*(Blad2!B2:F9="ja");Blad2!B1:F1;NA());2);HSTACK(b;IF(ISERROR(z);"";z))))));1);IFERROR(FILTER(y;INDEX(y;;2)<>"");""))