• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Combobox in userform

Status
Niet open voor verdere reacties.

tomkruizinga

Gebruiker
Lid geworden
7 dec 2018
Berichten
21


Hallo,

In mijn vorige vraag heb ik geen bestand kunnen opsturen.
Dit is dus dezelfde vraag maar dan in een andere opzet.
Zodra er in de combobox (in bestand combobox2 een artikelnummer wordt uitgezocht werkt de formule ( 2x tekstboxen "textbox3+4" tekst geven die in een ander tabblad staan) naar behoren.
Nu is het probleem dat het zo'n 1000 regels zijn, ofwel ik wil het artikelnummer kunnen typen, maar zodra ik dat doe geeft hij niet de juiste informatie.
Kan iemand mij hierbij helpen?
Code:
Private Sub ComboBox2_Change()
TextBox4 = Sheets("lijst1").Cells(ComboBox2.ListIndex + 2, 2)
TextBox3 = Sheets("lijst1").Cells(ComboBox2.ListIndex + 2, 3)
End Sub

Alvast bedankt,
Met vriendelijke groet;
Tom Kruizinga
 

Bijlagen

  • oefenen_besturingselementen_bijna_goed (5).xlsm
    420,9 KB · Weergaven: 55
Laatst bewerkt door een moderator:
Waarom de gegevens in het blad opzoeken als ze al in de combobox staan?

Code:
Private Sub ComboBox2_Change()
  TextBox4 = ComboBox2.Column(1)
  TextBox3 = ComboBox2.Column(2)
End Sub
 
Hoi, VenA

Ik krijg nu de volgende foutmelding:
Fout381 tijdens uitvoering.
kan de eigenschap colomn niet verkrijgen.
Ongeldige index voor eigenschapmatrix.

?

Moet ik nog iets aanpassen..
 
Code:
Private Sub ComboBox2_Change()
  if combobox2.listindex>-1 then
    TextBox4 = ComboBox2.Column(1)
    TextBox3 = ComboBox2.Column(2)
 end if
End Sub
 
Is dit de bedoeling?
 

Bijlagen

  • oefenen_besturingselementen_bijna_goed (2).xlsb
    375,6 KB · Weergaven: 45
Laatst bewerkt:
Hoi, JACK NOUWS
Bijna:) krijg nu alleen een foutmelding bij het toevoegen van de gegevens nl:

Code:
Private Sub tvg_Click()

  If Trim(Me.TextBox4.Value) = "" Then
    Me.TextBox4.SetFocus
    MsgBox "Gegevens invullen"
  Exit Sub
  End If
 
  arr = Array(ComboBox2.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, ComboBox1.Value, CDate(TextBox5), ComboBox3.Value, CDate(TextBox6))

  Sheets("Overvoorraad lijst").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 8) = arr
    
  MsgBox "Gegevens zijn verwerkt", vbOKOnly + vbInformation, "Gegevens zijn verwerkt"
 
End Sub
De functie van de combobox werkt nu wel zoals ik hem graag wil hebben dankjewel
En is het ook mogelijk om na het toevoegen de tekstboxen weer leeg te maken, zodat ik een hele reeds kan doen?

Groet Tom
 
Laatst bewerkt:
Ik denk dat je het leeg maken zelf wel had kunnen bedenken.
Vergeet ook niet je vragen als opgelost te zetten, als je tevreden ben.
Kijk of het zo goed is.
 

Bijlagen

  • Oefenen_besturingselementen_bijna_goed (2)-1.xlsb
    374,5 KB · Weergaven: 33
Laatst bewerkt:
textboxen leeg, kalender verbergen en focus verzet
 

Bijlagen

  • Oefenen_besturingselementen_bijna_goed (2)-1.xlsm
    419,1 KB · Weergaven: 27
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan