title | keywords | f1_keywords | ms.service | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|---|
Application.EditGoTo method (Project) |
vbapj.chm213 |
|
project-server |
|
cd2c886b-fddf-d7b8-8f16-51a3af5f0005 |
06/08/2017 |
medium |
Scrolls to a resource, task, or date.
expression. EditGoTo
( _ID_
, _Date_
)
expression A variable that represents an Application object.
Name | Required/Optional | Data type | Description |
---|---|---|---|
ID | Optional | Long | A number that specifies the identification number of the task or resource to display in the active pane. |
Date | Optional | Variant | A number or string that specifies the first date to display in the active pane. |
Boolean
The following example prompts the user for a date or a task name, and then scrolls to that date or task in the active pane. It assumes the user is in a task view.
Sub PromptUserForEditGotoArguments()
Dim Entry As String ' Date or task name entered by user
Entry = InputBox$("Enter a date or a task name to which you want to scroll in the active pane.")
' If user enters a date, scroll to a date in the active pane.
If IsDate(Entry) Then
EditGoTo Date:=Entry
' Otherwise, scroll to a task in the active pane.
Else
EditGoTo ID:=ActiveProject.Tasks(Entry).ID
End If
End Sub
[!includeSupport and feedback]