woorden toevoegen in een lijst

[schuurar]

Bekijk bijlage schuurar_Userform.xlsm

Met behulp van "warm bakkertje" heb ik mijn bestand bijna zo goed als klaar.
Nu zou ik nog een ding graag willen als dat kan.

In een userform worden gegevens ingevuld.
Nu komen er grondstoffen uit het blad "data" kolom E
Deze worden automatisch aan gevuld als je de eerste letters tikt.
Zou het nu ook kunnen dat als er een woord niet in die lijst staat en je klaar bent met het woord typen deze dan automatische in de lijst erbij gezet word? Dus in "data"kolom E ??

 

[HSV]

Zet dit stukkie code (boven de rode coderegel) in commandbutton1_click.

With Sheets("data")
    For i = 3 To 29 Step 2
        If .Columns(5).Find(Me("combobox" & i), , xlValues, xlWhole) Is Nothing Then
          .Cells(Rows.Count, 5).End(xlUp).Offset(1) = Me("combobox" & i)
        End If
      Next i
   End With
    
[COLOR=#ff0000]For Each ctl In Me.Controls[/COLOR]

Maak de laatste lege cellen van kolom E even echt leeg (wat er in staat weet ik niet).

 

[schuurar]

Top!!
Dit werkt perfect !!!

Super bedankt.