Filters automatisch uitschakelen

[Sary]

Beste,

 

 

Ik heb deze code in Blad7 (Tankstalen eindstalen) geplakt en deze werkt als ik vanuit mijn objecten mijn macro start. Als ik deze start vanuit mijn formulieren ( TSESfrm) werkt deze niet en blijven mijn filters aanstaan. Ik wil ze telkens automatisch uit laten zetten vooraleer er een nieuwe data in het formulier gezet wordt.

 

Iemand die weet waar ik een aanpassing moet uitvoeren?

 

Sub VerwijderFiltersBlad7()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim tbl As ListObject
    
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Blad7")
    
    If Not ws.ListObjects.Count = 0 Then
        Set tbl = ws.ListObjects(1)
        If tbl.AutoFilter.FilterMode Then
            tbl.AutoFilter.ShowAllData
        End If
    End If
End Sub
Sub clear()
 Range("TSESdata_tbl[Nr]").AutoFilter
End Sub
 

Database met aanpassing spoelboter en rtp boterberekening (2).zip

[emielDS]

Door de beveiliging eraf te halen.

[Sary]

Hoe bedoel je, met vba code?

[emielDS]

Is het blad niet beveiligd?  waarschijnlijk betrouw je uw eigen niet.