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

kruisjeslijst een documentenlijst genereren

Status
Niet open voor verdere reacties.
T

thorry

Gebruiker
Lid geworden
14 nov 2008
Berichten
40
Hallo,

ik heb een excelbestand waarbij ik in het tabblad voorbeeld een kruisjeslijst heb.
In het overzicht heb ik een aantal systemen onder elkaar en daarnaast kolommen met document types.
Nou probeer ik met een kruisjes overzicht achter elke systeem een documentlijst te genereren.
Ik heb alleen geen idee hoe ik dat zou kunnen oppakken of doen?

Wie kan mij hierbij helpen, in tabblad lijst staat hoe het moet worden aan de hand van de ingevuld kruisjes.
al vast bedankt
 

Bijlagen

  • Kruisjeslijst.xlsx
    14 KB · Weergaven: 23
Dat kan gewoon met een formule

Code: 
=IF(SUMPRODUCT((Lijst!$A$2:$A$19=$A3)*(Lijst!$B$2:$B$19=$B3)*(Lijst!$C$2:$C$19=C$1));"x";"")
 
Het moet net andersom, niet vanuit de documentenlijst een kruisjeslijst maken ?

als ik de kruisjes plaatst en zou dan op de button drukken [Lijst Genereren] zou ik graag in tabblad "Lijst" het overzicht willen zien wat ik met de kruisjes heb aangevinkt.
Echter weet ik niet hoe ik dat moet doen?
 
Dan doen we het andersom:)

Code: 
Sub VenA()
  ar = Sheets("Voorbeeld").Cells(1).CurrentRegion
  ReDim ar1(2, 0)
  For j = 3 To UBound(ar)
    For jj = 3 To UBound(ar, 2)
      If ar(j, jj) = "x" Then
        ar1(0, t) = ar(j, 1)
        ar1(1, t) = ar(j, 2)
        ar1(2, t) = ar(1, jj)
        t = t + 1
        ReDim Preserve ar1(2, t)
      End If
    Next jj
  Next j
  Sheets("Lijst").Cells(1).CurrentRegion.Offset(1).ClearContents
  Sheets("Lijst").Cells(2, 1).Resize(t, 3) = Application.Transpose(ar1)
End Sub
 
Super dat werkt perfect ja idd dank je wel voor de snelle reactie en de hulp.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan