agtic/MS_Excel_VBA_Reporting_Template
1
0
Fork 0
forked from nesticti/MS_Excel_VBA_Reporting_Template
Code Pull Requests Activity

Update ResetFilters/ResetFilters.bas

Browse Source
This commit is contained in:
kevinowino869 2025-03-02 14:26:05 +01:00
parent 25e930145c
commit d52839d6cb
1 changed files with 33 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
ResetFilters/ResetFilters.bas
View File

@ -1,34 +1,33 @@
Attribute VB_Name = "ResetFilters"
Sub ResetFilters()
Dim wsData As Worksheet, wsDash As Worksheet
Dim lastRow As Long, headerRow As Long
Dim fullRange As Range
' Set references to sheets
Set wsData = ThisWorkbook.Sheets("Datasheet")
Set wsDash = ThisWorkbook.Sheets("Dashboard")
' Define last row of data
lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row
headerRow = 1 ' Assuming headers are in row 1
' Clear previous results
wsDash.Range("A10:L35").ClearContents
' Remove any active filters
If wsData.AutoFilterMode Then wsData.AutoFilterMode = False
' Copy all data
Set fullRange = wsData.Range(wsData.Cells(headerRow, 1), wsData.Cells(lastRow, wsData.UsedRange.Columns.Count))
' Copy headers
wsData.Rows(headerRow).Copy Destination:=wsDash.Rows(9)
' Copy entire dataset
fullRange.Offset(1, 0).Copy
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteValues
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
Sub ResetFilters()
Dim wsData As Worksheet, wsDash As Worksheet
Dim lastRow As Long, headerRow As Long
Dim fullRange As Range
' Set references to sheets
Set wsData = ThisWorkbook.Sheets("Datasheet")
Set wsDash = ThisWorkbook.Sheets("Dashboard")
' Define last row of data
lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row
headerRow = 1 ' Assuming headers are in row 1
' Clear previous results
wsDash.Range("A10:L35").ClearContents
' Remove any active filters
If wsData.AutoFilterMode Then wsData.AutoFilterMode = False
' Copy all data
Set fullRange = wsData.Range(wsData.Cells(headerRow, 1), wsData.Cells(lastRow, wsData.UsedRange.Columns.Count))
' Copy headers
wsData.Rows(headerRow).Copy Destination:=wsDash.Rows(9)
' Copy entire dataset
fullRange.Offset(1, 0).Copy
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteValues
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub