Total de Recursos-Urgente

David el codigo funciona correctamente.

Ahora como hago para colocar el resultado sobre la barra gantt.

Gracias.

Monica.

David wrote:

Mira si este código te sirve para principiar a resolver tu problema:

Sub ContarAsignaciones()
Dim R, N As Long
N = 0
For R = 1 To ActiveProject.Resources.Count
If ActiveProject.Resources(R).Assignments.Count > 0 Then N = N + 1
Next R
MsgBox "Asignaciones actuales: " & N & " recursos"
End Sub


"Monica Rodriguez" escribió:

> Saludos amigos.
>
> Quisiera que me ayuden con una macro que me permita contar los recursos
> que han sido asignados a las tareas de mi proyecto, e tratado de encontrar
> un campo en particular, pero ninguno muestra el total de recursos que se
> han asignado al proyecto.
>
> Gracias.
>
> Monica.
>
>
>

ACABO DE AÑADIRLE LA SIGUIENTES LINEAS:

SelectTaskColumn Column:="Número16"
CustomFieldSetFormula FieldID:=pjCustomTaskNumber16, Formula:=N

Funciona bien, pero para toda la columna,, es decir que me muestra la
cantidad de recursos iguales en toda la columna,, como puedo hacerlo para
que cuente los recursos solo por tarea para luego aparezca en la barra de
gantt de cada uno.

Gracias.



Monica Rodriguez wrote:

David el codigo funciona correctamente.

Ahora como hago para colocar el resultado sobre la barra gantt.

Gracias.

Monica.

David wrote:

> Mira si este código te sirve para principiar a resolver tu problema:

> Sub ContarAsignaciones()
> Dim R, N As Long
> N = 0
> For R = 1 To ActiveProject.Resources.Count
> If ActiveProject.Resources(R).Assignments.Count > 0 Then N = N + 1
> Next R
> MsgBox "Asignaciones actuales: " & N & " recursos"
> End Sub


> "Monica Rodriguez" escribió:

> > Saludos amigos.
> >
> > Quisiera que me ayuden con una macro que me permita contar los recursos
> > que han sido asignados a las tareas de mi proyecto, e tratado de

encontrar

> > un campo en particular, pero ninguno muestra el total de recursos que se
> > han asignado al proyecto.
> >
> > Gracias.
> >
> > Monica.
> >
> >
> >

Eres tremenda. Sólo salgo a almorzar, y encuentro cantidades de correo
contándonos lo que has hecho. ¡Qué bueno saber que hay alguien que trabaja
con las ideas que se exponen!

El problema es que no debes mezclar campos de recursos con campos de tareas.
Considera el siguiente código:

Sub RecursosTarea()
Dim T As Long
For T = 1 To ActiveProject.Tasks.Count
ActiveProject.Tasks(T).Number16 =
ActiveProject.Tasks(T).Assignments.Count
Next T
End Sub


"Monica Rodriguez" escribió:

ACABO DE AÑADIRLE LA SIGUIENTES LINEAS:

SelectTaskColumn Column:="Número16"
CustomFieldSetFormula FieldID:=pjCustomTaskNumber16, Formula:=N

Funciona bien, pero para toda la columna,, es decir que me muestra la
cantidad de recursos iguales en toda la columna,, como puedo hacerlo para
que cuente los recursos solo por tarea para luego aparezca en la barra de
gantt de cada uno.

Gracias.



Monica Rodriguez wrote:

> David el codigo funciona correctamente.

> Ahora como hago para colocar el resultado sobre la barra gantt.

> Gracias.

> Monica.

> David wrote:

> > Mira si este código te sirve para principiar a resolver tu problema:

> > Sub ContarAsignaciones()
> > Dim R, N As Long
> > N = 0
> > For R = 1 To ActiveProject.Resources.Count
> > If ActiveProject.Resources(R).Assignments.Count > 0 Then N = N + 1
> > Next R
> > MsgBox "Asignaciones actuales: " & N & " recursos"
> > End Sub


