Combobox met Criteria

[timmethy]

Excel VBA 6.0

Opzet:
Blad 1: (data)
Kolom A: Nummer (id)
Kolom B: Kilo's

Blad 2:
Kolom A: Nummer (id)
Kolom B: Afgewerkt Ja

Ik wil het volgende:
Op blad 1 komt de data te staan die afgewerkt moet worden en op blad 2 komt de uitvoer als het afgewerkt is.

Nu wil ik alle nummers van blad 1 in een combobox krijgen.

Private Sub userform_initialize()
Dim lst As Variant
Sheets("blad1").Select
lst = Range("A2", Range("a2").End(xlDown))
cmbChargenummer.List = lst

End Sub

Dat werkt

Maar nu wil ik dat die combobox de nummer (id) niet weergeeft als ze al op blad 2 vermeld staan.

Ik schrijf namelijk gegevens weg op blad 2 als ze afgewerkt zijn. Deze nummer(id) moeten dus niet meer in de combobox weergegeven worden als ze al afgewerkt zijn.

Voorbeeld

Blad 1:
Nummer(id) Kilo
1 100
2 105
3 120

blad 2:
Nummer(id) Melding
1 Ja
2 Ja

Als je nu op de Combobox klikt moet alleen nummer 3 weergegeven worden.
Hij filtert dan nummer 1/2 eruit, omdat hier al een melding van gemaakt is.

Hoe los ik dit op?

 

[Wigi]

Met een kleine lus en de AddItem methode van de combobox: dat zal het eenvoudigste zijn.

 

[timmethy]

Sry weet dat het mssn beetje te veel gevraagd is, maar ik ben hier niet zo goed in

Zou je een voorbeeld kunnen maken met

Namen:
cmb1 (voor de combobox)
blad1 en blad 2 (voor waar de gegevens staan die in de combobox moeten komen)

Op blad1 staan alle nummers
op blad 2 staan de nummers die al toegevoegd zijn
Beide nummers (id) staan in kolom A van beide bladen

Hoe filter ik alle nummers van blad 2 kolom A uit blad 1 kolom A met die combobox

sorry dat ik dit vraag, maar ben niet zo goed heb nog nooit een lus of add item gedaan

mvg

Tim

 

[snb]

Dan is dit voor jou de aangewezen plek.

 

[timmethy]

k,

Dus nu moet ik op 1 of andere manier voor elkaar krijgen dat excel de eerste cell van kolom A blad 1 zoekt in kolom A blad 2 en als hij daar niet voor komt, dan moet hij hem (add item) toevoegen aan de combobox en dan met een lus/loop moet hij door gaan tot het einde van kolom A blad 1 is bereikt.


Als iemand mijn oplossing heeft You are most welcome Ik zit ondertussen zelf dit voor elkaar te krijgen

Alvast bedankt
en bedankt voor die site btw

 

[timmethy]

Ik zit nu heel excel te verbouwen om het voor elkaar te krijgen, maar dit is niet echt efficiënt.


Kan iemand me aub helpen

 

[timmethy]

In het bijgevoegde bestand staat de combobox op het formulier

Het formulier haalt via de combobox gegevens op uit blad: "data"

En als je op de knop terug schrijft hij die gegevens weg op het blad "meld"

Nu wil ik dat in de combobox alle chargenummers (nummers id) komen die op het blad data staan, maar die niet voor komen op het blad "meld"

De gegevens van blad "meld" moeten dus uit de combobox

Hopelijk kan iemand me hier mee helpen, ik kom er echt niet aan uit ...

 

[timmethy]

Ik zal wel proberen een nieuwe tabel te maken op 1 of andere manier en dan zo een nieuwe combobox.

Merk dat ik er nog niet genoeg van snap, om deze hindernis te overbruggen

mvg,

Tim