Loading...
Quick Links

Reply To: Warning message when indenting tasks?

Home Forums Discussion Warning message when indenting tasks? Reply To: Warning message when indenting tasks?

#6393
CommunityCommunity
Keymaster
I got the code to work, it looks fantastic!
I would like to make it a bit more userfriendly by prompting users and allowing them to accept this change, or not. I wrote the following code, but it gets stuck on the prompt, no matter which button I press the message box reappears. I am certainly missing some piece of information here. Thanks for any help.
    If (Field = pjTaskOutlineLevel And ActiveCell.Task.OutlineLevel < NewVal) And _
(ActiveProject.Tasks(ActiveCell.Task.ID – 1).ResourceNames <> “”) Then
If Response = MsgBox(“The preceeding task has resources assigned.”, vbOKCancel) = vbCancel Then
Info.Cancel = True
Else
OutlineIndent
End If
End If