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

Meerdere keuzerondjes

Status
Niet open voor verdere reacties.
L

libregts65

Gebruiker
Lid geworden
14 jun 2013
Berichten
43
Beste allemaal

Ok hem medere keuze rondjes

Ik heb de volgende code

Code: 
If obtnZakelijk.Value = Treu Then 
Selection.Offset(0, 3) = “Zakelijk”
Else 
selection.Offset(0, 3) = “Privé”
End If
Deze werkt perfect voor 2 meerkeuze rondje maar als ik er 5 heb wat wordt dan de code
 
Laatst bewerkt door een moderator:
Plaats eens een voorbeeldbestandje, dat werkt vaak het best.
 
Treu moet denk ik true zijn?
Of bedoel je Trouw?
 
Op een formulier?
In een werkblad?
Een formulier besturingselement?
Een activeX-besturingselement?

En lees je bericht nog eens door voor je op "Reactie plaatsen" drukt.
 
True

Door de iPad waar ik de code intikte is hij veranderd maar de code staat true
Code werkt ook als ik 2 selectie rondjes heb maar ik wil er meer en dan zit ik vast met de code
 
Of zo, met wat extra controles:
 

Bijlagen

Laatst bewerkt:
Ik weet niet wat nu precies de bedoeling is van jouw voorraadbeheersysteem, maar 16 keuzerondjes om uit 16 artikelsoorten te kiezen lijkt mij niet echt handig en onderhoudsvriendelijk, volgende week komt er een artikel bij, en wat dan?
Je kunt beter één combobox gebruiken die je kunt vullen met de waarden uit een tabel, zie bijlage.
Hetzelfde geldt natuurlijk ook voor artikelcode en artikelnaam.
P.S. vooraad -> voorraad
 

Bijlagen

Alles draait om de eenvoud

Dan wordt het ook nog eenvoudiger de aantalkeuze te beperken op basis van de voorraad.
 

Bijlagen

reszie -> Resize
Range -> Cells

Code: 
    Sheets("Invoer").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Array(code, soort, om, aantal)
 
Laatst bewerkt:
Vraag me toch af wat dit met voorraadbeheer te maken heeft.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan