Ms Project VBA Macro dividir tareas simultáneamente

Macro dividir tareas simultáneamente (MS Project)

En algunas ocasiones por motivos de fuerza mayor como es el caso del COVID19, en los proyectos  es necesario realizar un alto en las tareas programadas y dividirlas con el fin de continuar en una fecha posterior. Esta tarea en el software se puede realizar de manera manual una a una de las actividades, sin embargo, cuando son muchas tareas se vuelve una tarea tediosa. Por esta razón les dejo una macro en vba que les puede facilitar esta labor. Antes de ejecutar la macro es importante que tengan seleccionadas todas las tareas que van a dividir, y meter los datos de fecha inicial y la fecha final del GAP en el que se quiere mover la tarea en el formato fecha. 

Sub Dividirtarea()

Dim UpdateTask As Task

Dim fechainicial As Date

Dim fechafinal As Date

If ActiveSelection = 0 Then

MsgBox "Seleccione las tareas que va a dividir"

Exit Sub

End If

fechainicial = InputBox("Ingrese la fecha inical de la división") 'Recuerde ingresar este dato en formato fecha

fechafinal = InputBox("Ingrese la fecha fecha final de la división") 'Recuerde ingresar este dato en formato fecha y que estas fechas deben estar dentro del rango de las tareas

For Each UpdateTask In ActiveSelection.Tasks

UpdateTask.Split StartSplitOn:=fechainicial, EndSplitOn:=fechafinal

Next UpdateTask

End Sub