invoerformulier verdubbeld

[Boromir]

Hoi allemaal,

Ik hoop dat jullie me nog een keer willen helpen met mijn excel marteling.

Ik heb met VBA een invulformulier gemaakt.
Die haalt uit werkblad 2 zijn waardes op, daaruit kan de gebruiker kiezen en die waarde gaat naar het werkblad.

Dat gaat allemaal goed, echter als ik 1 x op de ok knop druk en de waardes zijn verzonden naar het werkblad.
Dan krijg ik mijn keuzes dubbel te zien, als ik weer het invulformulier opvraag.

Ik hoor 2 keuzes te hebben, en dan heb ik er ineens 4........ en dat moet niet!!!

Waar moet ik dit nu weer zoeken?

 

[Roncancio]

Het is nogal lastig zonder voorbeeld te bepalen wat er aan de hand is maar ik zal een poging wagen.

Gebruik je wellicht comboboxen in je userform ?
In dat geval denk ik dat je vergeten ben om Clear te gebruiken als je gegevens opvraagt.

Dus de foute manier:

with Combobox1
.Additem "A"
.Additem "B"
.Additem "C"
end with

Iedere keer dat je de gegevens inlaat, worden ze toegevoegd aan de combobox.
Je krijgt dus:


A
B
C
A
B
C
..
etc
Door Clear gebruiken begin je dus steeds met een schone lei (euh lijst).

With Combobox1
.Clear
.Additem "A"
.Additem "B"
.Additem "C"
End With

Zet anders een voorbeeld van het bestand of de code.

 

[Boromir]

Ik heb het op deze manier gedaan...

Private Sub UserForm_Activate()
Projectformulier.Productlijst.AddItem Range("Sheet2!A3")
Projectformulier.Productlijst.AddItem Range("Sheet2!A6")
Projectformulier.Productlijst.AddItem Range("Sheet2!A9")
Projectformulier.Productlijst.AddItem Range("Sheet2!A12")
Projectformulier.Productlijst.AddItem Range("Sheet2!A16")
Projectformulier.Productlijst.AddItem Range("Sheet2!A19")
Projectformulier.Productlijst.AddItem Range("Sheet2!A22")
Projectformulier.Productlijst.AddItem Range("Sheet2!A25")
Projectformulier.Productlijst.Text = _
Projectformulier.Productlijst.List(0)
Projectformulier.Projectlijst.AddItem Range("Sheet2!B3")
Projectformulier.Projectlijst.AddItem Range("Sheet2!B4")
Projectformulier.Projectlijst.Text = _
Projectformulier.Projectlijst.List(0)
Projectformulier.Oplagelijst.AddItem Range("Sheet2!C1")
Projectformulier.Oplagelijst.AddItem Range("Sheet2!D1")
Projectformulier.Oplagelijst.AddItem Range("Sheet2!E1")
Projectformulier.Oplagelijst.AddItem Range("Sheet2!F1")
Projectformulier.Oplagelijst.Text = _
Projectformulier.Oplagelijst.List(0)
End Sub

Ik heb nu voor iedere box, een .Clear erbij gezet.. en volgens mij is dat inderdaad de winnende oplossing!!!
(Raar dat ze dat in de voorbeelden in de grote Excel boeken trouwens niet vermelden...)

 

[Roncancio]

Dus toch.

Om terug te komen om mijn eerdere reactie:

Private Sub UserForm_Activate()
Projectformulier.Productlijst.Clear
Projectformulier.Productlijst.AddItem Range("Sheet2!A3")
Projectformulier.Productlijst.AddItem Range("Sheet2!A6")
Projectformulier.Productlijst.AddItem Range("Sheet2!A9")
Projectformulier.Productlijst.AddItem Range("Sheet2!A12")
Projectformulier.Productlijst.AddItem Range("Sheet2!A16")
Projectformulier.Productlijst.AddItem Range("Sheet2!A19")
Projectformulier.Productlijst.AddItem Range("Sheet2!A22")
Projectformulier.Productlijst.AddItem Range("Sheet2!A25")
Projectformulier.Productlijst.Text = _
Projectformulier.Productlijst.List(0)
Projectformulier.Projectlijst.AddItem Range("Sheet2!B3")
Projectformulier.Projectlijst.AddItem Range("Sheet2!B4")
Projectformulier.Projectlijst.Text = _
Projectformulier.Projectlijst.List(0)
Projectformulier.Oplagelijst.Clear
Projectformulier.Oplagelijst.AddItem Range("Sheet2!C1")
Projectformulier.Oplagelijst.AddItem Range("Sheet2!D1")
Projectformulier.Oplagelijst.AddItem Range("Sheet2!E1")
Projectformulier.Oplagelijst.AddItem Range("Sheet2!F1")
Projectformulier.Oplagelijst.Text = _
Projectformulier.Oplagelijst.List(0)
End Sub

Ik heb dus de Clear toegevoegd aan zowel de Projectlijst als Oplagelijst

 

[Boromir]

Ik heb het ook nog aan de projectlijst toegevoegd, en ik heb het probleem nu inderdaad niet meer.

Thank joe, Thank joe!!! :thumb: