wegschrijven van gegevens userform

[mdv63]

Hallo forumvrienden,

Ik ben een bestandje aan het maken wat mij op het werk een hoop werk zal sparen.

ik heb hier een bestandje met een userform bijgesloten welke al een stukje werkt.

Ik had graag nog een beetje ruggesteun ontvangen wat het wegschrijven van de gegevens betreft.
Deze dienen namelijk in verschillende cellen terecht te komen.

De commandbutton1 dient om deze weg te schrijven, alleen kom ik er echt niet uit.

Zouden jullie even willen zien en mij wat raad en daad willen geven aub?

Alvast bedankt.

Grts
Marc

http://www.mijnbestand.nl/Bestand-MWKJ7EY8APIB.xlsm

 

[Spiesse]

in je commandbutton zet je voor textboxen de volgende lijnen:

range ("c4")=textbox1.value

enzoverder voor elke textbox die je hebt

voor de comboboxen gebruik je combobox1.value

hiermee kan je al iets doen denk ik...

succes! spiesse

 

[mdv63]

Beste Spiesse,

so far so good!
Alleen dienen deze gegevens in blad calculatie te komen.
Enig idee hoe dit werkt??

Alvast bedankt
Grts
Marc

 

[Thankyou]

Sheets("Calculatie").range . . . . .

 

[Cobbe]

Zet deze code achter je button 'gegevens doorvoeren':

Private Sub CommandButton1_Click()
With Sheets("Calculatiesheet")
    .Range("C4") = TextBox1.Value
    .Range("F4") = TextBox2.Value
    .Range("M4") = TextBox3.Value
    .Range("H4") = TextBox4.Value
    .Range("C7") = ComboBox1.Value
    .Range("L7") = TextBox5.Value
    .Range("K15") = TextBox7.Value
    .Range("R15") = TextBox8.Value
    .Range("I7") = TextBox9.Value
 End With
    ' formulier leegmaken
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    ComboBox1 = ""
    TextBox5 = ""
    TextBox7 = ""
    TextBox8 = ""
    TextBox9 = ""
End Sub

 

[mdv63]

Beste Martin en Cobbe,

Bedankt voor de reactie...

Alle data wordt nu mooi weggeschreven naar de juiste cellen.
Volgende puntje is ....
de optionbuttons...
bij keuze J zou dit ook in de juiste cel dienen te komen.
is dit dan
Range("I13") = optionButton1.value? en hoe weet deze of dit ja of neen is???

Nogmaals bedankt voor de hulp al

grts
Marc

 

[Cobbe]

Zoiets zou wel werken:

    If OptionButton1 = True Then .Range("I13") = "JA"
    If OptionButton2 = True Then .Range("I13") = "NEEN"

Maar het kan niet goed werken met Optionbuttons, gebruik beter Checkboxen.
Want Optionbuttons sluiten bij aanvinken de andere optie's uit.

 

[mdv63]

[

Beste Cobbe,

Ok dit deel werkt ook al.....
zo zie ja maar dat een mens beetje bij beetje het wel leert op deze wijze.

Volgende probleempje dan maar ...

Private Sub UserForm_Initialize()
    s01 = Sheets("Wanden").Cells(1, 1).CurrentRegion
    s02 = Sheets("Wanden").Cells(1, 3).CurrentRegion
    ComboBox1.List = s01
    ComboBox2.List = s02
End Sub

Deze code gebruik ik om mijn comboboxen gevuld te krijgen.....
alleen werkt dit dus ook niet... ( tedju toch hé )
Bij de tweede combobox krijg ik hetzelfde als in combobox 1
enig idee???

Alvast bedankt
Grts
Marc

 

[huijb]

@mdv63 Onnodige quotes verwijderd. Wanneer je direct reageert op een reactie is het niet nodig om dat bericht te quoten. Onnodig quoten heet dat, hetgeen niet gewenst is. Bovendien dien je codes tussen de codetags te plaatsen.

 

[Cobbe]

    s01 = Sheets("Wanden").Cells(1, 1).CurrentRegion
    s02 = Sheets("Wanden").Cells(1, 3).CurrentRegion

Geef de bereiken een (dynamische) naam en gebruik die in je formulier.

 

[mdv63]

@huijb - > mijn excuses!

Cobbe
bedoel je dan zoiets als "omschrijving" voor CB1 en "soort" voor CB2?

 

[Cobbe]

Ja de naamgeving is vrij en de definiëring gebeurt in de tab namen_beheer.

voorbeeld:

Omschrijving =INDIRECT("Wanden!$T$5:$T$" & AANTALARG(Wanden!$T:$T)+1)

 

[mdv63]

Beste Cobbe,

De definitie is gemaakt maar... voel je hem komen

Waar zet ik dit en hoe verwijs ik deze naar de CBxen?

Als ik deze nu intyp dan krijg in een compileerfout " ongeldig teken " met verwijzing naar $

Nog zin in hulp te verlenen

grts
Marc

 

[Cobbe]

Geef eens het bereik dat in comb1 en wat in comb2 moet komen.

 

[mdv63]

Beste Cobbe,

Bereik voor CB1 = B5/B505
Bereik voor CB2 = AX5/AX10
Deze staan op blad " wanden "

Alvast bedankt
grts
Marc

 

[Cobbe]

Kijk eens of je dit verderhelpt.

http://www.mijnbestand.nl/Bestand-XD8S8NLGEDUV.xlsm

 

[mdv63]

Beste Cobbe,


Dit is de melding die ik krijg als ik op doorvoeren druk

 

[Warme bakkertje]

Private Sub UserForm_Initialize()
    With Sheets("Wanden")
        s01 = .Range("B5:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
        s02 = .Range("AX5:AX" & .Cells(Rows.Count, 50).End(xlUp).Row)
    End With
    ComboBox1.List = s01
    ComboBox2.List = s02
End Sub

Wat is de bedoeling van onderstaande regels, want zij zorgen voor de foutmelding ?

ComboBox2 = .[D7]
ComboBox2 = .[H15]

 

[Cobbe]

Sorry voor de misser had het niet meer echt getest.

Heb de nodige aanpassingen gedaan maar je moet wel nog de locaties aanpassen waar de gegevens moeten weggeschreven worden, want ze kloppen niet allemaal.

http://www.mijnbestand.nl/Bestand-WV8LIGGYIVQ4.xlsm

 

[mdv63]

Hey de Rudi,
Lang geleden... alles ok met jou? Leuk je nog eens te horen.

Beste Cobbe,
Werkt perfect nu. ( @ Rudi ook jou oplossing werkt.)

Nu nog een vraagje en dan denk ik dat het ok zal zijn
Ik had graag wanneer op de knop doorvoeren wordt geklikt deze het blad opslaat als wat is ingevuld in post. bvb post 11.11.11 dan zou deze bij doorvoeren een blad dienen aan te maken met de naam
11.11.11

is dit mogelijk?

Nu nogmaals mijn grote dank voor de gegeven oplossingen al vind ik super !!!!

Grts
Marc