Merge pull request '1.10.0' (#4) from mastre into 1.0.10
Reviewed-on: Nestict_Infotech/MS_Excel_VBA_Reporting_Template#4
This commit is contained in:
commit
113116565b
@ -1,37 +1,35 @@
|
|||||||
Attribute VB_Name = "ClearReports"
|
Sub ClearReportsButton()
|
||||||
Sub ClearReportsButton()
|
Dim ws As Worksheet
|
||||||
Dim ws As Worksheet
|
Dim wsArr As Variant
|
||||||
Dim wsArr As Variant
|
Dim i As Integer
|
||||||
Dim i As Integer
|
|
||||||
|
' Define sheets to keep
|
||||||
' Define sheets to keep
|
wsArr = Array("Dashboard", "Datasheet", "Code")
|
||||||
wsArr = Array("Dashboard", "Datasheet", "Code")
|
|
||||||
|
Application.ScreenUpdating = False
|
||||||
Application.ScreenUpdating = False
|
Application.DisplayAlerts = False
|
||||||
Application.DisplayAlerts = False
|
|
||||||
|
' Loop backwards to avoid deletion issues
|
||||||
' Loop backwards to avoid deletion issues
|
For i = ThisWorkbook.Sheets.Count To 1 Step -1
|
||||||
For i = ThisWorkbook.Sheets.Count To 1 Step -1
|
Set ws = ThisWorkbook.Sheets(i)
|
||||||
Set ws = ThisWorkbook.Sheets(i)
|
If Not IsInArray(ws.Name, wsArr) Then
|
||||||
If Not IsInArray(ws.Name, wsArr) Then
|
ws.Delete
|
||||||
ws.Delete
|
End If
|
||||||
End If
|
Next i
|
||||||
Next i
|
|
||||||
|
Application.DisplayAlerts = True
|
||||||
Application.DisplayAlerts = True
|
Application.ScreenUpdating = True
|
||||||
Application.ScreenUpdating = True
|
MsgBox "All county reports have been cleared!", vbInformation
|
||||||
MsgBox "All county reports have been cleared!", vbInformation
|
End Sub
|
||||||
End Sub
|
|
||||||
|
' Function to check if sheet name is in the list of sheets to keep
|
||||||
' Function to check if sheet name is in the list of sheets to keep
|
Function IsInArray(val As String, arr As Variant) As Boolean
|
||||||
Function IsInArray(val As String, arr As Variant) As Boolean
|
Dim i As Integer
|
||||||
Dim i As Integer
|
For i = LBound(arr) To UBound(arr)
|
||||||
For i = LBound(arr) To UBound(arr)
|
If arr(i) = val Then
|
||||||
If arr(i) = val Then
|
IsInArray = True
|
||||||
IsInArray = True
|
Exit Function
|
||||||
Exit Function
|
End If
|
||||||
End If
|
Next i
|
||||||
Next i
|
IsInArray = False
|
||||||
IsInArray = False
|
End Function
|
||||||
End Function
|
|
||||||
|
|
||||||
|
|||||||
@ -1,79 +1,78 @@
|
|||||||
Attribute VB_Name = "DetailedReport"
|
Sub GenerateColumnReports()
|
||||||
Sub GenerateColumnReports()
|
Dim ws As Worksheet, wsNew As Worksheet
|
||||||
Dim ws As Worksheet, wsNew As Worksheet
|
Dim lastRow As Long, columnCol As Long, headerRow As Long
|
||||||
Dim lastRow As Long, columnCol As Long, headerRow As Long
|
Dim cell As Range, colValue As Variant
|
||||||
Dim cell As Range, colValue As Variant
|
Dim dict As Object
|
||||||
Dim dict As Object
|
Dim rng As Range, copyRange As Range
|
||||||
Dim rng As Range, copyRange As Range
|
Dim colName As String
|
||||||
Dim colName As String
|
|
||||||
|
' Set worksheet and find last row
|
||||||
' Set worksheet and find last row
|
Set ws = ThisWorkbook.Sheets("Datasheet") ' Change to your sheet name
|
||||||
Set ws = ThisWorkbook.Sheets("Datasheet") ' Change to your sheet name
|
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
|
||||||
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
|
columnCol = 3 ' Adjust this to the column number you want to group by
|
||||||
columnCol = 3 ' Adjust this to the column number you want to group by
|
headerRow = 1 ' Adjust if headers are located on a different row
|
||||||
headerRow = 1 ' Adjust if headers are located on a different row
|
|
||||||
|
' Create dictionary to store unique values
|
||||||
' Create dictionary to store unique values
|
Set dict = CreateObject("Scripting.Dictionary")
|
||||||
Set dict = CreateObject("Scripting.Dictionary")
|
|
||||||
|
' Loop through column to find unique values
|
||||||
' Loop through column to find unique values
|
For Each cell In ws.Range(ws.Cells(headerRow + 1, columnCol), ws.Cells(lastRow, columnCol))
|
||||||
For Each cell In ws.Range(ws.Cells(headerRow + 1, columnCol), ws.Cells(lastRow, columnCol))
|
colValue = Trim(cell.Value)
|
||||||
colValue = Trim(cell.Value)
|
If colValue <> "" And Not dict.exists(colValue) Then
|
||||||
If colValue <> "" And Not dict.exists(colValue) Then
|
dict.Add colValue, Nothing
|
||||||
dict.Add colValue, Nothing
|
End If
|
||||||
End If
|
Next cell
|
||||||
Next cell
|
|
||||||
|
' Create sheets for each unique value and copy relevant data
|
||||||
' Create sheets for each unique value and copy relevant data
|
Application.ScreenUpdating = False
|
||||||
Application.ScreenUpdating = False
|
For Each colValue In dict.keys
|
||||||
For Each colValue In dict.keys
|
' Generate a valid sheet name
|
||||||
' Generate a valid sheet name
|
colName = colValue
|
||||||
colName = colValue
|
colName = Replace(colName, "/", "_")
|
||||||
colName = Replace(colName, "/", "_")
|
colName = Replace(colName, "\", "_")
|
||||||
colName = Replace(colName, "\", "_")
|
colName = Replace(colName, "?", "_")
|
||||||
colName = Replace(colName, "?", "_")
|
colName = Replace(colName, "*", "_")
|
||||||
colName = Replace(colName, "*", "_")
|
colName = Replace(colName, "[", "_")
|
||||||
colName = Replace(colName, "[", "_")
|
colName = Replace(colName, "]", "_")
|
||||||
colName = Replace(colName, "]", "_")
|
colName = Replace(colName, ":", "_")
|
||||||
colName = Replace(colName, ":", "_")
|
colName = Left(colName, 31) ' Ensure sheet name is max 31 characters
|
||||||
colName = Left(colName, 31) ' Ensure sheet name is max 31 characters
|
|
||||||
|
' Check if sheet exists
|
||||||
' Check if sheet exists
|
On Error Resume Next
|
||||||
On Error Resume Next
|
Set wsNew = ThisWorkbook.Sheets(colName)
|
||||||
Set wsNew = ThisWorkbook.Sheets(colName)
|
On Error GoTo 0
|
||||||
On Error GoTo 0
|
|
||||||
|
' If sheet doesn't exist, create it
|
||||||
' If sheet doesn't exist, create it
|
If wsNew Is Nothing Then
|
||||||
If wsNew Is Nothing Then
|
Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
|
||||||
Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
|
wsNew.Name = colName
|
||||||
wsNew.Name = colName
|
End If
|
||||||
End If
|
|
||||||
|
' Clear previous content except headers
|
||||||
' Clear previous content except headers
|
wsNew.Cells.Clear
|
||||||
wsNew.Cells.Clear
|
ws.Rows(headerRow).Copy wsNew.Rows(headerRow)
|
||||||
ws.Rows(headerRow).Copy wsNew.Rows(headerRow)
|
|
||||||
|
' Apply filter and copy relevant rows
|
||||||
' Apply filter and copy relevant rows
|
ws.Range(ws.Cells(headerRow + 1, 1), ws.Cells(lastRow, ws.UsedRange.Columns.Count)).AutoFilter Field:=columnCol, Criteria1:=colValue
|
||||||
ws.Range(ws.Cells(headerRow + 1, 1), ws.Cells(lastRow, ws.UsedRange.Columns.Count)).AutoFilter Field:=columnCol, Criteria1:=colValue
|
|
||||||
|
' Ensure there's data before copying
|
||||||
' Ensure there's data before copying
|
On Error Resume Next
|
||||||
On Error Resume Next
|
Set rng = ws.Rows(headerRow + 1 & ":" & lastRow).SpecialCells(xlCellTypeVisible)
|
||||||
Set rng = ws.Rows(headerRow + 1 & ":" & lastRow).SpecialCells(xlCellTypeVisible)
|
On Error GoTo 0
|
||||||
On Error GoTo 0
|
|
||||||
|
|
||||||
|
|
||||||
|
' Turn off AutoFilter
|
||||||
' Turn off AutoFilter
|
ws.AutoFilterMode = False
|
||||||
ws.AutoFilterMode = False
|
|
||||||
|
' Adjust column width for better visibility
|
||||||
' Adjust column width for better visibility
|
wsNew.Cells.EntireColumn.AutoFit
|
||||||
wsNew.Cells.EntireColumn.AutoFit
|
|
||||||
|
' Reset worksheet variable
|
||||||
' Reset worksheet variable
|
Set wsNew = Nothing
|
||||||
Set wsNew = Nothing
|
Next colValue
|
||||||
Next colValue
|
Application.ScreenUpdating = True
|
||||||
Application.ScreenUpdating = True
|
|
||||||
|
MsgBox "Column reports generated successfully!", vbInformation
|
||||||
MsgBox "Column reports generated successfully!", vbInformation
|
End Sub
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|||||||
@ -1,48 +1,47 @@
|
|||||||
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
|
Dim yearFilter As String, programFilter As String, countyFilter As String
|
||||||
Dim yearFilter As String, programFilter As String, countyFilter As String
|
Dim rng As Range, filterRange As Range, copyRange As Range
|
||||||
Dim rng As Range, filterRange As Range, copyRange As Range
|
|
||||||
|
' Set references to sheets
|
||||||
' Set references to sheets
|
Set wsData = ThisWorkbook.Sheets("Datasheet")
|
||||||
Set wsData = ThisWorkbook.Sheets("Datasheet")
|
Set wsDash = ThisWorkbook.Sheets("Dashboard")
|
||||||
Set wsDash = ThisWorkbook.Sheets("Dashboard")
|
|
||||||
|
' Define last row of data
|
||||||
' Define last row of data
|
lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row
|
||||||
lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row
|
headerRow = 1 ' Assuming headers are in row 1
|
||||||
headerRow = 1 ' Assuming headers are in row 1
|
|
||||||
|
' Get filter values from Dashboard
|
||||||
' Get filter values from Dashboard
|
yearFilter = Trim(wsDash.Range("B7").Value) ' Year filter
|
||||||
yearFilter = Trim(wsDash.Range("B7").Value) ' Year filter
|
programFilter = Trim(wsDash.Range("C7").Value) ' Program filter
|
||||||
programFilter = Trim(wsDash.Range("C7").Value) ' Program filter
|
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:ZL100000").ClearContents
|
||||||
wsDash.Range("A10:L35").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))
|
|
||||||
|
' Apply AutoFilter using the correct column numbers
|
||||||
' Apply AutoFilter using the correct column numbers
|
filterRange.AutoFilter Field:=3, Criteria1:=programFilter ' Program (Column C = 3)
|
||||||
filterRange.AutoFilter Field:=3, Criteria1:=programFilter ' Program (Column C = 3)
|
filterRange.AutoFilter Field:=4, Criteria1:=yearFilter ' Year (Column D = 4)
|
||||||
filterRange.AutoFilter Field:=4, Criteria1:=yearFilter ' Year (Column D = 4)
|
filterRange.AutoFilter Field:=6, Criteria1:=countyFilter ' County (Column F = 6)
|
||||||
filterRange.AutoFilter Field:=6, Criteria1:=countyFilter ' County (Column F = 6)
|
|
||||||
|
' Check if visible cells exist after filtering
|
||||||
' Check if visible cells exist after filtering
|
On Error Resume Next
|
||||||
On Error Resume Next
|
Set copyRange = filterRange.Offset(1, 0).Resize(filterRange.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
|
||||||
Set copyRange = filterRange.Offset(1, 0).Resize(filterRange.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
|
On Error GoTo 0
|
||||||
On Error GoTo 0
|
|
||||||
|
If Not copyRange Is Nothing Then
|
||||||
If Not copyRange Is Nothing Then
|
' Copy headers
|
||||||
' Copy headers
|
wsData.Rows(headerRow).Copy Destination:=wsDash.Rows(9) ' Paste headers at row 9
|
||||||
wsData.Rows(headerRow).Copy Destination:=wsDash.Rows(9) ' Paste headers at row 9
|
' Copy filtered data
|
||||||
' Copy filtered data
|
copyRange.Copy
|
||||||
copyRange.Copy
|
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteValues
|
||||||
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteValues
|
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteFormats
|
||||||
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteFormats
|
Application.CutCopyMode = False
|
||||||
Application.CutCopyMode = False
|
Else
|
||||||
Else
|
MsgBox "No records found for selected filters!", vbExclamation
|
||||||
MsgBox "No records found for selected filters!", vbExclamation
|
End If
|
||||||
End If
|
End Sub
|
||||||
End Sub
|
|
||||||
|
|||||||
@ -1,94 +1,93 @@
|
|||||||
Attribute VB_Name = "ReportPerCounty"
|
Sub GenerateCountyReports()
|
||||||
Sub GenerateCountyReports()
|
Dim ws As Worksheet, wsNew As Worksheet
|
||||||
Dim ws As Worksheet, wsNew As Worksheet
|
Dim lastRow As Long, countyCol As Long, headerRow As Long
|
||||||
Dim lastRow As Long, countyCol As Long, headerRow As Long
|
Dim cell As Range, county As Variant
|
||||||
Dim cell As Range, county As Variant
|
Dim dict As Object
|
||||||
Dim dict As Object
|
Dim rng As Range
|
||||||
Dim rng As Range
|
|
||||||
|
' Set worksheet and find last row
|
||||||
' Set worksheet and find last row
|
Set ws = ThisWorkbook.Sheets("Datasheet")
|
||||||
Set ws = ThisWorkbook.Sheets("Datasheet")
|
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
|
||||||
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
|
headerRow = 1 ' Header row
|
||||||
headerRow = 1 ' Header row
|
|
||||||
|
' ?? Dynamically find "County of Residence" column
|
||||||
' ?? Dynamically find "County of Residence" column
|
countyCol = 0
|
||||||
countyCol = 0
|
For Each cell In ws.Rows(headerRow).Cells
|
||||||
For Each cell In ws.Rows(headerRow).Cells
|
If Trim(LCase(cell.Value)) = "county of residence" Then
|
||||||
If Trim(LCase(cell.Value)) = "county of residence" Then
|
countyCol = cell.Column
|
||||||
countyCol = cell.Column
|
Exit For
|
||||||
Exit For
|
End If
|
||||||
End If
|
Next cell
|
||||||
Next cell
|
|
||||||
|
' ?? Check if "County of Residence" column was found
|
||||||
' ?? Check if "County of Residence" column was found
|
If countyCol = 0 Then
|
||||||
If countyCol = 0 Then
|
MsgBox "Error: 'County of Residence' column not found!", vbCritical
|
||||||
MsgBox "Error: 'County of Residence' column not found!", vbCritical
|
Exit Sub
|
||||||
Exit Sub
|
End If
|
||||||
End If
|
|
||||||
|
' Create dictionary to store county names
|
||||||
' Create dictionary to store county names
|
Set dict = CreateObject("Scripting.Dictionary")
|
||||||
Set dict = CreateObject("Scripting.Dictionary")
|
|
||||||
|
' Loop through county column to find unique counties
|
||||||
' Loop through county column to find unique counties
|
For Each cell In ws.Range(ws.Cells(headerRow + 1, countyCol), ws.Cells(lastRow, countyCol))
|
||||||
For Each cell In ws.Range(ws.Cells(headerRow + 1, countyCol), ws.Cells(lastRow, countyCol))
|
county = Trim(cell.Value)
|
||||||
county = Trim(cell.Value)
|
If county <> "" And Not dict.exists(county) Then
|
||||||
If county <> "" And Not dict.exists(county) Then
|
dict.Add county, Nothing
|
||||||
dict.Add county, Nothing
|
End If
|
||||||
End If
|
Next cell
|
||||||
Next cell
|
|
||||||
|
' Turn off screen updating for better performance
|
||||||
' Turn off screen updating for better performance
|
Application.ScreenUpdating = False
|
||||||
Application.ScreenUpdating = False
|
|
||||||
|
' Create sheets for each county and copy relevant data
|
||||||
' Create sheets for each county and copy relevant data
|
For Each county In dict.keys
|
||||||
For Each county In dict.keys
|
' Check if sheet exists
|
||||||
' Check if sheet exists
|
On Error Resume Next
|
||||||
On Error Resume Next
|
Set wsNew = ThisWorkbook.Sheets(county)
|
||||||
Set wsNew = ThisWorkbook.Sheets(county)
|
On Error GoTo 0
|
||||||
On Error GoTo 0
|
|
||||||
|
' If sheet doesn't exist, create it
|
||||||
' If sheet doesn't exist, create it
|
If wsNew Is Nothing Then
|
||||||
If wsNew Is Nothing Then
|
Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
|
||||||
Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
|
wsNew.Name = county
|
||||||
wsNew.Name = county
|
End If
|
||||||
End If
|
|
||||||
|
' Clear previous content
|
||||||
' Clear previous content
|
wsNew.Cells.Clear
|
||||||
wsNew.Cells.Clear
|
|
||||||
|
' Copy headers
|
||||||
' Copy headers
|
ws.Rows(headerRow).Copy Destination:=wsNew.Rows(headerRow)
|
||||||
ws.Rows(headerRow).Copy Destination:=wsNew.Rows(headerRow)
|
|
||||||
|
' Filter and copy data
|
||||||
' Filter and copy data
|
ws.Range(ws.Cells(headerRow, 1), ws.Cells(lastRow, ws.UsedRange.Columns.Count)).AutoFilter Field:=countyCol, Criteria1:=county
|
||||||
ws.Range(ws.Cells(headerRow, 1), ws.Cells(lastRow, ws.UsedRange.Columns.Count)).AutoFilter Field:=countyCol, Criteria1:=county
|
Set rng = ws.Range(ws.Cells(headerRow + 1, 1), ws.Cells(lastRow, ws.UsedRange.Columns.Count)).SpecialCells(xlCellTypeVisible)
|
||||||
Set rng = ws.Range(ws.Cells(headerRow + 1, 1), ws.Cells(lastRow, ws.UsedRange.Columns.Count)).SpecialCells(xlCellTypeVisible)
|
|
||||||
|
If Not rng Is Nothing Then
|
||||||
If Not rng Is Nothing Then
|
rng.Copy
|
||||||
rng.Copy
|
wsNew.Cells(2, 1).PasteSpecial Paste:=xlPasteValues
|
||||||
wsNew.Cells(2, 1).PasteSpecial Paste:=xlPasteValues
|
wsNew.Cells(2, 1).PasteSpecial Paste:=xlPasteFormats
|
||||||
wsNew.Cells(2, 1).PasteSpecial Paste:=xlPasteFormats
|
Application.CutCopyMode = False
|
||||||
Application.CutCopyMode = False
|
End If
|
||||||
End If
|
|
||||||
|
' Turn off AutoFilter
|
||||||
' Turn off AutoFilter
|
ws.AutoFilterMode = False
|
||||||
ws.AutoFilterMode = False
|
|
||||||
|
' Adjust column width
|
||||||
' Adjust column width
|
wsNew.Cells.EntireColumn.AutoFit
|
||||||
wsNew.Cells.EntireColumn.AutoFit
|
|
||||||
|
' Remove sheet if no data copied
|
||||||
' Remove sheet if no data copied
|
If wsNew.UsedRange.Rows.Count = 1 Then
|
||||||
If wsNew.UsedRange.Rows.Count = 1 Then
|
Application.DisplayAlerts = False
|
||||||
Application.DisplayAlerts = False
|
wsNew.Delete
|
||||||
wsNew.Delete
|
Application.DisplayAlerts = True
|
||||||
Application.DisplayAlerts = True
|
End If
|
||||||
End If
|
|
||||||
|
Set wsNew = Nothing
|
||||||
Set wsNew = Nothing
|
Next county
|
||||||
Next county
|
|
||||||
|
' Turn on screen updating
|
||||||
' Turn on screen updating
|
Application.ScreenUpdating = True
|
||||||
Application.ScreenUpdating = True
|
|
||||||
|
MsgBox "County reports generated successfully!", vbInformation
|
||||||
MsgBox "County reports generated successfully!", vbInformation
|
End Sub
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|||||||
@ -1,34 +1,33 @@
|
|||||||
Attribute VB_Name = "ResetFilters"
|
|
||||||
|
Sub ResetFilters()
|
||||||
Sub ResetFilters()
|
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
|
Dim fullRange As Range
|
||||||
Dim fullRange As Range
|
|
||||||
|
' Set references to sheets
|
||||||
' Set references to sheets
|
Set wsData = ThisWorkbook.Sheets("Datasheet")
|
||||||
Set wsData = ThisWorkbook.Sheets("Datasheet")
|
Set wsDash = ThisWorkbook.Sheets("Dashboard")
|
||||||
Set wsDash = ThisWorkbook.Sheets("Dashboard")
|
|
||||||
|
' Define last row of data
|
||||||
' Define last row of data
|
lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row
|
||||||
lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row
|
headerRow = 1 ' Assuming headers are in row 1
|
||||||
headerRow = 1 ' Assuming headers are in row 1
|
|
||||||
|
' Clear previous results
|
||||||
' Clear previous results
|
wsDash.Range("A10:L35").ClearContents
|
||||||
wsDash.Range("A10:L35").ClearContents
|
|
||||||
|
' Remove any active filters
|
||||||
' Remove any active filters
|
If wsData.AutoFilterMode Then wsData.AutoFilterMode = False
|
||||||
If wsData.AutoFilterMode Then wsData.AutoFilterMode = False
|
|
||||||
|
' Copy all data
|
||||||
' Copy all data
|
Set fullRange = wsData.Range(wsData.Cells(headerRow, 1), wsData.Cells(lastRow, wsData.UsedRange.Columns.Count))
|
||||||
Set fullRange = wsData.Range(wsData.Cells(headerRow, 1), wsData.Cells(lastRow, wsData.UsedRange.Columns.Count))
|
|
||||||
|
' Copy headers
|
||||||
' Copy headers
|
wsData.Rows(headerRow).Copy Destination:=wsDash.Rows(9)
|
||||||
wsData.Rows(headerRow).Copy Destination:=wsDash.Rows(9)
|
|
||||||
|
' Copy entire dataset
|
||||||
' Copy entire dataset
|
fullRange.Offset(1, 0).Copy
|
||||||
fullRange.Offset(1, 0).Copy
|
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteValues
|
||||||
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteValues
|
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteFormats
|
||||||
wsDash.Cells(10, 1).PasteSpecial Paste:=xlPasteFormats
|
Application.CutCopyMode = False
|
||||||
Application.CutCopyMode = False
|
End Sub
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user