updsv7/vba
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix ToggleAutoFilter - select row first

Browse Source
This commit is contained in:
updsv7
2026-04-13 19:57:30 +09:00
parent 1534c817d9
commit 468cabde69
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
vba_code_common.bas
View File

@@ -175,11 +175,10 @@ Sub ToggleAutoFilter(Optional ByVal filterRow As Long = 6)
' Check if auto filter is already on ' Check if auto filter is already on
If ws.AutoFilterMode Then If ws.AutoFilterMode Then
' Turn off auto filter
ws.AutoFilterMode = False ws.AutoFilterMode = False
Else Else
' Turn on auto filter at row 6
If filterRow >= 1 Then If filterRow >= 1 Then
ws.Range(ws.Cells(filterRow, 1), ws.Cells(filterRow, 20)).Select
ws.Range("A" & filterRow).AutoFilter ws.Range("A" & filterRow).AutoFilter
End If End If
End If End If