Wat als filter leeg is

[blueberry013]

Hallo!

Ik zit met volgend probleem...

In mijn bestand loopt er een query die automatisch de gegevens filtert in een tabel op basis van een waarde in een tekstbox (x).
Dit gaat allemaal goed, evenals het kopiëren van de gefilterde gegevens en plakken ervan.

Probleem is nu dat als in de eerste kolom van die tabel geen (x) voorkomt excel alle rijen kopieert, wat helemaal de bedoeling niet is...
Ik snap wel dat hij dan natuurlijk niet kan filteren op (x) maar hoe kan ik dat omzeilen?

alvast bedankt voor de hulp.

 

[koster1984]

Laat eens zien wat voor code je gebruikt of (beter nog) upload eens een voorbeeldbestandje...

 

[Niels28]

Zet deze controle er tussen om te kijken of de waarde bestaat.

Set c = Range("A1:A20").Find(x)

If c Is Nothing Then
MsgBox "niks gevonden"
Exit Sub
End If

Maar volgens mij kun je dan beter een listbox of combobox gebruiken ipv een tekstbox, zodat er alleen waarde gekozen kunnen worden die op het blad voorkomen.

Niels

 

[blueberry013]

hey!

bedankt voor je reactie!

geeft nu object vereist.

 

[Niels28]

Plaats je complete macro even en geef dan aan waar het object vereist is.

Niels

 

[Niels28]

Kijk eens naar het voorbeeldje, vul maar iets in wat niet in kolom A staat.



Bekijk bijlage test lege filter.xlsm


Niels