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

Combobox voor opvragen reeds weggeschreven gegevens

Status
Niet open voor verdere reacties.

NadaNoppes

Nieuwe gebruiker
Lid geworden
14 jun 2016
Berichten
4
Hallo,

In bijgaand bestand staat een klachtenregistratieformulier waarbij in het ‘Klachtformulier’ de gegevens worden gezet en dmv opslaan klacht worden weggeschreven naar tabblad ‘Klachtenoverzicht’ en het formulier wordt geschoond. Tot zover gaat het goed, maar nu wil ik dmv een combobox de mogelijkheid hebben om via het klachtennummer de klacht weer op te vragen en eventueel de gegevens aan te passen en weer op te slaan.
Wie kan mij helpen om dit laatste werkend te krijgen?
 

Bijlagen

  • Concept klachtenregistratie.xlsm
    57 KB · Weergaven: 53
Zonder er al te diep op in te gaan doordat het vele malen voorbij komt, maar dan meestal voor een Userform, doet het toch aardig wat je voor ogen hebt.
De nodige aanpassingen om de checkboxes op 'true' te zetten zullen nog doorgevoerd moeten worden; ik heb me daar derhalve niet in verdiept.
 

Bijlagen

  • Concept klachtenregistratie.xlsb
    40,6 KB · Weergaven: 61
Hallo Harry,

Bedankt ik heb hem werkend gekregen!
Alleen snap ik niet als ik op tabblad Klachtenoverzicht alle gegevens weghaal dat de combobox niet meer werkt.
Haal ik alles weg behalve de bovenste regel dan werkt hij wel.
Wat doe ik verkeerd?

Gr.
NadaNoppes
 
Lijkt me vrij logisch, je doet niets verkeerd.
Je hebt namelijk een gedefinieerde naam voor de 'ListFillrange' gemaakt.
 
Ha duidelijk. Hopelijk de laatste vraag.
Hoe komt het dat bij het ophalen van de gegevens via de combobox de gegevens in de verkeerde velden worden gezet?

mvg
NadaNoppes
 
Dan moet je de code van de combobox-change aanpassen.
Code:
Range("B7") = c.Offset(lRegel, 0)
    Range("G7") = c.Offset(lRegel, 1)
    Range("B9") = c.Offset(lRegel, 2)
    Range("B10") = c.Offset(lRegel, 3)
    Range("B11") = c.Offset(lRegel, 4)
    Range("G9") = c.Offset(lRegel, 5)
    Range("G10") = c.Offset(lRegel, 6)
    Range("G11") = c.Offset(lRegel, 7)
    Range("B13") = c.Offset(lRegel, 8)
    Range("G13") = c.Offset(lRegel, 9)
    Range("B14") = c.Offset(lRegel, 10)
    Range("G14") = c.Offset(lRegel, 11)


Ik zou het geheel in een userform gieten.
Ik wil best helpen met problemen, maar het is niet aan mij om het hele bestand op de schop te nemen.
 
Ja dat ik weet waar je het aan moet passen.
Alleen wist ik niet precies hoe, maar daar ben ik nu achter gekomen.
Vervolgstap zou inderdaad een userform kunnen zijn, maar daar moet ik me nog in verdiepen hoe dat precies werkt.
In ieder geval bedankt voor je hulp zover.

mvg
NadaNoppes
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan