• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2807
  • Last Modified:

Changing font for task that are 100% complete Automatically

I would like to setup something in MS project that would automatically change font to gray color when i complete task to 100%. also if i would like to switch it back to normal if somereason it is changed back from 100% to anything less then that... is that possible?
0
dharmesh_a
Asked:
dharmesh_a
  • 2
1 Solution
 
lyonstCommented:
Just insert and run this Macro

Sub Test()
Dim tsk As Task
For Each tsk In ActiveProject.Tasks
    If Not tsk Is Nothing Then
        If tsk.PercentComplete = 100 Then
            SelectTaskField Row:=tsk.ID, _
                      RowRelative:=False, Column:="Name"
            'Font Bold:=True, Color:=pjRed
            Font32Ex CellColor:=&HF0D9C6
        End If
        If tsk.PercentComplete <> 100 Then
            SelectTaskField Row:=tsk.ID, _
                      RowRelative:=False, Column:="Name"
            'Font Bold:=True, Color:=pjRed
            Font32Ex CellColor:=&HFFFFFF
        End If
    End If
Next
End Sub

You can Set up a Shortcut to Run it..
0
 
lyonstCommented:
Can also use

Font Bold:=True, Color:=pjGray

Instead of Font32Ex CellColor:=&HF0D9C6

Or Red as on the example that is commented out
0
 
xtermieCommented:
You can then use the macro either as a BUTTON on a custom toolbar which you can run anytime you want, or set it on the OnOpen or OnClose or OnUpdate or OnSave events of the file, so that the formatting is down automatically...the sub may need some tweaking though...can you post a small sample of a project?
0
 
leonstrykerCommented:
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
0

Featured Post

2018 Annual Membership Survey

Here at Experts Exchange, we strive to give members the best experience. Help us improve the site by taking this survey today! (Bonus: Be entered to win a great tech prize for participating!)

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now