Construyendo en Revit

Conversando sobre un proyecto especifico hace muchos años con un prestigioso ingeniero rescaté lo siguiente:

"Cuando descubres una falencia y mejoras un proyecto en el papel en su etapa de diseño, el costo será de $1 y la ganancia de millones. Cuando dejas pasar el tiempo esta proporción se irá invirtiendo de manera opuesta hasta llegar al punto donde la construcción esté terminada y el costo de cambiar o afrontar una falencia cueste millones y la ganancia de hacerlo sea de $1"

Lo que describo a continuación es un ejemplo que realice por el año 2010 que desde entonces lo uso para dar clases de Revit, e independiente del aprendizaje del programa para el modelado siempre intento ser lo más claro posible definiendo que, si bien lo que hacemos es un dibujo, el resultado debe representar una simulación constructiva del proyecto.

La información de entrada o de punto de partida:

Aplicando las Normas ISO 9001 a la construcción

Si había cosas engorrosas en la cual involucrarse este fue un gran hallazgo! Reescribir las normas ISO 9001 para una empresa constructora.
La revisión de los procesos llevó un año, y sin quererlo y de curioso esto me llevó a cuatro cursos sobre calidad y a estudiar el estándar del PMI. Como conclusión lo más importante fue razonar de que podría revisar, mejorar y optimizar los procesos de manera infinita por lo lejano de los rincones hacia esto nos lleva pero que por más robusto y sofisticado que esto resulte, se vuelve completamente frágil y vulnerable cuando la cabeza del organigrama tuvo un mal día y decidió restarle importancia al asunto.

De aquí en adelante el desarrollo del trabajo aplicado ya que de poco iré agregando el desarrollo de los aplicativos en Excel que intentan resolver varias aspectos del seguimiento de la calidad del proceso.

La estructura del Manual se dividió de la siguiente manera entendiendo que:

De la Norma surgen los "MANUALES ESCRITOS", de lo anterior surgen los "PROCEDIMIENTOS GENERALES", que de estos pueden derivar o no en "PROCEDIMIENTOS ESPECÍFICO" pero siempre de aquí en adelante surgirán los "FORMULARIOS A COMPLETAR" y que solo con estos se podrá seguir adelante con los "FORMULARIOS DE SEGUIMIENTO"

El total del manual fue escrito en Excel ya que su sistema de pestañas y mis escasos conocimientos de programación me permitan concentrar en un solo archivo el total del manual y de esta manera controlar mejor las versiones. Entre otras una macro escrita de suma utilidad fue la Macro para unificar los formatos en un Manual.

La Estructura del manual quedó de la siguiente manera:

La estructura de la información para obras edilicias

Desde hace un tiempo percibí el enorme conflicto que existe en este rubro con el manejo de la información como herramienta vital del proceso de construir. 

Lo anterior resumido en un lenguaje mundano significa que al no haber un consenso entre las partes interesadas en las maneras, métodos y formatos de organizar y compartir la información nos lleva indefectiblemente al desgaste de invertir tiempo en interpretar la personalización de formatos en los planos de proyectos, sobre todo en la manera de dibujar y presentarlos, a tener que interpretar diversas planillas y controles que intentan reflejar lo mismo pero de formas diametralmente opuestas.

Hasta acá el desgaste solo se traduce en tiempo y claro que atentan contra la capacidad de quien interpreta la información recibida entendiendo que este es idóneo en el tema y tiene que deducir todo el razonamiento que lo llevó a presentar el trabajo de tal o cual manera. Cuando a esto le sumamos un problema de dialogo en los equipos de trabajo surge el peligro más doloroso, el ejecutar o trabajar en base a información no vigente por el solo hecho de haber un conflicto de entre quienes producen la información y quienes las toman como referencia para tomar decisiones.

Con el tiempo, algunas mañas de acumular documentación como una anécdota de mi experiencia, surgió el dilema que había participado de varios proyectos con diferentes tipos de responsabilidades, de que todavía conservo toda la información o la mayor parte de ella y que una manera de evolucionar en cada objetivo nuevo era volver hacia la última experiencia y tomarla como punto de partida para acomodarla a la situación que se presente.

Entonces partí de la base de que quería organizar todos los proyectos en los que he trabajado y de los que trabajaré, de forma que me permita acceder a la información de una manera directa sin navegar por la computadora horas, y esto me llevo a razonar todos los hitos y procesos de la vida de un proyecto donde se genera o se registra un documento.

Aclarando que todos los proyectos que traje al caso son de construcción de obras edilicias surgió la siguiente estructura de información:

Estructura de las carpetas:

Mi Plan de Gestion del Proyecto de un Edificio

PLAN DE GESTIÓN (PM)

El objetivo de este articulo es mostrar el desarrollo de cada uno de los puntos que contienen el índice de este trabajo ya que desde cada uno de estos puntos se podría derivar un mundo de análisis y al mismo tiempo si observo el trabajo como un conjunto sin duda fue un ejercicio único para pensar un proyecto de inicio a fin incluyendo sobre costos y ahorros sin que se haya gastado nada mas que mi tiempo.

ÍNDICE:

#, Enunciado: 

01, RESUMEN EJECUTIVO 

02, ANTECEDENTES 

03, METODOLOGÍA DE GESTIÓN 

03.01, Procesos a utilizar.
03.02, Metodología de Ejecución del trabajo.
03.03, Metodología de Supervisión y control de los cambios.
03.04, Gestión de los Cambios.
03.05, Uso de las líneas base. 

04, PLAN DE GESTIÓN DEL ALCANCE 

04.01, Proceso de definición de alcance.
04.02, Proceso para elaboración de WBS.
04.03, Proceso para elaboración del Diccionario WBS.
04.04, Proceso para verificación de alcance.
04.05, Proceso para control de alcance.

05, PLAN DE GESTIÓN DEL CRONOGRAMA 

