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

Formulier opbouw

Status
Niet open voor verdere reacties.

Eddy v

Gebruiker
Lid geworden
3 mrt 2003
Berichten
103
Hallo Allemaal,

Ik ben nog maar een beginnende gebruiker van excel.
En nu wil ik al meteen moeilijke dingen gaan doen.

Ik wil een formulier gaan maken waar onderdelen op vermeld staan.
Deze hebben een nummer 1 t/m 39 en een naam.
Op dat formulier wil ik graag deze onderdelen (met nummers in nummerieke volgorden) onder elkaar hebben staan. En dat ik dan kan selecteren per onderdelen.
Daarna op een READY / KLAAR button drukken en dat dan de geselecteerde onderdelen onder elkaar op een werkblad in een bestel forumulier te staan.

Ik hoop dat het een beetje duidelijk is en dan iemand mijn op weg kan helpen.

Het formulier maken lukt mij wel onder VBE.
Maar de besturing wordt wat moeilijk...

ik hoop op een mooie reactie.

Met vriendelijke groet,

Eddy Verheijen
 
Private Sub CommandButton1_Click()
With Sheets("Blad1")
.Range("A1").Value = TextBox1.Value
.Range("A2").Value = TextBox2.Value

enz.
End With
End Sub

Succes

Luc
 
Hallo Luc,

Bedankt daar wordt ik al een stuk wijzer van.
Uhh nog een vraagje
Kan ik de cel aanwijzing in het commande Range ook
variable maken??

Dus dat ik dat laat afhangen van een variable??
bv de variable jaartal of teller of zo??
Dat je zo iets krijg van
.Range("A teller").Value= Textbox2.value??

Gr Eddy..
 
Mm het valt nog niet mee voor mij..

Ik ben wel wat wijzer geworden op de pagina van luc.


Ik probeer nu dus

For x = 1 To 49
If CheckBox1 = True Then
.Cells(x, 1).Value = "55465"
.Range("I26").Value = "55GA5601"
.Range("R26").Value = "1x"
.Range("U26").Value = TextBox1.Value

Else: .Range("C26").Value = ""
.Range("I26").Value = ""
.Range("R26").Value = ""
.Range("U26").Value = ""
End If
Exit For
Next x

Maar ik had dus graag. dat hij
ging kijken of checkbox 1 t/m 49 true of false was
en als hij true is dat hij textbox X bijbehoorden bij checkbox X dan onder elkaar in een kolom zet.

maar ik krijg de variable niet aan de checkbox gekoppeld en niet aan de cell verzwijzing.
 
Pffff....
Het gaat me net iets te ver om je dat ook nog uit te leggen.
Terwijl je elke checkbox afzonderlijk kan kontroleren, en afhankelijk van z'n waarde, iets in cellen wil zetten, wil je ook je checkbox nog 's in een variabele zetten, en doorlopen met een lus.

De eenvoudigste code is... in de code uw tekstboxen per naam te vermelden.

Iets moeilijker (Maar het is nog te doen voor mensen met een matige VBA kennis), is geen gebruik meer maken van Checkboxes, maar van een Listbox.
Deze moet je dan instellen zodat je meerdere items kan aanvinken... en je geeft dit het uitzicht van checkboxes. Wordt weinig toegepast, omdat de mensen deze mogelijkheid zelfs niet vermoeden.

Nog iets moeilijker (en ik raad het al af, vermits we al over de vorige mogelijkheid beschikken), is doorheen uw Checkboxes lopen via Controls (Ik zou het effe moeten opzoeken)

En als je dan toch het moeilijkste wil... Zet uw checkboxes in classes, en geef die classes de nodige events. (Lastig... lastig... lastig)

Luc
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan