Textvelden/keuzelijsten overbrengen naar sheet

[hoogteijling]

Hallo allemaal,

Voor de geoefende VBA-er is dit ongetwijfeld een eitje.

Ik wil de ingevulde waardes (Knop Project toevoegen) terug zien in het excelsheet.
Wanneer er i.p.v. Honorarium, Regie wordt aangevinkt moet er gewoon Regie in het sheet komen te staan.
Als ik maar een beetje op weg ben geholpen dan lukt het verder (hoop ik) wel.

De notatie van het projectnummer+revisiecode moet ik nog verder bekijken, alleen het eerste deel van het projectnummer is voorlopig voldoende.
De button Project verwijderen is ook van latere zorg.
De kolom Jaar is ook nog niet van toepassing.

Er zal idd ook een OK knop op het formulier geplaatst moeten worden.

Groeten Marcel
Bekijk bijlage Projectenboek.zip

 

[DZP]

Marcel,
Ik hoop dat je er iets aan heb.
Zie bijlage
Gr. Henk

 

[hoogteijling]

Fantastisch Henk,

Je hebt me een flink eind op weg geholpen zo
Ik ga hier mee verder.

Groeten Marcel

 

[hoogteijling]

Nog een vervolg vraag.
Ik zou graag willen dat de knop Project toevoegen pas enabled wordt wanneer de rood omkaderde velden ingevuld zijn.
Dat kan want ik heb een ander voorbeeldbestandje (Knop zichtbaar ovb) waar dat in gebeurd maar ik krijg de code niet geïntegreerd in mijn code.

Groeten Marcel
Bekijk bijlage Projectenboek.zip
Bekijk bijlage Knop zichtbaar ovb.xlsm

 

[Warme bakkertje]

Laat beide comboboxen leeg bij het openen v/h UForm.

Sub M_check()
    CommandButton3.Visible = TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox5.Text <> "" And TextBox6.Text <> "" And ComboBox11.Value <> "" And ComboBox13.Value <> ""
End Sub

Private Sub TextBox1_Change()
    M_check
End Sub

Private Sub TextBox2_Change()
    M_check
End Sub

Private Sub TextBox3_Change()
    M_check
End Sub

Private Sub TextBox5_Change()
    M_check
End Sub

Private Sub TextBox6_Change()
    M_check
End Sub

Private Sub ComboBox11_Change()
    M_check
End Sub

Private Sub ComboBox13_Change()
    M_check
End Sub

 

[DZP]

Hoi Marcel,
dit is ook een mogelijkheid.
Zie bijlage
Probeer je gegevens maar op te slaan!
Gr. Henk.

 

[hoogteijling]

Henk, bedankt voor je toevoeging, heel mooi en netjes hoor
Ik heb het nu echter gedaan zodat de OK knop pas zichtbaar wordt als alle verplichte velden zijn ingevuld.
Hier en daar wat verkregen codes gecombineerd en aangepast.

Het is nog niet klaar zoals het nu is maar ik ga er weer een nieuw topic over openen denk ik.
Het moet een beetje groeien zoals men dan zegt.

Groeten Marcel
Bekijk bijlage Projectenboek.zip

 

[DZP]

Oké,
En zoals Rudi al aangaf laat die twee comboboxen leeg door de Value in de eigenschappen te legen
Succes verder
Gr. Henk.

 

[hoogteijling]

Ik begrijp niet waarom ik ze leeg moet laten.
Ik heb opzettelijk de comboboxen gevuld gelaten omdat dat de startwaarden zijn voor ieder project.
En volgens mij werkt het toch 100% zo.
Kijk maar naar de bijlage in post#7

Groeten Marcel

 

[DZP]

I am sorry.
Verkeerd begrepen, maar goed bedoeld.:d:thumb:

Zet je hem dan nog wel even op Groen => opgelost!!