CheckBox koppelen aan filter

[vrouw]

Het lukt me niet om de andere 2 CheckBoxen te koppelen aan het filter.

Ik wil aan de hand van de CheckBox een keuze van de taal laten zien.
Wat gaat er fout?

 

[HSV]

Private Sub CheckBox2_Click()
If CheckBox[COLOR=#ff0000]2[/COLOR].Value = True Then
    ActiveSheet.Range[COLOR=#ff0000]("A1:A500")[/COLOR].AutoFilter Field:=1, Criteria1:="Engels"

 

[VenA]

Mogelijk is het handig dat als je op CheckBox2 klikt hier jouw code ook wat mee laat doen.

Private Sub CheckBox2_Click()
If CheckBox[COLOR="#FF0000"]2[/COLOR].Value = True Then

 

[gast0224]

Omdat je alleen filtert op checkbox1 en er zijn 3 checkboxen. Daarnaast is het handig om je code zo in te richten, dat er maar 1 checkbox true kan zijn. Bestudeer de bijlage maar eens.

Bekijk bijlage Test menukaart.xlsm

 

[vrouw]

Omdat je alleen filtert op checkbox1 en er zijn 3 checkboxen. Daarnaast is het handig om je code zo in te richten, dat er maar 1 checkbox true kan zijn. Bestudeer de bijlage maar eens.

Bekijk bijlage 262573

Prima, dat is inderdaad ook een mooie optie.
Echter ondanks staat dat het filter werkt tot A500 gaat ie niet verder dan een rgel of 20 en daaronder filtert ie niet.

 

[VenA]

Als je één keer het filter verwijderd en daarna gaat filteren werkt het wel.

 

[vrouw]

Als je één keer het filter verwijderd en daarna gaat filteren werkt het wel.

:thumb:Thanks.

 

[vrouw]

2 vinkjes aanzetten (nederlands en hoofd) gaat dan niet met deze methoden zeker?
Dan zal ik toch met de methoden van HSV en VenA moeten werken?

 

[gast0224]

Nee dat gaat inderdaad niet werken, maar ook niet met de methode van HSV en VenA. Wil je filteren op meerdere opties, dan wordt de code veel uitgebreider. Je moet dan per optie gaan kijken of er wel of geen vinkje staat en daar dan je filter op gaan baseren.

 

[HSV]

In moduleblad van toepassing.

Private Sub CheckBox1_Click()
hsv
End Sub


Private Sub CheckBox2_Click()
hsv
End Sub


Private Sub CheckBox3_Click()
hsv
End Sub

Private Sub hsv()
For j = 1 To 3
 If Me.OLEObjects("CheckBox" & j).Object Then
   c00 = c00 & "|" & Me.OLEObjects("CheckBox" & j).Object.Caption
 End If
Next j
With Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
  If Len(c00) > 0 Then
   .AutoFilter 1, Split(Mid(c00, 2), "|"), 7
  Else
   .AutoFilter
End If
End With
End Sub

 

[vrouw]

In moduleblad van toepassing.

Private Sub CheckBox1_Click()
hsv
End Sub


Private Sub CheckBox2_Click()
hsv
End Sub


Private Sub CheckBox3_Click()
hsv
End Sub

Private Sub hsv()
For j = 1 To 3
 If Me.OLEObjects("CheckBox" & j).Object Then
   c00 = c00 & "|" & Me.OLEObjects("CheckBox" & j).Object.Caption
 End If
Next j
With Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
  If Len(c00) > 0 Then
   .AutoFilter 1, Split(Mid(c00, 2), "|"), 7
  Else
   .AutoFilter
End If
End With
End Sub

Ik krijg deze niet voor elkaar.
Moet de gehele code in moduleblad?

 

[VenA]

Ik had ongeveer hetzelfde idee als HSV alleen was ik wat later.:d

 

[HSV]

Moet de gehele code in moduleblad?

Try before you.....

 

[vrouw]

Ja, toppie hoor het is gelukt.
Bedankt voor alle hulp :thumb: