Heb enkele vraagjes om mijn userform nog beter te maken. 

In mijn invulformulier heb ik een keuzelijst "Hoofdoorzaak" als ik daar een item kies bv Niet Pickklaar wil ik ook dat dan de volgende keuzelijst verschijnt "Niet Pickklaar" Dus..  mijn userform mag dan de andere "Artikel beschadigd " "Pallet -Box fout" "Palleteiland" "Systeemfout" "ANDERE" en "Opmerkingen" niet laten zien.

Kies ik bij "Hoofdoorzaak" bv "Artikel beschadigd" moet keuzelijst "Artikel beschadigd" zichtbaar worden en de rest NIET.

Dan als ik bv in "Artikel beschadigd" een keuze heb gemaakt moet het veld "txtOpmerkingen" verschijnen.

Als ik in welke keuzelijst ook het woord ANDERE aan klik moet het keuzeveld "ANDERE, fout ontbreekt in de lijst" verschijnen.

Vraagjes:

Hoe kan ik de keuzerondjes van Shift 1 enz.. activeren, ipv de keuzelijst?
Hoe kan ik in "HU nummer" er voor zorgen dat je maar max 10 cijfers kan invullen?
Hoe kan ik er voor zorgen in de "Errors DATA" lijst dat de kolom "Locatie" alleen maar hoofdletters maakt, ook als de gebruiker kleine letters invult?

Heel erg bedankt alvast !

Hallo Jempje,

in bijlage code die ik lang geleden geschreven heb om een rekening te maken op een laptop, als kassa bedoeld.

De programmacode van het formulier "UF2RekeningMaken" maakt dat je trapsgewijs dat ongeveer bereikt wat jij wenst.

Die code zorgt voor een keuze in Combobox1, en aan de hand van die keuze wordt de inhoud van Combobox2 bepaald, en na de keuze in combobox 2 wordt opnieuw de mogelijke keuze in Combobox3 weergegeven, enzovoort....

Mogelijk heb je hier iets aan.

succes,

SoftAid              

Hallo,
Was al eens aan de slag gegaan met de codes van SoftAid, maar lukt niet echt. Moeilijk waar te plaatsen, kreeg al een eror melding.
Toch misschien wel ff zeggen dat ik deze file al tot stand heb gebracht met hulp van jullie uit het verleden.  Ik ken heel weinig of niets van Vba codes schrijven.  Ben ondertussen wel zover dat ik sommige dingen begrijp wat ze doen als ik ze lees, maar thats it. Vraag me bv niet wat doet End With enz...  Dus bij mij is het meestal copie past van codes wat vaak al heel aardig lukt, dat gezegd zijnde vind ik dat Molly wel gelijk heeft, keep it simple was ook mijn doelstelling maar dat lukte niet.  Om een lang verhaal kort te maken ff opnieuw beginnen misschien met alle respect voor de hulp uiteraard, SoftAid.

Mij lijkt het dan ook overzichtelijker in de excel sheet waar de gegevens uiteindelijk in terecht komen dat rechts naast de kolom "Hoofdoorzaak" maar 1 kolom staat met de afwijkingen (bv Niet pickklaar). Waarom ik deze wou apart houden is simpelweg de reden hiervoor om de gebruikr een niet te lange keuzeveld lijst voor te schotelen want dan vinden ze moeilijk de afwijking.

Dus... graag het volgende proberen aub.  Als ik dus in de hoofdoorzaak keuzelijst bv "Artikel beschadigd" aan klik zou ik dan graag alleen de items uit die kolom van de sheet dropdowns "Artikel beschadigd" willen zien in de keuzelijst "Afwijking". Kies ik uit de hoofdoorzaak keuzelijst "Niet Pickklaar" dan mogen alleen de items uit de kolom "Niet PICKKLAAR" te zien zijn in de keuzelijst "Afwijking. En zo verder ook nog vvor de andere 3 (Pallet Box fout, Palleteiland en Systeemfout). Is dit beetje duidelijk omschreven?

Kunnen jullie mij dit in de Kwaliteitsopvolging TEST, die ik heb toegevoegd opnieuw, aanpassen aub?

Hey,

Top gedaan, alweer een stap verder op weg naar gebruiksvriendelijk en ingave foutvrij bestand, merci tot daar.  Zoals je zei, liefst de vragen apart stellen en niet alles op een hoopje, tenzij het een superklein issue is uiteraard.

Wat betrefd de HU nummer, wil ik ook graag dat je deze altijd compleet invult en nooit letters typt.  Deze bestaat namelijk altijd uit 10 cijfers en nooit letters.  Dus wat moet ik dan aanpassen aan deze code?  Ook het artikelnummer, mag nooit letters bevatten en max 7 cijfers bevatten, kan ook 5 of 6 cijfers bevatten.     Sheets("Errors DATA").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 12).Value = Array((txtDatumUur), _
    txtDatum, cboNaamVoornaam, cboShift, cboZone, txtHU, UCase(txtLocatie), txtArtikelnummer, cboHoofdoorzaak, _
    cboAfwijking, txtAndere, txtOpmerkingen)
 in bijlage mijn laatste versie van het bestand

mbt je laatste vraag... Voeg dit blokje toe aan je Formulier Module...
Private Sub cboAfwijking_Change()
    txtAndere.Visible = UCase(cboAfwijking.Value) = "ANDERE"
End Sub
Daarmee verdwijnt het invoervoerveld netjes van het formulier als het Afwijkingveld een andere waarde dan "Andere" heeft.

Jempie, LOL... álles wat je weet is over het algemeen eenvoudig. 
Maar dit is een oplossing voor je vraag...
Private Sub txtHU_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If txtHU.TextLength <> 10 Then
        MsgBox "Het HU nummer moet exact 10 cijfers zijn", vbOKOnly, "Fout aantal cijfers..."
        Cancel = True
    End If
    On Error Resume Next
    If CLng(txtHU.Text) Then
        If Err.Number = 13 Then
        MsgBox "In het HU nummer mogen geen letters worden ingevoerd"
        Cancel = True
        End If
        On Error GoTo 0
    End If
End Sub


Ik had ook nog een paar ideetjes om het allemaal wat netter en gebruiksvriendelijker te maken, maar het stopt hier voor mij:
https://www.helpmij.nl/forum/showthread.php/967256-Userform-veld-verplicht-met-10-cijfer

En dat amper een paar uur nadat we, nota bene op zondagavond én aangaande een vraag met professionele doeleinden, al onder druk werden gezet met

Nog iemand een antwoord op de vraag om HU nummer veld verplicht met 10 cijfers in te vullen

Bovendien, het kan niet op, in een draadje waarin ook SoftAid al had gereageerd, en TS dus nogmaals de forumregels betreffende dubbelposten had kunnen zien.
Dus wat mij betreft driedubbele 

Beste Molly,

Dit was zeker niet mijn bedoeling, maar voor deze had ik de vraag gekregen het voorstel morgen te laten zien, vandaar dat het misschien leek als druk.  Ik dacht dat dit forum bedoelt was dat daar iedereen zijn voorstel kon posten.  Wist niet dat je elders de vraag dan nit mocht stellen.  Hoe meer ideeën hoe beter, toch?

Ik zal hier zeker in de toekomst op letten, nogmaals mijn exuses.

Dit neemt niet weg dat ik ontzttend blij ben met jullie hulp, hopelijk beseffen jullie dat.  Ik heb hier al meermaals in het verleden plezier van gehad.

Grtjs Jacky