F
FaisalM
I've been working on a scenario where I need to set workgroup setting for
inactive resrouces to NONE in project plans.
I was able to create a macro to set the workgroup to none for first inactive
resrouce in a plan & fill that value out to other inactive users in that
plan. But that macro doesn't work on other plans as the number of inactive
enterprise resoruces in each plan could be different.
Can someone make this work?
I'm not an very good at macros, but here the code.
Sub FMTest10()
ViewApply Name:="*Resource &Sheet"
SelectResourceColumn Column:="Type"
TableEdit Name:="&Entry", TaskTable:=False, NewName:="", FieldName:="",
NewFieldName:="Inactive", Title:="", Width:=10, Align:=2, ShowInMenu:=True,
LockFirstColumn:=True, DateFormat:=255, RowHeight:=1, ColumnPosition:=2,
AlignTitle:=1
TableApply Name:="&Entry"
SelectResourceColumn Column:="Type"
TableEdit Name:="&Entry", TaskTable:=False, NewName:="", FieldName:="",
NewFieldName:="Workgroup", Title:="", Width:=10, Align:=2, ShowInMenu:=True,
LockFirstColumn:=True, DateFormat:=255, RowHeight:=1, ColumnPosition:=3,
AlignTitle:=1
TableApply Name:="&Entry"
SetResourceField Field:="Workgroup", Value:="None"
SelectResourceField Row:=0, Column:="Workgroup"
FillDown
End Sub
--
FaisalM
http://www.FaisalMasood.com/
My Project Blog
http://msp.faisalmasood.com/
My Sharepoint Blog
http://sps.faisalmasood.com/
inactive resrouces to NONE in project plans.
I was able to create a macro to set the workgroup to none for first inactive
resrouce in a plan & fill that value out to other inactive users in that
plan. But that macro doesn't work on other plans as the number of inactive
enterprise resoruces in each plan could be different.
Can someone make this work?
I'm not an very good at macros, but here the code.
Sub FMTest10()
ViewApply Name:="*Resource &Sheet"
SelectResourceColumn Column:="Type"
TableEdit Name:="&Entry", TaskTable:=False, NewName:="", FieldName:="",
NewFieldName:="Inactive", Title:="", Width:=10, Align:=2, ShowInMenu:=True,
LockFirstColumn:=True, DateFormat:=255, RowHeight:=1, ColumnPosition:=2,
AlignTitle:=1
TableApply Name:="&Entry"
SelectResourceColumn Column:="Type"
TableEdit Name:="&Entry", TaskTable:=False, NewName:="", FieldName:="",
NewFieldName:="Workgroup", Title:="", Width:=10, Align:=2, ShowInMenu:=True,
LockFirstColumn:=True, DateFormat:=255, RowHeight:=1, ColumnPosition:=3,
AlignTitle:=1
TableApply Name:="&Entry"
SetResourceField Field:="Workgroup", Value:="None"
SelectResourceField Row:=0, Column:="Workgroup"
FillDown
End Sub
--
FaisalM
http://www.FaisalMasood.com/
My Project Blog
http://msp.faisalmasood.com/
My Sharepoint Blog
http://sps.faisalmasood.com/