• 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.

Probleem Filter

Status
Niet open voor verdere reacties.
M

Marky76

Gebruiker
Lid geworden
26 okt 2002
Berichten
424
In bijlage heb ik een bestandje en wil filteren, gewoon Data --> Filteren

en wil dan het getal 607131 hebben en als ik op het scrolldown knopje van de filter druk zie ik dat bedrag er niet tussen staan! Hoe kan dit?
Als ik een boel getallen wegdoe dan komen ze uiteindelijk in de filter, maar het moet normaal zo ook werken gebruik dit altijd en nu neemt hij om één of andere reden de bedragen die met 607 beginnen niet op in het lijstje.
Daarentegen als ik op journaal filter en kies 90 dan geeft Excel ze wel weer maar het
getal 607131 en de andere kan ik niet filteren.

Wierd.

Groeten,
 

Bijlagen

Ik kan hier geen rar files openen, maar een Autofilter geeft enkel de eerste 1000 items weer.
 
...........

Mark,

Kijk hier eens voor meer info over autofilter:
http://support.microsoft.com/default.aspx?scid=kb;en-us;295971

En hier voor een mogelijk antwoord hoe verder:
http://www.experts-exchange.com/Applications/Q_20562765.html

Code komt van bovenstaande website.
Code: 
Sub Test()

 Dim TmpVal As String
 Dim TmpCol As String
 Dim TmpRng As Range
 
 ' removes previous "filter".
 Cells.EntireRow.Hidden = False
 
 ' asks for value
 TmpVal = InputBox("Enter the value you want to filter for.", "Filter Criteria")
 ' asks for column to filter
 TmpCol = InputBox("Enter the column to filter on.", "Column Selection")

 ' hides each row that does not contain a match in the specified column
 For Each TmpRng In Worksheets(1).UsedRange.Rows
     If TmpRng.Range(TmpCol & "1").Value <> TmpVal And TmpRng.Row <> 1 Then
         TmpRng.EntireRow.Hidden = True
     End If
 Next
End Sub

Groet,
Ferenc

ps. met winrar kan je ook zipfiles maken, das wat makkelijker hierop het forum ivm bedrijven welke vaak alleen maar zip-formaat op het systeem ondersteunen. (rechtermuisnknop op file: add to archive en dan archive format=zip)
 

Bijlagen

Laatst bewerkt:
Nog een kleine aanvulling.

Om flikkeringen op het scherm te voorkomen : kun je dit gebruiken.

Application.ScreenUpdating = False aan het begin van de instructie en
Application.ScreenUpdating = True op het einde van de instructie.


Dim TmpVal As String
Dim TmpCol As String
Dim TmpRng As Range


Application.ScreenUpdating = False
' removes previous "filter".
Cells.EntireRow.Hidden = False

' asks for value
TmpVal = InputBox("Enter the value you want to filter for.", "Filter Criteria")
' asks for column to filter
TmpCol = InputBox("Enter the column to filter on.", "Column Selection")

' hides each row that does not contain a match in the specified column
For Each TmpRng In Worksheets(1).UsedRange.Rows
If TmpRng.Range(TmpCol & "1").Value <> TmpVal And TmpRng.Row <> 1 Then
TmpRng.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True

Pierre
 
Helemaal gelijk.

Thanks jpvs,

Helemaal gelijk en is een stuk professioneler.


groet,
Ferenc
 
vba FILTER

Hey bedankt Pierre,

Ja, dit doet meer deugd aan de ogen.
Nog een klein vraagje als de filter gedaan is, wat moet ik dan doen om alles terug weer te geven?

Groeten,
 
Zonder de topic gelezen hebben, denk ik dat dit kan helpen:

Code: 
Cells.EntireRow.Hidden = False

Sorry als het niet helpt.

Wigi
 
VBA filter

Pierre,
Sorry maar ben het nog aan het leren de code die je gegeven hebt zet ik die in een andere formule of zet ik die tussen mijn VBA code die ik al heb.

Sub Test()

Dim TmpVal As String
Dim TmpCol As String
Dim TmpRng As Range

Application.ScreenUpdating = False

' removes previous "filter".
Cells.EntireRow.Hidden = False

' asks for value
TmpVal = InputBox("Enter the value you want to filter for.", "Filter Criteria")
' asks for column to filter
TmpCol = InputBox("Enter the column to filter on.", "Column Selection")

' hides each row that does not contain a match in the specified column
For Each TmpRng In Worksheets(1).UsedRange.Rows
If TmpRng.Range(TmpCol & "1").Value <> TmpVal And TmpRng.Row <> 1 Then
TmpRng.EntireRow.Hidden = True
End If
Next

Application.ScreenUpdating = True

End Sub



Jouw antwoord:

Sub RemoveFilter()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

Komt dit in een andere module of moet dan ertussen geplaats worden??

Groeten,
 
jpvs zei:
Wigi iets te snel geweest?
Klik om te vergroten...

Jep. Sorry, de drang om te helpen was iets te groot blijkbaar.

Als jullie er niet mochten uit raken, geef dan een seintje en dan zal ik de hele thread lezen.
 
Het stukje code zie hoger, moet het ertussen of in een module want het lukt me nog niet.

Groeten, Mark
 

Bijlagen

Laatst bewerkt:
VBA filter

Pierre,

Ik heb je gezipt bestand geopend heb eens gefilterd en als ik dan op de knop klik
"Alles terug weergeven" gebeurd er niets?

Ik heb de knop gekoppeld aan de Marco "Remove filter" en hij doet niets?
 
Ik heb gefilterd in C1 bv op 6002 en dan de macro uitgevoerd en dit werkt.

Maar als ik op de knop "Filter" druk en alles invul te zoeken waarde en welke kolom werkt de knop "Alles terug weergeven" NIET ?



Dit zou te maken hebben met het uitvoeren van de macro?

Zal eens verder zoeken of iemand een suggestie?

Pierre
 
Laatst bewerkt:
mmmmmm

Waarom niet:

Sub RemoveFilter()
Selection.AutoFilter Field:=3
End Sub

Hiermee zet je de gefilterde waarde weer op 'alle categoriën'.


Groet,
Ferenc


ps. dit werkt alleen maar als je 1 filter per keer gebruikt.
dus niet eerst filteren op bv. 58 in kolom 2 en dan verder filteren met een waarde in kolom 3.
 

Bijlagen

Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan