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

Update FilterAndExtractData/FilterAndExtractData.bas

Browse Source
This commit is contained in:
kevinowino869 2025-03-02 14:24:11 +01:00
parent c7080f0a2f
commit f0503dd266
1 changed files with 47 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
FilterAndExtractData/FilterAndExtractData.bas
View File

@ -1,4 +1,3 @@
Attribute VB_Name = "FilterAndExtractData"
Sub FilterAndExtractData() Sub FilterAndExtractData()
Dim wsData As Worksheet, wsDash As Worksheet Dim wsData As Worksheet, wsDash As Worksheet
Dim lastRow As Long, headerRow As Long Dim lastRow As Long, headerRow As Long
@ -19,7 +18,7 @@ Sub FilterAndExtractData()
countyFilter = Trim(wsDash.Range("D7").Value) ' County filter countyFilter = Trim(wsDash.Range("D7").Value) ' County filter
' Clear previous results ' Clear previous results
wsDash.Range("A10:L35").ClearContents wsDash.Range("A10:ZL100000").ClearContents
' Set filter range ' Set filter range
Set filterRange = wsData.Range(wsData.Cells(headerRow, 1), wsData.Cells(lastRow, wsData.UsedRange.Columns.Count)) Set filterRange = wsData.Range(wsData.Cells(headerRow, 1), wsData.Cells(lastRow, wsData.UsedRange.Columns.Count))