Filteren met een macro

[Pernella]

Goedemiddag,

Ik probeer een filter te maken in VBA. Het volgende is de bedoeling:

De filter moet elke rij bij langs, zodra er in een van de cellen een bepaald woord staat, moet deze cel niet verborgen worden.

Op dit moment heb ik deze code:

Private Sub CommandButton1_Click()
    
    With ActiveSheet
        .AutoFilterMode = False
        .Range("A:R").AutoFilter
        
        With .AutoFilter.Range
            If TextBox1.value <> "" Then
                For t = 1 To 2
                    .AutoFilter Field:=t, Criteria1:=TextBox1.value
                Next
            End If
        End With
    End With
    
End Sub

Nu wordt alleen de cel gefilterd als de waarde van TextBox1 in de eerste twee cellen voor komt. Kan iemand mij helpen om het voor elkaar te krijgen dat wanneer field 1 of 2 de tekst bevat, de rij alsnog gefilterd wordt?

 

[snb]

Lees eens rustig door:

http://www.snb-vba.eu/VBA_Autofilter.html

 

[VenA]

Mij lijkt een voorbeeldbestand een goede aanvulling voor deze vraag. In de diverse kolommen komt steeds de waarde TextBox1.value voor? Lijkt mij een rare opzet. Maar als het zo is dan heb je het geavanceerde filter nodig.

 

[Pernella]

Goedemorgen,

Ik wil graag een macro maken die het volgende doet:

Projectnaam Resultaat Middelen
Test1 FEM-analyse resultaten zijn ... FEM, NEN
Test2 Geen afwijkende resultaten NEN
Test 3 Resultaten komen overeen FEM

Nu zou de macro moeten gaan zoeken naar bijvoorbeeld het woord "FEM" in de hele worksheet. Vervolgens alle regels die dit woord bevatten filteren. Dus dan zou Test1 en Test3 in de filter terecht komen.
Helaas krijg ik dit met de AutoFilter nog niet voor elkaar.

 

[VenA]

En nu het voorbeeldbestand nog.

 

[Pernella]

hierbij een testbestand

Als ik een knop aanmaak, wil ik graag dat rij 2 en 3 gefilterd worden op wanneer er gezocht wordt op "FEM"

 

[VenA]

Met het geavanceerde filter.

Sub VenA()
  Cells(2, 26) = "*" & InputBox("waarde:") & "*"
  Cells(1).CurrentRegion.AdvancedFilter 1, Cells(1, 26).CurrentRegion
End Sub

 

[Pernella]

Dat is inderdaad precies wat ik bedoelde. Ik heb dit verwerkt in mijn eigen document, maar helaas geeft die dan niet het gewenste resultaat.

Zie jij waar het mis gaat?

Bekijk bijlage Formulier_Referentiesheet_20181210-4.xlsm

 

[VenA]

Kan ik niet zien.

 

[snb]

Gebruik een 'intelligente' tabel (in VBA 'Listobject').

 

[Pernella]

Jammer, in elk geval bedankt voor de moeite en de hulp!

 

[Pernella]

Ik denk dat ik weet waar de fout in zit.

In Rij 1 heb ik een titel staan met al mijn knoppen. Dit betekent dat mijn data begin in rij 3.
Hoe kan ik de code van de AdvancedFilter zo aanpassen dat rij 1 en 2 niet meegenomen worden in de filter?

 

[VenA]

Je heb een wachtwoord op je VBA project staan vandaar dat het niet te zien is.

 

[Pernella]

Bekijk bijlage Formulier_Referentiesheet_20181210-4.xlsm

Dit bestand zou wel toegankelijk moeten zijn.

 

[snb]

Zie de bijlage

 

[Pernella]

snb, dit is niet wat ik zoek. maar bedankt.

 

[snb]

Het is eenvoudiger dan wat je zoekt.

Vergelijk de hoeveelheid code van jouw kalender eens met de onderstaande:

 

[VenA]

Heb je het bestand in #7 wel bekeken? Kijk eens vanaf kolom Z. Klakkeloos overnemen van code in het echte bestand gaat natuurlijk nooit werken als dit afwijkt van het voorbeeldbestand. Door gebruik te maken een intelligente' tabel (in VBA 'Listobject') kan je zonder afhankelijk te zijn van waar deze tabel staat ook het geavanceerde filter gebruiken. Voorbeeldbestanden hebben ook als doel om de kern van de vraag weer te geven. Bijna elke cel die ik aanklik geeft een hinderlijke popub waar niemand op zit te wachten.

Nb de hele hinderlijke code kan waarschijnlijk ook zo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Selection.Count = 1 And Target.Row > 1 Then
    Select Case Target.Column
      Case 8, 9: Kalender.Show
      Case 14: Geheimhouding_Project.Show
      Case 18:  Middelen.Show
    End Select
  End If
End Sub