EditGoto Method
Scrolls to a resource, task, or date.
Syntax
*expression *.EditGoto(ID, Date)
*expression * Optional. An expression that returns an Application object.
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.
Example
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
Applies to | Application Object
See Also | Find Method | FindNext Method | FindPrevious Method | GotoNextOverallocation Method | Sort Method