Bijwerken

[wally1968]

Bekijk bijlage Bijwerken.xls

Hallo iedereen

Ik heb een bestandje gemaakt waarin een userform met een combobox in staat
Nu is het de bedoeling dat ik een naam kan kiezen in die combobox en een aantal invul.
Dat ik op de knop invoegen klik dat dan achter de naam die ik gekozen heb heet aantal wordt vermeerderd met het aantal dat ik ingevuld heb.
Ik hoop dat het een beetje duidelijk is

 

[HSV]

Wally,

In Userformmodule:

Private Sub invoegen_Click()
  With Sheets("Blad1").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    Set c = .Find(naam, , xlValues, xlWhole)
     c.Offset(, 1) = c.Offset(, 1) + CInt(aantal)
   End With
End Sub

Private Sub UserForm_Initialize()
 For nm = 2 To Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Row
  Me.naam.AddItem Cells(nm, 1)
 Next
End Sub

 

[wally1968]

Hartelijk bedankt het werkt prima