• 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.

Lijst invullen voor meerdere pools obv 1 invulveld

Status
Niet open voor verdere reacties.
R

Roshan

Gebruiker
Lid geworden
5 jan 2018
Berichten
30
Beste Allen,

ik kon geen goede omschrijving vinden over wat ik wil bereiken.

als volgt:
in tab 1 zijn er 4 kolommen waarbij een kenmerk, omschrijving en prijs kunnen worden ingevuld.

Op tab 2 staat een lijst van pools die gekoppeld moeten worden met de artikelen.
op de output tab moet er per kenmerk een aparte rij worden gemaakt met een koppeling per pool.

in het excelbestand die ik heb toegevoegd is er in de output tab te zien hoe de weergave zou moeten zijn o.b.v. de gegevens van tab 1 en 2.

Hoe kan ik voor elkaar krijgen dat dit automatisch gebeurd voor alles wat er wordt ingevuld op tab 1 (ongeacht hoeveel rijen er in tab 1 worden ingevuld)?

alvast bedankt! :thumb:
 

Bijlagen

  • testbestand.xlsx
    9,9 KB · Weergaven: 39
hier een beginnetje: zie grijze cellen
 

Bijlagen

  • testbestand (1.xlsx
    11 KB · Weergaven: 42
Een andere aanpak, want ik weet niet of je altijd een opeenvolgende nummering hebt. In het Engels, maar te vertalen via de link in mijn handtekening ...
Code: 
A2: =OFFSET('1'!$A$1;INT((ROW()+1)/COUNTA('2'!$A$1:$A$100));0)
B2: =OFFSET('1'!$B$1;INT((ROW()+1)/COUNTA('2'!$A$1:$A$100));0)
C2: =IF(A2=0;0;OFFSET('2'!$A$1;MOD((ROW()-2);3);0))
D2: =OFFSET('1'!$C$1;INT((ROW()+1)/COUNTA('2'!$A$1:$A$100));0)

En dan doortrekken naar beneden.

Als je die nullen wilt vermijden dan moet je hier een lus omheen zetten a la:
Code: 
=IF(COUNTA('1'!$A$2:$A$101)*COUNTA('2'!$A$1:$A$100)>=ROW()-1;"<formule>";"")
 
Peter, je schrijft: "Een andere aanpak, want ik weet niet of je altijd een opeenvolgende nummering hebt"
maar ,ik gebruik helemaal geen nummering
probeer maar eens in de bron( ik gloof blad 1) van het kenmerk een naam te zetten ipv een nummer.
 
Of een macro in de module van het blad 'output'.

Code: 
Private Sub Worksheet_Activate()
  ar = Sheets("1").Cells(1).CurrentRegion
  ar1 = Sheets("2").Cells(1).CurrentRegion
  ReDim ar2((UBound(ar) - 1) * UBound(ar1), 3)
    For j = 2 To UBound(ar)
      For jj = 1 To UBound(ar1)
        ar2(t, 0) = ar(j, 1)
        ar2(t, 1) = ar(j, 2)
        ar2(t, 2) = ar1(jj, 1)
        ar2(t, 3) = ar(j, 3)
        t = t + 1
      Next jj
    Next j
    Cells(2, 1).Resize(UBound(ar2), UBound(ar2, 2) + 1) = ar2
End Sub
 
Te simpel?
Code: 
Cells(2, 1).Resize(t, 4) = ar2
 
Bedankt voor de reacties, ik ga de opties even uitproberen en kijken wat het handigste is in mijn situatie.

de eerste kolom is niet altijd opeenvolgend qua nummering, dus even kijken wat handig is :) Ik houd jullie op de hoogte! voor zover alvast bedankt voor de hulp!:thumb:
 
Negeer mijn opmerking Roshan. De oplossing van sylvester-ponte werkt perfect, ook bij letters of niet opeenvolgende nummering.

My bad. Excuses voor de eventuele verwarring :eek:
 
De opties werken allemaal zoals ik ze nodig heb :D het makkelijkste (in dit geval) is de Macro van VenA.

Thanks allen :D
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan