SjonR
Verenigingslid
- Lid geworden
- 10 nov 2016
- Berichten
- 3.279
Geachte Helpers,
Ik gebruik onderstaande code voor het opzoeken van gegevens om daar vervolgens de ingevoerde textboxen aan toe te voegen.
Nu komt het nummer uit CB1 soms meerdere keren voor op de lijst. Ik dacht dit probleem te ondervangen door meerdere kolommen in mijn combobox te zetten, maar hij blijft de eerste regel met de waarde uit CB1 overschrijven.
Kan ik deze zoekactie combineren met bijvoorbeeld de waarde in LB2? Dit is een textbox en daar zal een bedrag in staan van € 0 tot € 100.000.
Ik dank u bij voorbaat.
Gr.
Sjon
Ik gebruik onderstaande code voor het opzoeken van gegevens om daar vervolgens de ingevoerde textboxen aan toe te voegen.
Code:
Private Sub CommandButton2_Click()
Dim findvalue As Range
Application.ScreenUpdating = False
Set findvalue = Blad1.Range("C:C"). _
Find(What:=Me.CB1.Value, LookIn:=xlValues, LookAt:=xlWhole)
findvalue = CB1.Value
findvalue.Offset(0, 10) = ListBox1.Value
findvalue.Offset(0, 11) = L1.Value
findvalue.Offset(0, 12) = L2.Value
findvalue.Offset(0, 13) = L3.Value
findvalue.Offset(0, 14) = L4.Value
findvalue.Offset(0, 15) = L5.Value
findvalue.Offset(0, 16) = L6.Value
findvalue.Offset(0, 17) = L7.Value
Unload Me
UserForm1.Show
End Sub
Nu komt het nummer uit CB1 soms meerdere keren voor op de lijst. Ik dacht dit probleem te ondervangen door meerdere kolommen in mijn combobox te zetten, maar hij blijft de eerste regel met de waarde uit CB1 overschrijven.
Kan ik deze zoekactie combineren met bijvoorbeeld de waarde in LB2? Dit is een textbox en daar zal een bedrag in staan van € 0 tot € 100.000.
Ik dank u bij voorbaat.
Gr.
Sjon