Fout in userform.

[Avalondra]

ik heb een userform gemaakt en die dient dan van 10 tekst vakjes de ingevulde data op tabblad 2 neer te schrijven op de eerst volgende lege regel.
ik kan het userform oproepen maar als ik dan die macro wil laten draaienn gebeurt er niks.


Heeft iemand misschien een oplossing???


Ik heb een bestand bijgevoegd.


Greetz AvA

 

[danny147]

Beste Avalondra

Had hier ook nog een bestandje zitten.
Misschien brengt dit je op de goede weg.
Het overbodige doe je dan maar weg hé

Groetjes Dannny. :thumb:

 

[Avalondra]

sorry maar ik zie dat jij via een compleet andere manier werkt.

ik heb het gedaan zoals eht op deze site staat: http://www.contextures.com/xlUserForm01.html ik zie dus niet echt wat ik dan fout gedaan heb omdat het een andere werkwijze

dus als je misschien een oplossing hebt voor deze manier want ik ken alleen deze en die van u (sorry dat ik het zeg) snap ik eigenlijk niet echt veel van.

toch bedankt.


Greetz AvA

 

[Roncancio]

Je hebt een Private Sub Voeg_Toe gebruikt om de code te plaatsen.
Dat kan maar wanneer moet de code worden uitgevoerd? Als de knop Voeg_Toe wordt ingedrukt.
Wat er mis gaat is dat je in de knop Voeg_Toe geen code hebt gezet.

Dus:

Private Sub Voeg_Toe
...

...
End Sub

Private Sub cmdVoeg_toe_Click()
...
End Sub


Je kunt het op 2 manieren oplossen.
1. Je zet de code van [B]Private Sub Voeg_Toe[/B] bij [B]Private Sub cmdVoeg_toe_Click()[/B]

Dus:

Private Sub cmdVoeg_toe_Click()
...
[code]
...
End Sub

2. Je verwijst bij [B]Private Sub cmdVoeg_toe_Click()[/B] naar [B]Private Sub Voeg_Toe[/B].

dus:

Private Sub Voeg_Toe
...
[code]
...
End Sub

Private Sub cmdVoeg_toe_Click()
Voeg_Toe
End Sub

Overigens kan de code nog wat korter en wordt alle gegevens in de D-kolom geplaatst.
Dus dat klopt ook nog niet helemaal.

Met vriendelijke groet,


Roncancio

 

[snb]

Kijk ook eens naar dit alternatief.

 

[danny147]

Beste Avalondra

Zie uw aangepast bestandje.

Groetjes Danny. :thumb:

 

[Avalondra]

Het werkt nu ik had inderdaad de macro in het foute gedeelte geschreven.

@ Roncancio het is de bedoeling dat gegevens naast elkaar staan en niet in alleen kolom D (ik weet niet of dat is wat je bedoelt) maar dat is dan dus niet wat de bedoeling was.
verder iedereen bedankt voor de hulp.

alleen Roncancio als ik het fout heb wil je dan aub wat meer uitleg verschaffen???

Alvast bedankt


Greetz AvA

 

[Roncancio]

Je hebt het niet zozeer fout maar ik zal even uitleggen wat ik bedoel.
In je code staat onder meer:

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtnaam.Value
ws.Cells(iRow, 2).Value = Me.txtadres.Value
ws.Cells(iRow, 3).Value = Me.txtpostcode.Value
ws.Cells(iRow, 4).Value = Me.txtwoonplaats.Value
ws.Cells(iRow, 4).Value = Me.txtland.Value
ws.Cells(iRow, 4).Value = Me.txtbtw.Value
ws.Cells(iRow, 4).Value = Me.txttel.Value
ws.Cells(iRow, 4).Value = Me.txtfax.Value
ws.Cells(iRow, 4).Value = Me.txtgsm.Value
ws.Cells(iRow, 4).Value = Me.txtcontactpersoon.Value

De waarde in Cells(iRow,4) wordt steeds overschreven.
Dus eerst staat er de inhoud van txtwoonplaats, vervolgens wordt dat overschreven door txtland, daarna door txtbtw, enz. In plaats van dat de gegevens in de kolommen ernaast wordt neergezet.
Overigens kan je ipv 4 voor kolom D ook "D" gebruiken of Range("D"...

Voorbeeld:

ws.Cells(iRow, 1).Value = Me.txtnaam.Value

Kan ook zo:

ws.Cells(iRow, "A").Value = Me.txtnaam.Value

óf:

ws.Range("A" & iRow).Value = Me.txtnaam.Value




Met vriendelijke groet,


Roncancio

 

[Avalondra]

dat heb ik inderdaad daar staan maar alle 4en na de eerste moeten telkens oplopen.

dus 5.6.7.8.9.10 moesten daar styaan ik had die fout ook al gezien.



Greetz AvA

ps.dus jij had het goed maar het was mijn fout dus mijn excuses.

 

[Avalondra]

ik zal dus volgende keer beter uitkijken dat ik dan de meest recente versie op het forum post.


Greetz AvA