Hallo,
Ik heb in mijn boekhouding tab "ORDERS" best veel rijen en deze wil ik met checkboxen filteren op "factuur voldaan" / "factuur open" / "factuur in database" / "factuur loopt"
BingAI komt met volgende code:
Deze doet niets, je ziet het scherm een keer knipperen maar alle typen facturen blijven staan:
dit werkt wel maar hiermee heeft de checkbox uitschakelen geen zin:
De cellen in P3:P1000 bevatten allemaal dezelfde formule welke bepaald of een factuur is verstuurd of dat deze nog wacht of dat de factuur in de database staat. Nu zou dat niets mogen uitmaken omdat in het 2e stukje vba de code wel werkt
Ik heb in mijn boekhouding tab "ORDERS" best veel rijen en deze wil ik met checkboxen filteren op "factuur voldaan" / "factuur open" / "factuur in database" / "factuur loopt"
BingAI komt met volgende code:
Deze doet niets, je ziet het scherm een keer knipperen maar alle typen facturen blijven staan:
Heb deze aangepast om te zien waar de fout ligt,Sub Selectievakje16_Klikken()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("ORDERS")
ws.AutoFilterMode = False
If Selectievakje16 = True Then
ws.Range("A3:ZZ1000").AutoFilter Field:=16, Criteria1:="=FACTUUR VOLDAAN"
Else
ws.Range("A3:ZZ1000").AutoFilter Field:=16, Criteria1:="<>"
End If
End Sub
dit werkt wel maar hiermee heeft de checkbox uitschakelen geen zin:
Nu vraag ik mij af of autofilter in vba kan omgaan met if..then..elseSub Selectievakje16_Klikken()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("ORDERS")
ws.AutoFilterMode = False
ws.Range("A3:ZZ1000").AutoFilter Field:=16, Criteria1:="=FACTUUR VOLDAAN"
End Sub
De cellen in P3:P1000 bevatten allemaal dezelfde formule welke bepaald of een factuur is verstuurd of dat deze nog wacht of dat de factuur in de database staat. Nu zou dat niets mogen uitmaken omdat in het 2e stukje vba de code wel werkt

[ Voor 12% gewijzigd door sph1980 op 19-01-2025 14:48 ]