Skip to content

Latest commit

 

History

History
64 lines (40 loc) · 1.53 KB

Project.Application.EditGoTo.md

File metadata and controls

64 lines (40 loc) · 1.53 KB
title keywords f1_keywords ms.service api_name ms.assetid ms.date ms.localizationpriority
Application.EditGoTo method (Project)
vbapj.chm213
vbapj.chm213
project-server
Project.Application.EditGoTo
cd2c886b-fddf-d7b8-8f16-51a3af5f0005
06/08/2017
medium

Application.EditGoTo method (Project)

Scrolls to a resource, task, or date.

Syntax

expression. EditGoTo( _ID_, _Date_ )

expression A variable that represents an Application object.

Parameters

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.

Return value

Boolean

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

[!includeSupport and feedback]