Select from Dropdown menu if certain value is in another field

Hi DavidSchriever,

Yes, it's possible but I would need to see your data so I can help you with the formula. Thank you.

Kind Regards.

I will add a screenshot later on but it's actually simple I just don't know if it's possible.
<br />I have a checksheet, which employees have to use to get to a certain result.
<br />Based on the conditions found there are multiple choice answers (a drop down menu)
<br />If certain conditions are found a part of the checklist no longer applies. so these should be canceled, for that checklist, so that someone, who might have forgotten his coffee does not do unnecessery checklist steps
<br />

Hi DavidSchriever!

I'm Jen, and I'd be happy to help you out with this issue.

May you please provide a screenshot of your data with sensitive information removed and give us a bit more details of what your expected result is or perhaps provide an example? Looking forward to your reply. Thanks in advance.

Kind Regards,

Jen

It is OK to use the Org Chart Wizard to create the structure of an org chart, then to use External Data to update the data. However, they have conflicting methods of displaying data. In this case, I recommend turning off the Data Graphics by unticking the Data \ Advanced Data Linking \ Advanced Data Graphics dropdown menu before linking the data.
<br />Alternatively, if the shapes have already been linked, you may be able to:
<br />1. Ensure nothing is selected
<br />2. Tick the Data \ Show/Hide \ Data Graphics option to open the panel, then untick any fields for the recordset
<br />Or
<br />1. Select all of the org chart shapes
<br />2. Apply the No Data Graphic option from the Data Graphics by unticking the Data \ Advanced Data Linking \ Advanced Data Graphics dropdown
<br />

Hallo,

das wäre das Makro. Ich setze hier Attribut1 auf "Ja", wenn alle Vorgänger abgeschlossen sind oder das Startdatum vor heute+7Tage liegt. Sowohl das Feld als auch der Zeitabstand lassen sich ändern.

Sub CurrentTasks()

'https://answers.microsoft.com/de-de/msoffice/forum/all/anstehende-aufgaben-ms-project-2013/bb0b66cd-573d-4d8b-9cca-2b8e80bcd53f

'This macro will set a flag field to True, if all predecessors are completed or start date is before actual date + a defined period

'Flag Field to be used. Please use always "Flag", code is not using language dependent field names

Const c_FlagField = "Flag1"

'Set value for x days in future (not working days!!!)

Const c_FutureDays = 7

Dim P As Project

Dim T As Task

Dim PT As Task

Dim v_FlagField As Double

Dim v_CFTrue As String

Dim v_CFFalse As String

Set P = ActiveProject

'Get internal field ID

v_FlagField = Application.FieldNameToFieldConstant(c_FlagField, pjTask)

'To be language independent, we need to get text for true and false

'Set formula with result True and write to variable v_CFTrue

Application.CustomFieldSetFormula FieldID:=v_FlagField, Formula:="1=1"

CustomFieldPropertiesEx FieldID:=v_FlagField, Attribute:=pjFieldAttributeFormula, SummaryCalc:=pjCalcFormula, GraphicalIndicators:=False

v_CFTrue = P.ProjectSummaryTask.GetField(v_FlagField)

'Set formula with result False and write to variable v_CFFalse

Application.CustomFieldSetFormula FieldID:=v_FlagField, Formula:="1=0"

Application.CustomFieldPropertiesEx FieldID:=v_FlagField, Attribute:=pjFieldAttributeFormula, SummaryCalc:=pjCalcFormula, GraphicalIndicators:=False

v_CFFalse = P.ProjectSummaryTask.GetField(v_FlagField)

'Remove formula from field

Application.CustomFieldDelete (v_FlagField)

For Each T In P.Tasks

If Not T Is Nothing Then

'Initialize flag with False

T.SetField FieldID:=v_FlagField, Value:=v_CFFalse

'If there are any predecessors, we need to check completion, as long as task is not yet completed

If T.PredecessorTasks.Count > 0 And T.PercentComplete <> 100 Then

'Initalize field in this case with True, to set False if there are incomplete predecessors

T.SetField FieldID:=v_FlagField, Value:=v_CFTrue

'Check all predecessors

For Each PT In T.PredecessorTasks

' if there is any incomplete predecessor, set flag to false

If PT.PercentComplete < 100 Then

T.SetField FieldID:=v_FlagField, Value:=v_CFFalse

End If

Next PT

Else

'If there are no predecessors, we want to flag task if should have been started

If DateSerial(Year(T.Start), Month(T.Start), Day(T.Start)) <= DateAdd("d", c_FutureDays, Date) And T.PercentComplete <> 100 Then

T.SetField FieldID:=v_FlagField, Value:=v_CFTrue

End If

End If

End If

Next T

End Sub

Viele Grüße

Barbara