getal invoer voorspelling (artikel)

[Bjorkie]

Allen, ik heb een oplossing gevonden in geval van tekst, maar met nummers werkt het niet.

In blad 'Template', heb ik kolom, waar ik wil starten met het typen van een getal.
vervolgens, volgens de waarde die ik reeds typ, wil ik een dropdown lijstje krijgen, dat de 'hits' weergeeft. hoe meer ik typ, hoe kleiner de dropdown lijst.
het gebruik van Macro's is ok voor mij (ken ze wel zelf niet )

volgend bericht vond ik reeds met titel 'Dropdownlist met voorspelling' maar dit werkt enkel met tekst....

 

[JEC.]

2 manieren, eentje met office 365 en eentje voor oudere versies. Komt op hetzelfde neer. Let op: de formule voor oudere versies moet je afsluiten met control shift enter(matrix)
Ik heb een hulpkolom gebruikt waarnaar verwezen wordt in de datavalidatie.

Ook een optie met VBA bijgevoegd

 

[HSV]

Gewoon de formule aanpassen voor getallen.

Zonder hulpkolom.

 

[Bjorkie]

Hey allen,
bedankt voor deze snelle reacties.
Ik vind de oplossing met het VBA script net iets handiger kwestie dat je dadelijk de lijst ziet inkorten.
hoe kan ik dit nu doen met meerdere van deze 'combo' boxen?
ik kan het vba script uiteraard x-aantal maal kopieren,...
in de praktijk zal ik van deze boxen een 20-tal onder elkaar moeten zetten.

ik ga ze beide eventjes invoeren in mijn ander formulier en ga deze week ermee aan de slag.

toppie, bedankt allemaal! :thumb:

 

[HSV]

Code kan wel wat anders.

In de Eigenschap van de Combo → MatchEntry: op 2 - fmMatchEntryNone

Private Sub ComboBox1_Change()
 With ComboBox1
   .List = Filter(Application.Transpose(Sheets("codes").Range("a3").CurrentRegion), .Value, -1)
   .DropDown
 End With
End Sub

 

[Bjorkie]

hoi, ik ben er in geslaagd om redelijk goed tot mijn oplossing te komen.
nu, in de ComboBox, maak ik een 'linked cell' waar de getalwaarde in geschreven komt.
op deze cel doe ik dan een vlookup, om een volgende kollom in te laten vullen.
probleem: het getal in de 'linked cel' is geen getal als eigenschap, en werkt dus niet in de Vlookup.....

iemand een idee?
heb een documentje toegevoegd...

 

[JEC.]

Code kan wel wat anders

Tik maar eens 1234 in

 

[JEC.]

Als ik handmatig iets typ in kolom A, gaat het gewoon goed bij mij.

 

[Bjorkie]

Hoi JVeer
als ik manueel het volledig getal intyp in kolom A, dan werkt het inderdaad.
maar de bedoeling is (aangezien de getallen uit 10 digits bestaan), dat ik een dropdown lijst heb, waarbij de lijst ingekort word naarmate er meer opeenvolgende waarden kloppen.
dus, de werking van de Combobox in kolom AQ is goed, de VLookup in kolom B, ifv de waarde van kolom A is ook goed.
enkel de 'Linked Cel' van de comboBox, zet een getal in kolom A, wat niet werkt voor de Vlookup formule.
een oplossing volledig gebasseerd on Visual basic, is ook goed voor mij hoor.

 

[AD1957]

een oplossing volledig gebasseerd on Visual basic, is ook goed voor mij hoor.

Probeer dit eens.

 

[Bjorkie]

AD1957. Dank u zeer voor jouw oplossing.
het is een heel stuk complexer dan gewenst. ik ga dus even zoeken om het eenvoudiger te maken.
maar dit is in elk geval een goede mogelijkheid.
wegens mijn zeer beperkte 'kennis' van Visual Basic, zal ik proberen om dit uit te pluizen.
nogmaals, hartelijk bedankt alvast

 

[AD1957]

Gebruik van userform:
Klick op een artikel en dan op het gewenste aantal.
Gezien jouw eerdere topics lijkt het mij niet zo "complex"

 

[HSV]

Als je zwaar tilt aan de vorige code.

Private Sub ComboBox1_Change()
Sheets("codes").Range("a3").CurrentRegion.Name = "b"
With ComboBox1
 .List = [b].Value
  If Len(.Value) > 0 Then .List = Filter(Evaluate("transpose(if(left(b,len(" & .Value & "))=""" & .Value & """,b,""~""))"), "~", False)
 .DropDown
 End With
End Sub

 

[Bjorkie]

Hoi Harry,
bij het uitvoeren van jouw code krijg ik een foutmelding op de 5e regel, vanaf .List = filter......
Private Sub ComboBox1_Change()
Sheets("codes").Range("a3").CurrentRegion.Name = "b"
With ComboBox1
.List = .Value
If Len(.Value) > 0 Then .List = Filter(Evaluate("transpose(if(left(b,len(" & .Value & "))=""" & .Value & """,b,""~""))"), "~", False)
.DropDown
End With
End Sub

enig idee wat ik hier over het hoofd zie?

 

[HSV]

Private Sub ComboBox1_Change()
[COLOR=#ff0000]Sheets("codes").Range("a2", Sheets("codes").Cells(Rows.Count, 1).End(xlUp)).Name = "b"[/COLOR]
With ComboBox1
 .List = [b].Value
  If Len(.Value) > 0 Then .List = Filter(Evaluate("transpose(if(left(b,len(" & .Value & "))=""" & .Value & """,b,""~""))"), "~", False)
 .DropDown
 End With
End Sub

 

[Bjorkie]

allen,

dank u voor al jullie input.
@Harry: bedankt voor jouw correctie van de code, werkt zoals ik het wens.
verder heb ik de 'Vlookup' formule aangepast, opdat de zoekfunctie terug werkt.
=ALS.FOUT(VERT.ZOEKEN(WAARDE(A2);codes!$A$2:$B$100;2;ONWAAR);"")
ik heb er het deel van 'WAARDE(A2) bijgevoegd.
hierdoor zal de tekst in het veld A2 aanzien worden als een getal. en dan werkt het perfect.

allen, van harte dank voor jullie hulp.:thumb: