Jump to content
cottavi

Control de proyecto

Recommended Posts

 

Saludos al foro.

De antemano agradezco la colaboración del grupo.

Estoy tratando de hacer una pequeña hoja de calculo (como si fuese un cronograma de gantt) que me sirva para llevar un control de las fechas de inicio y final de los entregables de un proyecto.

Solo requiero marcar en un color característico el rango de días que va desde el inicio de un entregable hasta su fecha final con el fin de mantener cierto orden y poder comprometer una fecha de entrega de dicho producto. También me gustaría que la rutina incluyera los días feriados.

Anexo encontraran un archivo donde coloque un ejemplo de los que deseo hacer.

Actualmente he tratado de resolverlo con formulas en cada celda, manteniendo fijas las filas y las columnas (donde convenga) para ello he utilizado in simple if, sin exito.

Agradeciendo de antemano su tiempo y la ayuda prestada.

Saludos.

LDP-Santa Cruz-30-08-2017-Rev1.xlsx

Share this post


Link to post
Share on other sites
En 31/8/2017 at 14:37 , Antoni dijo:

Intenta apañarte con esto.

Abre el adjunto y pulsa sobre el play azul de la columna C, el resto por intuición.

Si no quieres relaciones, basta con borrar la columna PRECEDENTES.

Diagrama de barras y relaciones III.xlsm

Gracias Antoni,

Es lo que necesitaba, algo sencillo y practico.

Saludos.

Share this post


Link to post
Share on other sites
En 1/9/2017 at 3:26 , Haplox dijo:

Después del archivo de Antoni el mío parece de jugete :( pero te dejo otra opción @cottavi ya que lo tenía preparado

Copia de LDP-Santa Cruz-30-08-2017-Rev1.zip

Gracias Haplox.

Es facil de seguir, lo unico que no veo es el calculo automatico cuando modifico la duración de la actividad.

Saludos.

Share this post


Link to post
Share on other sites

@cottavi , el cronograma se crea en función de la fecha de inicio y de salida. Si modificas la duración se modifican estas fechas.
 

dI = celda.Offset(0, 3).Value' Valor de fecha de entrada (las filas se establecen en función de la columna H)'
dF = celda.Offset(0, 4).Value' Valor de fecha de salida (las filas se establecen en función de la columna H)'

Fecha1 = Application.Match(CLng(dI), rFechas)'buscamos la fecha de entrada en en las filas con todas las fechas'
cfecha1 = rFechas.Cells(Fecha1).Address

Fecha2 = Application.Match(CLng(dF), rFechas)'buscamos la fecha de salida en en las filas con todas las fechas'
cfecha2 = rFechas.Cells(Fecha2).Address

Set PERIODO = Range(cfecha1 & ":" & cfecha2)'establecemos el rango de duración, desde fecha de entrada hasta fecha de salida'

Set ds12 = Application.Intersect(Range(cfecha).EntireRow, PERIODO.EntireColumn)'buscamos la interseción de la fila de la celda activa en la columna H, con las columnas de la duración'
ds12.Interior.Color = RGB(255, 0, 0)'las celdas que intersectan las coloreamos

Espero que te quede claro :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png