05.01, Siglas asignadas al proyecto.
05.02, Proceso de definición de actividades.
05.03, Proceso de secuenciamento de actividades.
05.04, Proceso de estimación de recursos de las actividades.
05.05, Proceso de estimación de duración de las actividades.
05.06, Proceso de desarrollo de cronograma.
05.07, Proceso de desarrollo de cronograma.

06, PLAN DE GESTIÓN DE COSTOS 

06.01, Proceso de definición de los costos.
06.02, Proceso de integración del presupuesto.
06.03, Proceso de control de los costos.
06.04, Flujograma del proceso de control de los costos.

07 PLAN DE GESTIÓN DE CALIDAD

07.01, Política de calidad del proyecto.
07.02, Alcances de la gestión de la calidad.
07.03, Referencias de la gestión de la calidad.
07.04, Implicados en plan de gestión de calidad.
07.05, Parámetros de la calidad.
07.06, Gestión de la calidad.
07.07, Flujograma del control de la calidad.

08, PLAN DE MEJORA DEL PROCESO 

09, PLAN DE GESTIÓN DE LOS RECURSOS HUMANOS 

09.01, Estructura de desglose de la Organización.
09.02, Adquisición de personal.
09.03, Necesidades de Capacitación.
09.04, Reconocimientos y recompensas.

10, PLAN DE GESTIÓN DE LAS COMUNICACIONES

10.01, Identificación de los interesados.
10.02, Planificación de las com. y Expectativas de los interesados.
10.03, Distribución de la información.
10.04, Comunicación del desempeño.

11, PLAN DE GESTIÓN DE LOS RIESGOS 

11.01, Plan de riesgo aplicado.
11.02, Identificación de los riesgos.
11.03, Análisis cualitativo de los riesgos.
11.04, Planificación de la respuesta a los riesgos.

12, PLAN DE GESTIÓN DE LAS ADQUISICIONES 

13, ANEXOS

13.01, Lista de Hitos.
13.02, Calendario de Recursos.
13.02.01, Días Festivos.
13.02.02, Periodos de disponibilidad.
13.03, Línea Base del Cronograma (estimación inicial).
13.04, Línea Base del Costo (estimación inicial).
13.05, Línea Base de Alcance.
13.05.01, Enunciado del Alcance del Proyecto.
13.05.02, Estructura de Desglose del Trabajo (EDT o WBS).
13.05.03, Diccionario de la EDT.
13.06, Registro de Riesgos.
13.07, Matriz de los Interesados.

14, HISTORIAL DE REVISIONES

Macro para diseñar, computar y presupuestar obras de instalación eléctrica enlazando AutoCAD con Excel.

Si bien al momento de emprender esta macro ya existían otras que ofrecían estos beneficios, todas las opciones requerían de pagar una licencia y aprender una nueva metodología de trabajo con todo lo que esto implica en cuestión de tiempo y dedicación sin conocer con certeza si los alcances se ajustaban a los requerimientos. Fue aquí donde surgió esta idea ambiciosa de tomar los procesos artesanos que hasta el momento practicaba un grupo de ingenieros eléctricos, meterme en todos sus procesos del diseño, cómputos, certificación y conducción de las obras e intentar resumir algunos aspectos del trabajo diario. 

Esta aplicación fue creada con el fin de ser usada en obras edilicias convencionales con estructura de concreto.

Sin mayores excusas paso a comentar de que se trata este conjuntos de macros que terminaron formando una aplicación integral:

El primer paso fue definir toda la simbología que según normas pre establecidas serían usadas para los proyectos. 

Una vez definida se redibujaron teniendo en cuenta que sería necesario dibujar a escala real todo aquello que nos ayude a tener precisión en los proyectos.

A partir de esto una simple macro que ponga una planta arquitectónica en modo borrador entendiendo que un factor importante son los muros y las vigas, y por supuesto saber de qué se trata cada espacio.

Para agilizar el trabajo de proyecto se creó también un panel de botones en AutoCAD que al apretar cada símbolo nos pediría hacer click a donde insertarlo.

Auxiliado por la botonera se insertan todos los elementos eléctricos del proyecto según el mejor criterio de diseño.

Nos queda de la siguiente manera:

A partir de acá se unen los elementos con polilíneas realmente como serán los circuitos.

Con lo anterior realizado empezamos a analizar los circuitos, para esto nos auxiliamos de otra macro. 

Se definió las posibles combinaciones de cables que podrían llevar cada tubería. Una regla mnemotécnica muy simple de aprender que en este momento no me voy a extender. Pero el caso es que al hacer click en cada botón y luego seleccionar una tubería asignará su diámetro y el tipo con la combinación de cables que contiene.

Ej:
a = 2x1,5 + T
a’=3x1,5 + T
b =2x2,5 + T
Etc.


Así pinchamos en la nomenclatura que queramos usar y a continuación seleccionamos el caño a la cual queremos asignarle esta nomenclatura, una vez seleccionado el caño insertamos el punto medio del dibujo del texto de la nomenclatura y finalmente con otro click asignamos su orientación para una fácil lectura.

Cada símbolo insertado deja asignada una capa predeterminada al caño. Es condición inalterable que cada caño este definido por una capa que indique su nomenclatura, como por ejemplo: una arco en la capa “A” indica que es una cañería que recorre por losa y es de la nomenclatura 2X1,5 + T.

Ampliando el ejemplo nos queda de la siguiente manera el proyecto.

Quizás llame la atención de  que en el siguiente plano hay cañería en azul y también en rojo, la razón de esta fue ya asignarle al programa que mientras coloque la nomenclatura, del color rojo a todos los caños que son RS16, azul a todos los RS19, verde a los RS22 y violeta a los RS38 (queda a criterio usar o no caños RS13 ya que por su debilidad y diferencia en costo con el RS16 por experiencia se eligió usar RS16) sin alejarme del asunto, el hecho de los distintos colores es que para el momento de la ejecución de la obra, basta con entregarle al operario el plano con los muros, vigas cotas y cañerías en distintos colores y una referencia que diga que color es cada caño, entonces ya no entregamos nomenclaturas y reducimos la posibilidad de error.

Como la idea de este programa es de tener un pronóstico lo más acertado posible de la lista de materiales a usar, se puede notar que todos los símbolos eléctricos tienen dibujadas sus respectivas cajas a escala, entonces como una maqueta a tamaño real representamos en el dibujo tal cual se haría en la realidad respetando las líneas de la forma a la que llegarían a las cajas como así el lugar por donde irían colocadas, mas adelanto detallo error de cómputo por replanteo y por desperdicio.

Un detalle muy importante es que hasta aquí solo tenemos la proyección horizontal del proyecto, pues nos falta todo lo vertical, para esto se indica en cada caja una bajada con el símbolo naranja que se ve a continuación, este símbolo indica una continuación de la tubería en dirección vertical con una distancia hacia el artefacto.

Acá es donde interviene el botón estrella del asunto, nos pedirá seleccionar el proyecto, y luego abrirá una ventana con ciertos parámetros a tener en cuenta para el computo.

Nos pedirá un poquito de espera, que por cierto para matar la ansiedad y la incertidumbre se agregó la animación de que cada tubo que se lee va cambiando de color.

Este panel es casi lo mas importante del éxito del programa ya que con una revisión de lo ejecutado contra el cómputo se podrá ir ajustando los porcentajes de desperdicio y error para los planos futuros, este porcentaje puede ser muy variable según la calidad de la mano de obra.

Notaremos lo siguiente. Las líneas en muros se empezaran a poner de color naranja y las de losa de color verde, este no es mas que un control propio de errores, si de repente al finalizar el computo notamos que alguna línea mantiene el color original, esto quiere decir que algún error hay, el posible error es que la línea no tenga la nomenclatura asignada, recordemos que al asignar una nomenclatura esta asigna por defecto una capa y un color, y es esta capa y línea la que el programa lee.

Listo, al desaparecer la leyenda central de la pantalla. Se abrirá un Excel con nuestro cómputo métrico correspondiente a nuestra selección, en forma de cómputo detallado en tres etapas: La primera que será la etapa de losas, la segunda que será la etapa de paredes y la tercera que será la etapa de cableado.

Los materiales a computar en el caso de que el plano contenga todas las constantes que el programa podría leer son:

Porteros Eléctricos, Tapas Rectangulares ciegas RED, Llave de 2 combinaciones, Llave de 2 combinaciones y un dimer, Llave de 2 dimers, Artefacto de dos tubos fluorescentes, Llave de 2 puntos, Llave de 2 tomacorriente, Llave de 3 combinaciones, Llave de 3 dimer, Artefacto de 3 tubos fluorescentes, Llave de 3 puntos, Tomacorriente trifásico, Artefacto de 4 fluorescentes, Artefacto de 8 fluorescentes, Artefacto de 8 fluorescentes y uno de emergencia, Tomacorriente de 20A, Artefacto aplique exterior, Farolas exteriores, Campanilla para timbre, Rosetas de madera chicas, Artefacto de centro de 2 velas, Artefacto de centro de 1 vela, Célula Fotoeléctrica, Llave de combinación, Llave de combinación y dimer, Llave de combinación y tomacorriente, Dicroicas, Llave de 2 puntos y combinación, Llave de dimer, Flotante para tanque de reserva de agua, Llave de punto, Llave de 2 puntos y dimer, Llave de punto y combinación, Llave de punto y dimer, Llave de punto y tomacorriente, Llave con pulsador de escalera, Tapas Rectangulares ciegas TE, Llave pulsador de timbre, Tomacorriente, Tapas Rectangulares ciegas TV, Ventilador de techo, Ventilador de techo con cuatro luminarias, Florones, Cajas Rectangulares, Caja octogonal chica, Rosetas para aplique, Caja cuadrada 10x10, Tapa ciega cuadrada 10x10, Caja cuadrada 15x15, Tapa ciega cuadrada 15x15, Caja cuadrada 20x20, Tapa ciega cuadrada 20x20, Tablero seccional, Cajas octogonales grandes, Artefacto de luz de emergencia, Medidores, Cajas de Medidores, Tornillos y tacos fisher, Cables, Caños y Conectores.

Si te interesa dale al boton G+, comenta, participa...

Y escribime para enviarte el ejemplo!

Un Gantt en Excel manipulando los recursos y la curva de inversión.

Observando el rechazo masivo a usar Project para programar obras surgió esta macro. 

Las entradas son las tareas, su comienzo, su duración y su costo tanto programado como real.

La salida automática es la integración del diagrama de gantt con sus barras, la curva de inversión, la curva de avance y la interposición de los recursos en la escala del tiempo en la parte superior, y por supuesto la fecha de hoy transversal a toda la información gráfica. Todo en la misma pantalla y en simultáneo.

Pero como? es la pregunta!

Una vez escritas las actividades, y las fechas de inicio y de fin de cada una vamos a necesitar un auxiliar llamado B_Crear_Calendario que arme por nosotros el calendario hacia la derecha con un formato que sea entendible a simple vista, claro que para esto entiendo que la fecha de partida será la fecha más pequeña del programa y la máxima la fecha más lejana de todo el programa.

Luego, otro auxiliar llamado C_Crear_Barras nos ayudará a crear dentro de este calendario las barras correspondientes a las tareas pero, teniendo en cuenta que a cada tarea será asignada un recurso, al mismo tiempo en la parte superior aparecerá la gráfica de quién será el responsable de esa tarea ocupando la franja en la línea de tiempo.

Pero si pienso que también quiero una curva de avance y que no pueden convivir dos informaciones en la misma celda, la solución está en crear por medio de la macro las barras como shapes contenidas en las celdas a las que corresponda y al mismo tiempo escribir dentro de la celda el valor que le corresponda. En resumen digo que solo vamos a ver la barra, pero que está en su interior esconde el avance fraccionado.

Pero como fraccionamos ese porcentaje? Aca voy a buscar suplantar una gran mentira por mentiritas más pequeñas con alguna certezas. Es decir que en vez de dividir el precio calculado en el plazo propuesto lo que sería un avance lineal voy a proponer que puede o no haber anticipo financiero, que puedo o no haber una retención para el final de la tarea y que todo lo que ocurra post anticipo y antes de la devolución de la retención será planeado con algún criterio de rendimiento. Y es aquí donde traigo algunas variantes con el solo objetivo de intentar acercarme un poquito más a la realidad.

Módulo B_Crear_Calendario:

Option Explicit
Dim Bcle As Long
Public Function Armar_Calendario()'1) Refresco las constantes del proyecto donde Determino la Hoja del Calendario, Determinar el área del calendario, Obtengo la última fila del programa, Obtener la minima y maxima del calendario y calculo los dias de duracion.
A_Declarar_Constantes.Declarar
'2)  y desactivo las advertencias y desactivo act. Automaticas
Excel.Application.DisplayAlerts = False
Application.ScreenUpdating = False
'3) Borro todo el calendario actual
Hoja_Work.Range(Cells(1, Columna_Inicio_Calendario), Cells(Max_Row, 6500)).Delete
'4) Escribo fechas y dias en la cabezera
For Bcle = Columna_Inicio_Calendario To Periodo + Columna_Inicio_Calendario
    Hoja_Work.Cells(Fila_Year, Bcle) = Min_Fecha + (Bcle - Columna_Inicio_Calendario)
    Hoja_Work.Cells(Fila_Month, Bcle) = Min_Fecha + (Bcle - Columna_Inicio_Calendario)
    Hoja_Work.Cells(Fila_Day, Bcle) = Min_Fecha + (Bcle - Columna_Inicio_Calendario)
    Hoja_Work.Cells(Fila_Day_Letra, Bcle) = UCase(Left((Format(Min_Fecha + (Bcle - Columna_Inicio_Calendario), "ddd")), 1))
    If Hoja_Work.Cells(Fila_Day_Letra, Bcle) = "D" Then
        Hoja_Work.Cells(Fila_Day_Letra, Bcle).Font.color = -16776961
        With Hoja_Work.Range(Cells(Fila_Day_Letra, Bcle), Cells(Max_Row - 1, Bcle)).Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.149998474074526
            .PatternTintAndShade = 0
        End With
    End If
Next
Dim Temp_Range As Range
Dim Temp_Inicio As Integer
'5) Resumo los meses
Temp_Inicio = Columna_Inicio_Calendario
For Bcle = Columna_Inicio_Calendario To Periodo + Columna_Inicio_Calendario
    If Not Format(Hoja_Work.Cells(Fila_Month, Bcle), "mm") = Format(Hoja_Work.Cells(Fila_Month, Bcle + 1), "mm") Then
        Set Temp_Range = Hoja_Work.Range(Cells(Fila_Month, Temp_Inicio), Cells(Fila_Month, Bcle))
        Temp_Range.Merge
        Temp_Inicio = Bcle + 1
    End If
Next
'6) Resumo los años
Temp_Inicio = Columna_Inicio_Calendario
For Bcle = Columna_Inicio_Calendario To Periodo + Columna_Inicio_Calendario
    If Not Year(Hoja_Work.Cells(Fila_Year, Bcle)) = Year(Hoja_Work.Cells(Fila_Year, Bcle + 1)) Then
        Set Temp_Range = Hoja_Work.Range(Cells(Fila_Year, Temp_Inicio), Cells(Fila_Year, Bcle))
        Temp_Range.Merge
        Temp_Inicio = Bcle + 1
    End If
Next
'7) Doy formato a las cuatro filas
Set Temp_Range = Hoja_Work.Range(Cells(Fila_Day, Columna_Inicio_Calendario), Cells(3, Bcle - 1))
    Temp_Range.NumberFormat = "dd"
Set Temp_Range = Hoja_Work.Range(Cells(Fila_Month, Columna_Inicio_Calendario), Cells(2, Bcle - 1))
    Temp_Range.NumberFormat = "mmmm"
Set Temp_Range = Hoja_Work.Range(Cells(Fila_Year, Columna_Inicio_Calendario), Cells(1, Bcle - 1))
    Temp_Range.NumberFormat = "yyyy"
Set Temp_Range = Hoja_Work.Range(Cells(Fila_Year, Columna_Inicio_Calendario), Cells(Fila_Day_Letra, Bcle - 1))
    Temp_Range.HorizontalAlignment = -4108
    Temp_Range.EntireColumn.AutoFit
    Temp_Range.Borders.Value = 1
'8) Doy formato al interior del calendario
Set Temp_Range = Hoja_Work.Range(Cells(Fila_Inicio_Calendario, Columna_Inicio_Calendario), Cells(Max_Row - 1, Columna_Inicio_Calendario + Periodo))
    With Temp_Range.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Temp_Range.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Temp_Range.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Temp_Range.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Temp_Range.Borders(xlInsideVertical)
        .LineStyle = xlDot
        .ColorIndex = xlAutomatic
        .TintAndShade = -0.149998474074526
        .Weight = xlThin
    End With
    With Temp_Range.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = -0.149998474074526
        .Weight = xlHairline
    End With
'09) Activo las advertencias y termino la aplicación
Excel.Application.DisplayAlerts = True
Application.ScreenUpdating = True
End
End Function

Módulo C_Crear_Barras:

Public Function Crear_Barras_Completo()
'1) Refrezco las constantes del proyecto donde Determino la Hoja del Calendario, Determino el area del calendario, Obtengo la ultima fila del programa, Obtengo la minima y maxima del calendario y calculo los dias de duracion
A_Declarar_Constantes.Declarar

'2)  y desactivo las advertencias y desactivo act. Automaticas
Excel.Application.DisplayAlerts = False
Application.ScreenUpdating = False

'3) Recorro programa y escribo barrasDim Grafico As Shape
For Each Grafico In Excel.Sheets("Gantt").Shapes
    Grafico.Delete
'    If Left(Grafico.Name, 1) = "P" Or Left(Grafico.Name, 1) = "T" Then: Grafico.Delete
Next
For Bcle = Fila_Inicio_Calendario To Max_Row - 1
    'MsgBox Hoja_Work.Cells(Bcle, Col_ID)
    'MsgBox Hoja_Work.Cells(Bcle, Col_Name)
    'MsgBox Hoja_Work.Cells(Bcle, Col_Start)
    'MsgBox Val(Hoja_Work.Cells(Bcle, Col_Dur))
   ' MsgBox Hoja_Work.Cells(Bcle, Col_Finish)
   ' MsgBox Hoja_Work.Cells(Bcle, Col_Cost)
   ' MsgBox Hoja_Work.Cells(Bcle, Col_Recurso)
    'Calculo la ubicacion de la barra
    'Dim Col_Start As Long
    Set Temp_Range = Hoja_Work.Range(Hoja_Work.Cells(Bcle, Hoja_Work.Cells(Bcle, Col_Start) - Min_Fecha + Columna_Inicio_Calendario), Hoja_Work.Cells(Bcle, Hoja_Work.Cells(Bcle, Col_Start) - Min_Fecha + Columna_Inicio_Calendario + Val(Hoja_Work.Cells(Bcle, Col_Dur))))
    Dim C_X As Double: C_X = Temp_Range.Left
    Dim C_Y As Double: C_Y = Temp_Range.Top + Temp_Range.Height * 0.1
    Dim Alto As Double: Alto = Temp_Range.Height * 0.8
    Dim Ancho As Double: Ancho = Temp_Range.Width
    Dim Texto As String: Texto = Hoja_Work.Cells(Bcle, Col_Name)
    Dim Barra_Name As String: Barra_Name = Hoja_Work.Cells(Bcle, Col_ID)
    
    If C_X = 0 Then Exit Function
    If C_Y = 0 Then Exit Function
    If Alto = 0 Then Exit Function
    If Ancho = 0 Then Exit Function
    If Texto = "" Then Exit Function
    If Barra_Name = "" Then Exit Function
    
    Barras_Gantt C_X, C_Y, Alto, Ancho, Texto, "R_" & Barra_Name
Next
End Function
Public Function Barras_Gantt(C_X As Double, C_Y As Double, Alto As Double, Ancho As Double, Texto As String, Barra_Name As String)
    Dim barra As Shape
    'Dim Typo As String
    Set barra = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, C_X, C_Y, Ancho, Alto)
    With barra
        If Left(Barra_Name, 1) = "P" Then
            .ShapeStyle = msoShapeStylePreset37
            .Name = Barra_Name
            .Fill.Solid
            .Fill.Visible = msoTrue
            .Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground1
            .Fill.ForeColor.TintAndShade = 0.2
            .Fill.ForeColor.Brightness = -0.35
            .Fill.Transparency = 0.2
            
            .TextFrame2.TextRange.Characters.Text = Texto
            .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
            .TextFrame2.VerticalAnchor = msoAnchorMiddle
            .TextFrame2.TextRange.Font.Size = 8
            .TextFrame2.TextRange.Font.Fill.Visible = msoTrue
            .TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
            .TextFrame2.TextRange.Font.Fill.ForeColor.TintAndShade = 0
            .TextFrame2.TextRange.Font.Fill.ForeColor.Brightness = 0
            .TextFrame2.TextRange.Font.Fill.Transparency = 0
            .TextFrame2.TextRange.Font.Fill.Solid
        End If
        If Left(Barra_Name, 1) = "R" Then
            .ShapeStyle = msoShapeStylePreset38
            .TextFrame2.TextRange.Characters.Text = Texto
            .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
            .TextFrame2.VerticalAnchor = msoAnchorMiddle
            .TextFrame2.TextRange.Font.Size = 8
            .TextFrame2.TextRange.Font.Fill.Visible = msoTrue
            .TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
            .TextFrame2.TextRange.Font.Fill.ForeColor.TintAndShade = 0
            .TextFrame2.TextRange.Font.Fill.ForeColor.Brightness = 0
            .TextFrame2.TextRange.Font.Fill.Transparency = 0
            .TextFrame2.TextRange.Font.Fill.Solid
            .Name = Barra_Name
        End If
        If Left(Barra_Name, 1) = "T" Then
            .ShapeStyle = msoShapeStylePreset1
            .TextFrame2.TextRange.Characters.Text = Texto
            .Fill.ForeColor.RGB = RGB(255, 0, 0)
            .Fill.Transparency = 0.75
            .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
            .TextFrame2.VerticalAnchor = msoAnchorMiddle
            .TextFrame2.TextRange.Font.Size = 10
            
            .TextFrame2.TextRange.Font.Fill.Solid
            .TextFrame2.TextRange.Font.Fill.Visible = msoTrue
            .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
            .Name = Barra_Name
        End If
    End With
End Function

Módulo A_Declarar_Constantes:

Option Explicit
Public Columna_Inicio_Calendario As Integer
Public Fila_Inicio_Calendario As Integer
Public Fila_Year As Long
Public Fila_Month As Long
Public Fila_Day As Long
Public Fila_Day_Letra As Long
Public Hoja_Gantt As String
Public Hoja_Work As Worksheet
Public Min_Fecha As Date
Public Max_Fecha As Date
Public Periodo As Long
Public Max_Row As Long
Public Col_ID As Long
Public Col_Name As Long
Public Col_Start As Long
Public Col_Dur As Long
Public Col_Finish As Long
Public Col_Cost As Long
Public Col_Recurso As Long
Public Function Declarar()
Hoja_Gantt = "Gantt"
Set Hoja_Work = Excel.Sheets(Hoja_Gantt)
Columna_Inicio_Calendario = 22
Fila_Inicio_Calendario = 8
Col_ID = 1
Col_Name = 2
Col_Start = 11
Col_Dur = 12
Col_Finish = 13
Col_Cost = 6
Col_Recurso = 8
Fila_Year = Fila_Inicio_Calendario - 4
Fila_Month = Fila_Inicio_Calendario - 3
Fila_Day = Fila_Inicio_Calendario - 2
Fila_Day_Letra = Fila_Inicio_Calendario - 1
Max_Row = (Hoja_Work.UsedRange.Row) + Hoja_Work.UsedRange.Rows.Count
Dim Bcle As Long
For Bcle = Fila_Inicio_Calendario To Max_Row
    If CDate(Hoja_Work.Cells(Bcle, Col_Finish)) > 0 And CDate(Hoja_Work.Cells(Bcle, Col_Finish)) > CDate(Max_Fecha) Then Max_Fecha = Hoja_Work.Cells(Bcle, Col_Finish)
Next
Min_Fecha = Max_Fecha 'Supuesto
For Bcle = Fila_Inicio_Calendario To Max_Row
    If CDate(Hoja_Work.Cells(Bcle, Col_Start)) > 0 And CDate(Hoja_Work.Cells(Bcle, Col_Start)) < CDate(Min_Fecha) Then Min_Fecha = Hoja_Work.Cells(Bcle, Col_Start)
Next
Periodo = Max_Fecha - Min_Fecha
End Function

El Reactivo en la Hoja del Gantt:

Option Explicit

Dim Bcle As Long

Private Sub Worksheet_Change(ByVal Target As Range)

Inicio:

Dim Hoja As String: Hoja = "Gantt"

Dim Barra_Name As String

Dim Fecha_I As Date

Dim Fecha_F As Date

Dim Dias As Long

Dim barra As Shape

Dim Min_Fecha As Date

Dim Temp_Fecha As Date

Dim C_Ini As Long: Dim C_Fi As Long

Dim L_Barra As Double

Dim P_Recurso As String

'Defino columnas

Dim Colum_P_I As Long: Colum_P_I = 11

Dim Colum_P_D As Long: Colum_P_D = 12

Dim Colum_P_F As Long: Colum_P_F = 13

Dim Colum_R_I As Long: Colum_R_I = 14

Dim Colum_R_D As Long: Colum_R_D = 15

Dim Colum_R_F As Long: Colum_R_F = 16

Dim Colum_Inicio_Gantt As Long: Colum_Inicio_Gantt = 22

'Defino datos comunes

Min_Fecha = Sheets(Hoja).Cells(4, 8)

Ctrl_G.Obtener_Rango Hoja, Target.Row, 1, Barra_Name

Select Case Target.Column

Case Colum_P_I To Colum_P_F

    Barra_Name = "P_" & Barra_Name

    P_Recurso = "T_" & Excel.Sheets(Hoja).Cells(Target.Row, 1)

    Fecha_I = Sheets(Hoja).Cells(Target.Row, Colum_P_I)

    Dias = Sheets(Hoja).Cells(Target.Row, Colum_P_D)

    Fecha_F = Sheets(Hoja).Cells(Target.Row, Colum_P_F): Fecha_F = Fecha_I + Dias

    If Target.Column = Colum_P_I Then

        If Not Sheets(Hoja).Cells(Target.Row, Colum_P_F) = Fecha_F Then Sheets(Hoja).Cells(Target.Row, Colum_P_F) = Fecha_F

        Sheets(Hoja).Cells(Target.Row, Colum_P_D) = Dias

    End If

    If Target.Column = Colum_P_F Then

        Dias = Fecha_F - Fecha_I

        If Not Sheets(Hoja).Cells(Target.Row, Colum_P_D) = Dias Then Sheets(Hoja).Cells(Target.Row, Colum_P_D) = Dias

    End If

    If Target.Column = Colum_P_D Then

        If Not Sheets(Hoja).Cells(Target.Row, Colum_P_F) = Fecha_F Then Sheets(Hoja).Cells(Target.Row, Colum_P_F) = Fecha_F

        For Each barra In Sheets(Hoja).Shapes

            If barra.Name = Barra_Name Then: barra.Delete: Exit For

        Next

        'Borro la barra del recurso

        For Each barra In Sheets(Hoja).Shapes

            If barra.Name = P_Recurso Then: barra.Delete: Exit For

        Next

        If Sheets(Hoja).Cells(Target.Row, Colum_P_I) = 0 Or Sheets(Hoja).Cells(Target.Row, Colum_P_F) = 0 Then Exit Sub

        Temp_Fecha = Sheets(Hoja).Cells(Target.Row, Colum_P_F)

        C_Ini = Colum_Inicio_Gantt + (Fecha_I - Min_Fecha): C_Fi = C_Ini + Dias

        L_Barra = Sheets(Hoja).Range(Cells(Target.Row, C_Ini), Cells(Target.Row, C_Fi)).Width

        C_Fi = L_Barra

        C_Ini = Val(Excel.Sheets(Hoja).Cells(Target.Row, C_Ini).Left)

        'Ctrl_G.Barras_Gantt Val(C_Ini), Target.Top + Target.Height / 6, Val(C_Fi), Target.Height / 1.5, Excel.Sheets(Hoja).Cells(Target.Row, 2), Barra_Name

        Dim Cel_I, Cel_F As Long

        ' modifico costos en gantt

        Display_Excel.Proteger_Hoja Excel.ThisWorkbook.Name, "Gantt", False

        Sheets("Gantt").Range(Cells(Target.Row, Colum_Inicio_Gantt), Cells(Target.Row, 365)).Clear

        Display_Excel.Proteger_Hoja Excel.ThisWorkbook.Name, "Gantt", False

                Cel_I = Colum_Inicio_Gantt + (Fecha_I - Min_Fecha)

                Cel_F = Cel_I + Dias

        For Bcle = Cel_I To Cel_F

            Display_Excel.Proteger_Hoja Excel.ThisWorkbook.Name, "Gantt", False

            Cells(Target.Row, Bcle) = Cells(Target.Row, 6) / (Cel_F - Cel_I + 1)

        Next

        Formato.Format_H_Text Excel.ActiveWorkbook.Name, Hoja, Cells(Target.Row, Cel_I), Cells(Target.Row, Cel_F), 4

        'Escribo el recurso

        If Len(Excel.Sheets(Hoja).Cells(Target.Row, 8)) > 0 Then

            Cel_I = Colum_Inicio_Gantt + (Fecha_I - Min_Fecha)

            Cel_F = Cel_I + Dias

            'Verifico de no pisarlo

            Dim H_Recursos As Double: H_Recursos = Excel.Sheets("Gantt").Range(Cells(1, 1), Cells(4, 1)).Height

            Dim Cant_Max_Rec As Double: Cant_Max_Rec = 0 'se obtiene de fila 1

            For Bcle = Cel_I To Cel_F

                If Excel.Sheets(Hoja).Cells(1, Bcle) > Cant_Max_Rec Then Cant_Max_Rec = Val(Excel.Sheets(Hoja).Cells(1, Bcle))

            Next

            Dim barra_Altura As Long: barra_Altura = H_Recursos / Cant_Max_Rec

            Dim Recurso_Y As Double: Recurso_Y = 0

            Dim Recurso_Y_min As Double: Recurso_Y_min = H_Recursos - barra_Altura

            For Each barra In Sheets(Hoja).Shapes

                If Left(barra.Name, 1) = "T" Then

                    If barra.Left > C_Ini And barra.Left < (C_Ini + C_Fi) Or barra.Left + barra.Width > C_Ini And barra.Left + barra.Width < (C_Ini + C_Fi) Then

                        barra.Height = barra_Altura

                        If barra.Height + barra.Top >= Recurso_Y Then Recurso_Y = barra.Height + barra.Top

                        If barra.Height < Recurso_Y_min Then Recurso_Y_min = barra.Height

                    End If

                End If

            Next

    MsgBox Recurso_Y_min & "-" & Recurso_Y

            Display_Excel.Proteger_Hoja Excel.ThisWorkbook.Name, "Gantt", False

            'Ctrl_G.Barras_Gantt Val(C_Ini), ((Temp_N - 1) * barra_Altura), Val(C_Fi), Val(barra_Altura), Excel.Sheets(Hoja).Cells(Target.Row, 8), P_Recurso

            'Ctrl_G.Barras_Gantt Val(C_Ini), Recurso_Y, Val(C_Fi), Val(barra_Altura), Excel.Sheets(Hoja).Cells(Target.Row, 8), P_Recurso

        End If

    End If

Case Colum_R_I To Colum_R_F

    Barra_Name = "R_" & Barra_Name

    Fecha_I = Sheets(Hoja).Cells(Target.Row, Colum_R_I)

    Dias = Sheets(Hoja).Cells(Target.Row, Colum_R_D)

    Fecha_F = Sheets(Hoja).Cells(Target.Row, Colum_R_F): Fecha_F = Fecha_I + Dias

    If Target.Column = Colum_R_I Then

        If Not Sheets(Hoja).Cells(Target.Row, Colum_R_F) = Fecha_F Then Sheets(Hoja).Cells(Target.Row, Colum_R_F) = Fecha_F

        Sheets(Hoja).Cells(Target.Row, Colum_R_D) = Dias

    End If

    If Target.Column = Colum_R_F Then

        Dias = Fecha_F - Fecha_I

        If Not Sheets(Hoja).Cells(Target.Row, Colum_R_D) = Dias Then Sheets(Hoja).Cells(Target.Row, Colum_R_D) = Dias

    End If

    If Target.Column = Colum_R_D Then

        If Not Sheets(Hoja).Cells(Target.Row, Colum_R_F) = Fecha_F Then Sheets(Hoja).Cells(Target.Row, Colum_R_F) = Fecha_F

        For Each barra In Sheets(Hoja).Shapes

            If barra.Name = Barra_Name Then: barra.Delete: Exit For

        Next

        If Sheets(Hoja).Cells(Target.Row, Colum_R_I) = 0 Or Sheets(Hoja).Cells(Target.Row, Colum_R_F) = 0 Then Exit Sub

        Temp_Fecha = Sheets(Hoja).Cells(Target.Row, Colum_R_F)

        C_Ini = Colum_Inicio_Gantt + (Fecha_I - Min_Fecha): C_Fi = C_Ini + Dias

        L_Barra = Sheets(Hoja).Range(Cells(Target.Row, C_Ini), Cells(Target.Row, C_Fi)).Width

        C_Fi = L_Barra

        C_Ini = Val(Excel.Sheets(Hoja).Cells(Target.Row, C_Ini).Left)

        'Ctrl_G.Barras_Gantt Val(C_Ini), Target.Top + Target.Height / 4, Val(C_Fi), Target.Height / 2, Excel.Sheets(Hoja).Cells(Target.Row, 2), Barra_Name

    End If

End Select

End Sub

Public Sub Ubicar_Avance()

Display_Excel.Proteger_Hoja Excel.ThisWorkbook.Name, "Gantt", False

Dim Grafico As Shape

'Dim Titulo As Range

Dim T As Double

Dim L As Double

Dim H As Double

Dim W As Double

For Each Grafico In Excel.Sheets("Gantt").Shapes

