zoeken naar de waarden ingegeven in een combo box

[bn007]

ik ben een excel document aan het aanmaken voor eenvoudig beheer van een magazijn.
in A staan al de verschillende soorten materiaal in C de aantallen in voorraad (B is verborgen hierin komen optioneel serienummers,ordernummers)
ik heb een form aangemaakt waarbij je via een combobox de materialen kan aanduiden die in het magazijn zitten. graag wil ik via deze combobox ook nieuwe materialen inchecken als er geleverd wordt. dit door het materiaal in te typen in de combobox te zoeken of dit materiaal al bestaat in A zo niet in de eerst volgende lege cel het materiaal in te vullen.

zelf ben ik niet verder gekomen dan de code



alvast hartelijk bedankt

 

[edmoor]

Dat plaatje is, naast dat het zeer slecht te lezen is, van geen enkele waarde hier. Je kan beter een voorbeeld document plaatsen.

 

[bn007]

Bekijk bijlage Magazijn-3.xlsm

hier is een test file (de code is vrij on georganiseerd doordat dit een test is)

 

[VenA]

Niet geheel uitgewerkt maar mogelijk bedoel je zoiets.

 

[HSV]

De initialize code.

Private Sub UserForm_Initialize()
 comMateriaal.List = Sheets("Magazijn ben").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Value
End Sub

Het is een combobox, dus daar kan je ook in typen.
Als het materiaal niet bestaat wordt het bijgeschreven en de combobox weer bijgewerkt.

If IsError(Application.Match(comMateriaal, Columns(1), 0)) Then
  Cells(Rows.Count, 1).End(xlUp).Offset(1) = comMateriaal
 comMateriaal.List = Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Value
End If