• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hulp met filter

Status
Niet open voor verdere reacties.
G

gast0219

Gebruiker
Lid geworden
7 feb 2017
Berichten
107
Goedenavonde allen,

Ik ben nog steeds bezig met een filter te maken voor tussen offertes te zoeken, het filter werkt alleen ben ik nu met uitproberen tegen een paar dingen gelopen waar jullie me hopelijk mee kunnen helpen. Ik heb nu een userform met diverse comboboxen met de waardes uit me tabel. Deze werken onafhankelijk van elkaar en In de kolommen staan dubbele waardes. Nu heb ik in me userform staan dat ik alleen de dubbelen van de verzenddatum moet filteren. Ik heb geprobeerd deze ook voor de andere comboboxen neer te zetten, maar dan gaat hij foutmeldingen aangeven. Bovendien wil ik het graag dat de comboboxen met elkaar gaan werken, dus als er op bedrijfsnaam is gezocht op waarde "" dat dan in de contactpersoonbox, adresbox, en de plaatsbox die waardes staan die eventueel mogelijk zijn en andersom ook natuurlijk en desnoods vanuit 1 commandbutton ( lijkt me ook wel makkelijk ). En dan om het helemaal ingewikkeld te maken lijkt het me makkelijk als nog alles op alfabetische volgorde wordt gezet in me comboboxen voor het opzoeken tussen alle offertes, en het liefst zodat me tabblad op de achtergrond op de offertenummers gesorteerd blijft staan.

Hierbij het voorbeeldbestand: Bekijk bijlage FILTER.xlsb

Wie heeft er goede raad voor mij ??

En alvast bedankt voor het meedenken
 
Laatst bewerkt:
Ik denk dat het handiger is om gebruik te maken van het advanced filter
Dan kun je met meerdere Criteria werken
 
Laatst bewerkt:
Dankjewel voor het advies, ik ga volgende week weer even met alles stoeien en uitproberen. Maar tkx voor het meedenken:thumb:
 
gast0219,

Ik ben geen specialist in VBA maar doe een poging.
Ik heb voor een paar ComboBoxen unieke namen gemaakt met een formule.

De formule heb ik van het internet gehaald. (zo knap ben ik niet)

Test het bestandje maar.
 

Bijlagen

Bedankt ExcelAmateur, ik ga hem downloaden en volgende week ff naar kijken. Alvast hartelijk bedankt en ik laat het wel weten :thumb::thumb:
 
Bedankt Jack en ExcelAmateur voor de tips, ik heb het een en het ander kunnen opzoeken, nog en vinden en uiteindelijk werkt het sorteren zoals ik wil. Ik laat eerst alles sorteren op de kolom ( dit opzetje had ik van HSV gehad, mijn dank hiervoor nog HSV:thumb::thumb: )Ik zit nu alleen nog met 1 ding en dat is me comboboxen samen laten werken met elkaar. Dus als in cbo1 de waarde xxx is gezocht in kolom1, dat er in de rest nog maar het beperkte aantal kan weergeven. Nu hebben ze nog alle resultaten die in die kolommen staan..

Momenteel laad ik dus me cbo's ( 5 stuks ) met deze code in..... ( misschien wel met een omweg, maar het doet precies wat ik wil, alfabetisch en geen dubbelen ) en dan als laatste laat ik me tabel helemaal terugsorteren op het 1e kolom.

With Sheets("Totale overzicht offertes").ListObjects(1)
.Range.Sort .Range(1, 2), 1, , , , , , xlYes
End With

Dim dict As Object
Dim Eloc As Range
Set dict = CreateObject("Scripting.Dictionary")

With dict
For Each Eloc In Range("Tabeloffertes[( Bedrijfs ) naam aanvraager:]")
If Not .Exists(Eloc) Then .Item(Eloc.Value) = Eloc.Value
Next Eloc
cboBDNMfltr.List = .keys
End With

de volgende cbo laat ik eerst weer sorteren op kolom, dan inladen en weer door tot de laatste, wellicht kan dit simpeler maar ik weet nog niet hoe....
Als enige zoek ik nog een oplossing dus voor het combineren van me cbo's, nog ff doorzoeken dus, maar iedereen nog bedankt voor alle tips ( ook in voorgaande topic's )

gr
 
Laatst bewerkt:
gast0219,

Ik ben nog even wat aan het puzzelen voor je geweest.
Er zit nog wel een kronkel in. (kan het niet vinden)
Als je de de Firma "Bouw- en monumentenadvies" selecteert en dan op de knop klikt, werkt de ComboBox contact persoon.
Als je de Firma Particulier selecteert dan geeft hij een fout melding. (dus de kronkel)

Edit; Als je de tabel op firma sorteert werkt het beter.
Alleen dan nog de dubbele namen v.d. contactpersonen eruit.
 

Bijlagen

Laatst bewerkt:
Heeft Ts gisteren al een code voor gekregen.
 
Ook niet slim om twee keer hetzelfde te vragen.
 
Hartelijk dank voor de moeite ExcelAmateur, maar daar had ik inderdaad gisteren alweer hulp van gekregen nadat ik daar vermeldde dat ik bij me andere vraag, sorteren zonder dubbelen, dat ik daarnaar opzoek ging om ze samen te laten werken, gaf HSV daar alweer een oplossing voor. deze vraag was ik nog vergeten om als opgelost te zetten. Sorry hiervoor, maar hartelijk bedankt voor de gedane moeite en ik ga de tip zeker nog even bekijken. En idd niet slim om 2x hetzelfde te vragen nee. Deze vraag was alleen als totale vraag misschien wat gecompliceerder, ik kon op dat moment ook even geen geduld opbrengen, wilde snel verder met alles ( zit klein beetje haast achter het project namelijk ) daarom had ik dus een 2e vraag gesteld met als 1e hetgene wat ik nodig had, vandaar dus.... mja iedereen bedankt voor de tips en de gedane moeite.

Gr.
 
ja dat is zeker wat ik bedoel ExcelAmateur... en zoiets had ik volgens mij ook al van HSV gahad, ik heb het alleen momenteel met me textboxen en me listbox zo staan in een ander userform.... Ik ga ff verder stoeien met alles. Iedereen bedankt voor het meedenken, het creeeren van me hulpmiddelen en uiteraard de tips :thumb::thumb::thumb:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan