MACRO

Hola, Mónica.

Voy a cambiar un poco tu algoritmo. Revisa si procede...

Primero:
Estoy suponiendo que "Avance_de_produccion" es el campo personalizado
"Number5", y que "Total_de_produccion" es el campo personalizado "Number6".
Esto para poder probarlo en un proyecto mío en el que ya he utilizado los
campos Number1...4.

Segundo:
No creo muy conveniente que utilices el campo Fecha Límite ("DeadLine"). En
mi criterio, si lo que quieres es aumentar la duración de la tarea, deberías
utilizar el campo "Final" ("Finish"). Aquí podríamos diferir en criterios,
pero revisa la lógica del proceso, y tú decides cuál será la mejor opción.


Considera las siguientes líneas de código, en la que (como te decía) tomo
como ejemplo a la tarea No.5:

If ActiveProject.Tasks(5).Number5 < ActiveProject.Tasks(5).Number6 _
And Int(ActiveProject.Tasks(5).Finish) < Date Then
ActiveProject.Tasks(5).Finish = Date & " " & Time
End If

Si se cumple la condición, cambio la fecha final de la tarea a la fecha y
hora del reloj del sistema, lo que automáticamente define una nueva duración
para la tarea en cuestión. Pruébalo con una tarea x de tu proyecto, y si
procede, podrías utilizar

ActiveProject.Tasks.Count

para hacer un ciclo que recorriera todas las tareas de tu proyecto. Otra
idea, podrías evaluar con:

ActiveProject.Tasks( j ).Summary

si la tarea es una tarea sumario, y no aplicarle el cambio de fecha.



Espero que estas ideas te sirvan como punto de partida. Nos cuentas.

Saludos cordiales...




"Monica Rodriguez" escribió:

Saludos amigos.

Tengo el siguiente algoritmo, quisiera que por favor me ayuden a
convertirlo en macro :


Si (Avance_de_produccion < Total_de_produccion) Y (Fecha Limite < F_actual
ENTONCES

Duracion = (Fecha actual - Fecha limite), de lo contrario que se mantenga
[Duracion]

Como veran lo que deseo es incrementar la duracion cuando la cantidad de
produccion no se llega alcanzar con la duracion inicial.

La ayuda que necesito, es como hacerlo en una macro.

Gracias por toda ayuda o recomendaciones.

Monica.