Excel_User18
New Member
- Joined
- Sep 4, 2018
- Messages
- 4
I am trying to write a macro to group my project schedule in Excel based on the number of periods in the WBS column. This is not working, but I feel as though I am close.
Sub Group_1()
Dim cell As Range
Dim WorkRng As Range
Rows.ClearOutline
On Error Resume Next
xTitleId = "Grouping"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each cell In WorkRng
cell.EntireRow.OutlineLevel = cell.Formula = "=LEN(cell.value)-LEN(SUBSTITUTE(cell.value,".",""))+1"
Next
With ActiveSheet.Outline
.AutomaticStyles = False
.SummaryRow = xlAbove
.SummaryColumn = xlRight
End With
End Sub
Sub Group_1()
Dim cell As Range
Dim WorkRng As Range
Rows.ClearOutline
On Error Resume Next
xTitleId = "Grouping"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each cell In WorkRng
cell.EntireRow.OutlineLevel = cell.Formula = "=LEN(cell.value)-LEN(SUBSTITUTE(cell.value,".",""))+1"
Next
With ActiveSheet.Outline
.AutomaticStyles = False
.SummaryRow = xlAbove
.SummaryColumn = xlRight
End With
End Sub