Opgelost tabel in combobox met voorwaardes

[HSV]

Adres geeft natuurlijk alleen het adres van de actieve werkblad.
Hiermee zou het verholpen moeten zijn.

Private Sub userform_initialize()
With Sheets("database").ListObjects(1).DataBodyRange
 ComboBox1.List = Filter(Application.Transpose(Evaluate("if(database!" & .Columns(4).Address & "=""Ja"",database!" & .Columns(1).Address & ",""~"")")), "~", False)
End With
End Sub

 

[Schipper1994]

Kijk, onderstaande. het zelfde bestand als daarnet.
Nu met de ja in kolom 11 code aangepast maar werkt niet.

 

[HSV]

Zie mijn laatste schrijven!

 

[Schipper1994]

ja in het voorbeeld bestand werkt dit.. Ik probeer het nu in mijn bestand te verwerken maar daar gaat het niet goed.

 

[HSV]

Let vooral op:
database!" & .Columns(4).Address & "=""Ja"",database!" & .Columns(1).Address

 

[Schipper1994]

OH IK VOEL ME DOM

Mijn combobox haalde zijn informatie via initialize maar ik had ook in dropdownclick gezet dat die zijn informatie moest uploaden. met als gevolg dat daar de list informatie vandaan kwam. waarschijnlijk had het dus ook gewoon gewerkt met hoe ik eerst mijn Macro gemaakt had..
Bij deze is dit hier dus opgelost.

dank u.

 

[Schipper1994]

Deze code had ik hier ook van iemand gekregen om die combobox automatisch te laten aanvullen.
Kan het filtersysteem met die "ja" hier ook in verwerkt worden ?
deze staat bij Private Sub combox1_Change()

combobox1.List = Filter(Application.Transpose([tabel1  ]),  combobox1.Text, , vbTextCompare)
 combobox1.DropDown

 

[snb]

Private Sub UserForm_Initialize()
    sn = Filter([transpose((tabel1[11]="ja")*(row(tabel1[11])-1))], 0, 0)
    ComboBox1.List = Application.Index([Tabel1].Value, Application.Transpose(sn))
End Sub

NB. Een programmeertaal is een taal met een struktuur, regels, systematiek en logica.
Trial en error is geen geëigende aanpak om te programmeren.
Verdiep je in de struktuur etc. van de progammeertaal om zelf te kunnen programmeren.
Van incidentele 'oplossingen' word je niet wijzer.
Sommigen maken het je daarvoor wel héél gemakkelijk:

VBA voor smarties: Combobox / Listbox vullen

www.snb-vba.eu

Het originele bestand kun je wél plaatsen als je zorgt dat er geen privë-gevoelige gegevens meer in staan.
Daarvoor kun je in VBA gemakkelijk een eigen routine ontwerpen..

 

[Schipper1994]

ik heb die code in het voorbeeld bestand gevoegd en het werkt niet.

 

[snb]

Dat had ik ook gedaan en daar werkt het wel.

 

[Schipper1994]

bij #27 zie je dat het gaat over combobox_change

Ook is die code gemaakt als ik rn intyp in het combobox dat er ook Arno tussen komt te staan (zoeken op naam of op letters die erin voorkomen)
Stal dat er Jan Janssen staat en ik tip Janss in dan moet dat er ook in komen in het combobox.

 

[snb]

Analyseer de code, bestudeer VBA en pas hem aan en laat niet alleen maar anderen werken.

 

[Schipper1994]

als ik zou weten hoe het werkt, dan moet ik het hier niet vragen.

 

[HSV]

Die vorige code had je ook van mij.
Voor je voorbeeldbestand die je plaatste.

Private sn
Private Sub ComboBox1_Change()
 ComboBox1.List = Filter(Application.Transpose(sn), ComboBox1.Text, , 1)
 ComboBox1.DropDown
End Sub


Private Sub UserForm_Initialize()
    sn = Filter([transpose((tabel1[11]="ja")*(row(tabel1[11])-1))], 0, 0)
    sn = Application.Index([tabel1].Value, Application.Transpose(sn))
    ComboBox1.List = sn
End Sub

 

[Schipper1994]

HSV,
Deze werkt zoals ik het wil in het voorbeeld bestand.
Bedankt.
Ik ga dit in mijn eigen document proberen te verwerken.