Probleem met Combobox

[basbergie]

Goedemorgen,

Ik heb een apart probleem met een combobox, Deze wordt namelijk niet automatisch aangevuld. Bij eigenschappen staat hij al op FMMatchEntryComplete maar dit lijkt niet te helpen. Als ik op de combobox klik krijg ik wel gewoon alle keuzes te zien. Andere Comboboxen werken bij mij wel. Ook heb ik hem al opnieuw toegevoegd zonder resultaat.

Hebben jullie enig idee wat dit zou kunnen zijn?

Met vriendelijke groet,
Bas

 

[basbergie]

Dit zijn trouwens de 2 codes die ik gebruik:

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets(2).Range("A2", Sheets(2).Cells(3, 6).End(xlDown)).Value
ListBox1.List = Sheets(2).Range("A2", Sheets(2).Cells(3, 6).End(xlDown)).Value
End Sub

Private Sub Combobox1_Click()
With ComboBox1
TextBox3.Value = .Column(4)
TextBox4.Value = .Column(2)
End With
End Sub

 

[AD1957]

Geen idee wat je nou precies bedoeld.
Dus maar weer een voorbeeldbestand met een iets duidelijkere vraagstelling.
p.s. Hoe zit het trouwens met je vorige vraag? https://www.helpmij.nl/forum/showthread.php/960606-Messagebox-wanneer-Combobox-waarde-matcht

 

[basbergie]

Ik ga weer even kijken of ik alle data uit dit bestand kan halen.
Maar normaal gesproken als ik begin te typen in een combobox dan wordt de tekst automatisch aangevuld.
Wat betreft mijn vorige vraag deze kan ik pas toepassen als ik dit probleem heb opgelost. Deze 2 vragen hebben namelijk betrekking op dezelfde combobox.

 

[basbergie]

Bij deze het bestand. het gaat om de combobox (artikelnummer) bij de knop afboeken
Zoals je bij de knop Opmerking afboeken toevoegen kan zien werkt de combobox wel.

Wat ik precies wil bereiken: Ik wil het artikelnummer invullen. Als ik deze hebt ingetoets moet hij meteen het factuurnummer invullen en vervolgens ook het model. Aan de hand van het model kan ik vervolgens de opmerking van sheet2 met een melding laten verschijnen.
Helaas wordt dit niet meteen bijgewerkt. Als je op de combobox klikt en dan gewoon een random nummer aanklikt wordt alles wel meteen bijgewerkt.

 

[AD1957]

Ik ben me niet helemaal zeker, maar voor zover ik kan achterhalen werkt het alleen maar met letters en niet met cijfers.
Anders maar even wachten op de specialisten.

 

[basbergie]

Ik heb het net getest door de combobox op een andere kolom te zetten en inderdaad met letters werkt het wel.
Iemand tips hoe ik dit dan wel aan kan pakken
Is er misschien een manier zodra ik op de knop invullen druk dat hij dan eerst kijkt welk model er bij het artikkelnummer hoort zodat ik hier vervolgens op kan zoeken en een melding over kan geven
zie mijn vraag: https://www.helpmij.nl/forum/showthread.php/960606-Messagebox-wanneer-Combobox-waarde-matcht

 

[snb]

In plaats van:

Private Sub UserForm_Initialize()
  ComboBox1.List = Sheets(2).Range("A2", Sheets(2).Cells(3, 6).End(xlDown)).Value
  ListBox1.List = Sheets(2).Range("A2", Sheets(2).Cells(3, 6).End(xlDown)).Value
End Sub

Private Sub UserForm_Initialize()
   ComboBox1.List = Sheets(2).cells(1).currentregion.resize(,6).value
   ListBox1.List = Combobox1.List
End Sub

 

[basbergie]

Dat heeft helaas niet geholpen. Als je op de knop Opmerking voor afboeken drukt en daar plak je de tekst :Apple Macbook pro 2016 dan laat hij meteen bij opmerkingen bij het afboeken test1 zien. Dit wil ik eigenlijk ook bij de knop afboeken hebben. Zodra je bij artikelnummer bijvoorbeeld 4354 invult dat hij dan meteen bij factuurnummer test laat zien en bij de textbox onder vernieuwen T520 FLEXIBLE SERIES TC. Dit werkt wel als je op de combobox een random artikelnummer aanklikt maar niet als je het zelf intypt.

Nou heeft dit dus blijkbaar te maken dat het cijfers zijn en geen letters maar is er misschien een workaround?

 

[snb]

Waarom staan dezelfde gegevens 3 keer in het Userform: combobox, Listbox en textboxen.
Dat lijkt me 2 maal teveel.

 

[basbergie]

Die listbox is bedoeld zodat je terug kan kijken welke producten er zijn afgeboekt. En die combobox en textboxen zijn bedoeld om de producten daadwerkelijk af te boeken.

 

[AD1957]

Probeer het eens zo ipv combobox een textbox.
Begin te tikken in de textbox en Listbox wordt gefilterd.
Klick in listbox op juiste artikel.

p.s. rest van de code heb ik maar niets mee gedaan.

 

[snb]

Die listbox is bedoeld zodat je terug kan kijken welke producten er zijn afgeboekt. En die combobox en textboxen zijn bedoeld om de producten daadwerkelijk af te boeken.

In de Listbox kun je ieder item markeren en vervolgens daarop een aktie laten uitvoeren: combobox en tekstvakken overbodig.

 

[basbergie]

Allereerst super bedankt voor de hulp en het meedenken. Maar ik denk dat jullie mij verkeerd begrijpen. ik zal proberen uit te leggen hoe wij nu werken, mocht het nog onduidelijk zijn laat het even weten:

Op al onze producten zit een barcode met een uniek artikelnummer. Ook op al onze facturen zit een barcode met een uniek factuurnummer. Wij willen graag weten welk product bij welk factuur hoort zodat als een klant belt over een product wij precies weten welk product hij of zij in huis hebt. Daarom scannen wij nu de barcode van het product in het veld: artikelnummer en vervolgens scannen wij de barcode van de factuur. Dit doen wij op het moment van inpakken (wij zijn een webshop). Dit systeem werkte eigenlijk al zonder problemen.(Zie bijlage)

Nou willen wij graag een extra functie erin hebben en hierbij loop ik tegen wat problemen aan.
Bij sommige producten willen wij een melding in het scherm laten verschijnen bijvoorbeeld: Let op bij dit product hoort een 120watt adapter. Zodat we tijdens het inpakken daar nog even aan worden herinnerd.
En hier komt dus het lastige want in plaats van dat hij nu alleen een paar regeltjes tekst moet wegschijven op Sheet1 met een datum erbij. Moet hij ook weten welk product er precies aan het artikelnummer is gekoppeld. Dit product opzoeken in Sheet 2 en vervolgens de opmerking laten zien die op colomn b staat.

Die listbox die je rechts ziet mag je eigenlijk helemaal negeren. dat is meer voor onszelf dat we tijdens het afboeken kunnen zien wat wij bijvoorbeeld een uur geleden hebben afgeboekt. Wij willen dit bestand namelijk zoveel mogelijk zonder toetsenbord en muis kunnen besturen.

Dus kort samengevat:

Wij scannen het artikelnummer, vervolgens scannen wij het factuurnummer.
Aan de hand van het artikelnummer checkt hij op sheet 1 welk model erbij hoort. Aan de hand van dit model checkt hij op Sheet 2 welke opmerking erbij hoort.

Staat er een opmerking bij dan moet hij een melding geven die je weg moet klikken. Na het wegklikken moet hij het factuurnummer + datum en tijd wegschrijven op Sheet1 bij het juiste artikelnummer
Staat er geen opmerking bij dan moet hij hem meteen met het factuurnummer + datum en tijd wegschrijven op Sheet1 bij het juiste artikelnummer

Voel je uiteraard niet verplicht om mij te helpen alleen als je het leuk vind om te doen.

 

[VenA]

Je hebt nog niet gereageerd op de vraag in #3. Gebruik geen Application.Quit in voorbeeldbestanden. Gebruik ook geen timers als je niet weet hoe je deze correct moet afsluiten.

 

[AD1957]

Als ik de hele topic nog eens doorlees kom ik voor mezelf maar tot 1 conclusie.
Ik begrijp er gene ene sikkepit meer van.

 

[basbergie]

Hier had ik al op gereageerd in #4.
Alle timers zal ik er inderdaad even uit halen mijn excuses hiervoor

@ad1957 Dat kan ik me goed voorstellen. Na nog even goed op internet te hebben gezocht kwam ik wel het volgende tegen:


The Combobox will autocomplete numbers also, if they are stored in Cells of a Range, that is the RowSource of the Combobox.

Try:

comboxPartNumber.RowSource = "Part_Number"


Dit heb ik getest op mijn eigen excel en dit werkt. Nu wordt ook de rest van de textboxen aangevuld en denk ik dat ik een heel eind kan komen met die melding.

Zodra ik dit allemaal werkend heb zal ik jou code van mijn andere topic testen en hierop reageren.

Allemaal heel erg bedankt voor de hulp

 

[HSV]

Tot 10 kolommen breed zal RowSource wel werken, gelieve List gebruiken.