Met Userform nieuwe data toevoegen

[marcel31281]

Beste Forumleden,

Graag zou ik door midddel van een userform nieuwe gegevens aan mijn blad toevoegen, hij moet weggeschreven worden onder aan de laatste regel

Userform maken is geen probleem, maar ik weet niet meer hoe ik de code maak dat hij de gegevens plaatst

Alvast bedankt,

 

[Jack Nouws]

Bedoel je zo?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]  Blad2.ListObjects(1).ListRows.Add.Range.Resize(, 8) = Array("0", CDate(Date), , , , TextBox1.Value, TextBox2.Value, TextBox3.Value)
[/FONT]

 

[mvdvlist]

Simpel formulier

Misschien een opzetje? Bekijk de code...

 

[marcel31281]

@ Jack: Bedankt, ik het geprobeerd maar krijg direct een foutmelding (ongeldig, buiten procedure)

@mvdvlist: bedankt, maar dit maakt het voor mij niet duidelijker ik zou hier echt eens goed voor moeten gaan zitten om te ontcijferen

 

[Jack Nouws]

Ik ondervind geen problemen

 

[marcel31281]

bedankt, het werkt nu wel en zie nu ook wat ik fout head gedaan

Hoe kan ik de userform automatisch laten afsluiten zodra ik op "toevoegen"heb gedrukt?

 

[Jack Nouws]

Met dit stukje code Sluit je het userform

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]  Unload Me
[/FONT]

Het beste is dat je een extra knop in het userform maakt met daar achter de code.

 

[mvdvlist]

Simpel

Simpeler kan niet. Ging iets te hard...Zie bijlage

 

[marcel31281]

Bedankt,

Echter botst er nu van alles in mijn werkblad en weet niet wat er fout gaat.

Bij toevoegn via Userform krijg ik een foutmelding.

En hoe kan ik meerdere opdrachten bij Worksheet Change krijgen, ik heb ze nu onder elkaar staan, maar begrijp niet hoe ik hier 1 werkende code meekrijg

Alvast bedankt

 

[Jack Nouws]

Loopt dit beter?

 

[marcel31281]

Super bedankt!!! :thumb::thumb:, nu kan ik weer verder met knutselen

Nog 1 vraag, bij toeveoegn via de userform, word direct de datum ingevuld... is er een manier om dit aan te passen dat hij dit veld ook leeg laat

 

[marcel31281]

Iemand nog een antwoord op bovenstaande

Alvast bedankt

 

[Jack Nouws]

Haal er

CDate(Date) tussen uit​

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]    .ListRows.Add.Range.Resize(, 8) = Array("0", [COLOR=#ff0000]CDate(Date)[/COLOR], , , , TextBox1.Value, TextBox2.Value, TextBox3.Value)
[/FONT]

 

[VenA]

Dan laat je het toch weg?

.ListRows.Add.Range.Resize(, 8) = Array("0", , , , , TextBox1.Value, TextBox2.Value, TextBox3.Value)

 

[marcel31281]

bedankt