With Excel.Sheets("Gantt")

Select Case Grafico.Name

Case "G_Desagregado":   T = .Cells(5, 1).Top

                        L = .Cells(5, 1).Left

                        H = .Cells(6, 3).Top - Grafico.Top

                        W = .Cells(6, 3).Left - Grafico.Left

                        Grafico.Locked = True

Case "G_Separador":     T = .Cells(1, 21).Top

                        L = .Cells(1, 21).Left

                        H = .Cells(43, 22).Top - Grafico.Top

                        W = .Cells(43, 22).Left - Grafico.Left

                        Grafico.Locked = True

Case "G_Licitacion":    T = .Cells(5, 3).Top

                        L = .Cells(5, 3).Left

                        H = .Cells(6, 8).Top - Grafico.Top

                        W = .Cells(6, 8).Left - Grafico.Left

                        Grafico.Locked = True

Case "G_Titulo":        T = .Cells(1, 1).Top

                        L = .Cells(1, 1).Left

                        H = .Cells(3, 21).Top - Grafico.Top

                        W = .Cells(3, 21).Left - Grafico.Left

                        Grafico.Locked = True

Case "G_Prog":          T = .Cells(5, 8).Top

                        L = .Cells(5, 8).Left

                        H = .Cells(6, 14).Top - Grafico.Top

                        W = .Cells(6, 14).Left - Grafico.Left

                        Grafico.Locked = True

Case "G_Real":          T = .Cells(5, 14).Top

                        L = .Cells(5, 14).Left

                        H = .Cells(6, 21).Top - Grafico.Top

                        W = .Cells(6, 21).Left - Grafico.Left

                        Grafico.Locked = True

End Select

End With

    If Grafico.Name = "Deagregado" Then

        Grafico.Top = Excel.Sheets("Gantt").Cells(5, 1).Top

        Grafico.Left = Excel.Sheets("Gantt").Cells(5, 1).Left

        Grafico.Height = Excel.Sheets("Gantt").Cells(6, 1).Top - Grafico.Top

        Grafico.Width = Excel.Sheets("Gantt").Cells(6, 3).Left - Grafico.Left

        Grafico.Locked = False

    End If

    If Grafico.Name = "G_Titulo_Gantt" Then

        Grafico.Top = Excel.Sheets("Gantt").Cells(1, 1).Top

        Grafico.Left = Excel.Sheets("Gantt").Cells(6, 22).Left

        Grafico.Height = Excel.Sheets("Gantt").Cells(5, 1).Top - Grafico.Top

        Grafico.Width = Excel.Sheets("Gantt").Cells(43, 182).Left - Grafico.Left

        Grafico.Locked = True

    End If

    If Grafico.Name = "G_Avances" Then

        Grafico.Top = Excel.Sheets("Gantt").Cells(6, 1).Top

        Grafico.Left = Excel.Sheets("Gantt").Cells(6, 22).Left

        Grafico.Height = Excel.Sheets("Gantt").Cells(43, 1).Top - Grafico.Top

        Grafico.Width = Excel.Sheets("Gantt").Cells(43, 182).Left - Grafico.Left

        Grafico.Locked = True

    End If

Next

Display_Excel.Proteger_Hoja Excel.ThisWorkbook.Name, "Gantt", True

End Sub

Public Function Obtener_Max_Min_Date_Partes()

Dim Temp_Range As Variant

Dim Bcle As Long

Dim Min_Date As Date

Dim Max_Dateb As Date

Dim Max_Row As Long

Ctrl_G.Obtener_Ultima_fila "Partes $", Max_Row

Ctrl_G.Capturar_Mtz_Total "Partes $", Temp_Range, 2, 2, 2, Max_Row

For Bcle = 1 To UBound(Temp_Range)

If Bcle = 1 Then Max_Dateb = Temp_Range(Bcle, 1)

If Bcle = 1 Then Min_Date = Temp_Range(Bcle, 1)

If Temp_Range(Bcle, 1) > Max_Dateb Then: Max_Dateb = Temp_Range(Bcle, 1)

If Temp_Range(Bcle, 1) < Min_Date And Temp_Range(Bcle, 1) > 0 Then: Min_Date = Temp_Range(Bcle, 1)

Next

Ctrl_G.Obtener_Ultima_fila "Gantt", Max_Row

Ctrl_G.Capturar_Mtz_Total "Gantt", Temp_Range, 6, 6, 5, Max_Row

For Bcle = 1 To UBound(Temp_Range)

If Temp_Range(Bcle, 1) < Min_Date And Temp_Range(Bcle, 1) > 0 Then: Min_Date = Temp_Range(Bcle, 1)

Next

Ctrl_G.Capturar_Mtz_Total "Gantt", Temp_Range, 8, 8, 5, Max_Row

For Bcle = 1 To UBound(Temp_Range)

If Temp_Range(Bcle, 1) > Max_Dateb Then: Max_Dateb = Temp_Range(Bcle, 1)

Next

Ctrl_G.Capturar_Mtz_Total "Gantt", Temp_Range, 9, 9, 5, Max_Row

For Bcle = 1 To UBound(Temp_Range)

If Temp_Range(Bcle, 1) < Min_Date And Temp_Range(Bcle, 1) > 0 Then: Min_Date = Temp_Range(Bcle, 1)

Next

Ctrl_G.Capturar_Mtz_Total "Gantt", Temp_Range, 11, 11, 5, Max_Row

For Bcle = 1 To UBound(Temp_Range)

If Temp_Range(Bcle, 1) > Max_Dateb Then: Max_Dateb = Temp_Range(Bcle, 1)

Next

Sheets("Gantt").Cells(1, 5) = Min_Date

Sheets("Gantt").Cells(2, 5) = Max_Dateb

Armar_Calendario

End Function

Si te interesa dale al boton G+, comenta, participa...

Y escribime para enviarte el ejemplo!