> > "Monica Rodriguez" escribió:

> > > Saludos amigos.
> > >
> > > Quisiera que me ayuden con una macro que me permita contar los recursos
> > > que han sido asignados a las tareas de mi proyecto, e tratado de
encontrar
> > > un campo en particular, pero ninguno muestra el total de recursos que se
> > > han asignado al proyecto.
> > >
> > > Gracias.
> > >
> > > Monica.
> > >
> > >
> > >

ACABO DE AÑADIRLE LA SIGUIENTES LINEAS:

SelectTaskColumn Column:="Número16"
CustomFieldSetFormula FieldID:=pjCustomTaskNumber16, Formula:=N

Funciona bien, pero para toda la columna,, es decir que me muestra la
cantidad de recursos iguales en toda la columna,, como puedo hacerlo para
que cuente los recursos solo por tarea para luego aparezca en la barra de
gantt de cada uno.

Gracias.



Monica Rodriguez wrote:

David el codigo funciona correctamente.

Ahora como hago para colocar el resultado sobre la barra gantt.

Gracias.

Monica.

David wrote:

> Mira si este código te sirve para principiar a resolver tu problema:

> Sub ContarAsignaciones()
> Dim R, N As Long
> N = 0
> For R = 1 To ActiveProject.Resources.Count
> If ActiveProject.Resources(R).Assignments.Count > 0 Then N = N + 1
> Next R
> MsgBox "Asignaciones actuales: " & N & " recursos"
> End Sub


> "Monica Rodriguez" escribió:

> > Saludos amigos.
> >
> > Quisiera que me ayuden con una macro que me permita contar los recursos
> > que han sido asignados a las tareas de mi proyecto, e tratado de

encontrar

> > un campo en particular, pero ninguno muestra el total de recursos que se
> > han asignado al proyecto.
> >
> > Gracias.
> >
> > Monica.
> >
> >
> >

¿Viste mi último post?

Suponiendo que lo que necesitas es que en el campo personalizado Número16 se
muestre el número de recursos asignados a cada tarea, mira primero mi último
mensaje. Luego haces lo siguiente:

1. Ejecutas Formato - Estilos de barra

2. En la mitad superior de la ventana, seleccionas el tipo de tarea en la
que quieres desplegar el número de asignaciones. En la mitad inferior, en el
separador Texto, ya sea a la izquierda o a la derecha, seleccionas el campo
Número16.

Nos cuentas...

"Monica Rodriguez" escribió:

ACABO DE AÑADIRLE LA SIGUIENTES LINEAS:

SelectTaskColumn Column:="Número16"
CustomFieldSetFormula FieldID:=pjCustomTaskNumber16, Formula:=N

Funciona bien, pero para toda la columna,, es decir que me muestra la
cantidad de recursos iguales en toda la columna,, como puedo hacerlo para
que cuente los recursos solo por tarea para luego aparezca en la barra de
gantt de cada uno.

Gracias.



Monica Rodriguez wrote:

> David el codigo funciona correctamente.

> Ahora como hago para colocar el resultado sobre la barra gantt.

> Gracias.

> Monica.

> David wrote:

> > Mira si este código te sirve para principiar a resolver tu problema:

> > Sub ContarAsignaciones()
> > Dim R, N As Long
> > N = 0
> > For R = 1 To ActiveProject.Resources.Count
> > If ActiveProject.Resources(R).Assignments.Count > 0 Then N = N + 1
> > Next R
> > MsgBox "Asignaciones actuales: " & N & " recursos"
> > End Sub


> > "Monica Rodriguez" escribió:

> > > Saludos amigos.
> > >
> > > Quisiera que me ayuden con una macro que me permita contar los recursos
> > > que han sido asignados a las tareas de mi proyecto, e tratado de
encontrar
> > > un campo en particular, pero ninguno muestra el total de recursos que se
> > > han asignado al proyecto.
> > >
> > > Gracias.
> > >
> > > Monica.
> > >
> > >
> > >