Hola:

En el adjunto encontrareis una hoja de planificación mensual de recursos por proyecto y tarea.

Definir los proyectos en la hoja Proyectos, las tareas en la hoja Tareas x Proyecto, los recursos en la hoja Recursos x Proyecto y la planificación de recursos en la hoja Planificación.

En la hoja Planificación encontrareis una validación completa al añadir datos.

El calendario de festivos viene determinado por los checks que controlan sábados y domingos como laborables/festivos. Click derecho en cualquier día(Fila 3 hoja Cronograma), alterna de festivo a laborable y viceversa.

Al abrir el archivo pulsar sobre el botón "Generar cronograma" para ver el resultado.

Se obtienen totales por recurso, tarea y proyecto por días y por horas.

Se admite la planificación horizontal para un Recurso/Tarea en la hoja Planificación.

El orden de los pasos desde el punto de vista funcional es el siguiente:

1) Dar de alta el proyecto (Hoja "Proyectos")

2) Dar de alta las tareas del proyecto (Hoja "Tareas x Proyecto")

3) Dar de alta los recursos asignados al proyecto (Hoja "Recursos x Proyecto")

4) Efectuar la planificación del proyecto (Hoja "Planificación")

5) Refrescar los proyectos en la hoja "Cronograma" (Botón la derecha del combo Proyecto)

Saludos a todos.

Antoni.

Cronograma Actividades por persona MA V.zip

buena noche Marco Antonio, como puedo cambiar en la macro el formato de los comentario de las celdad,es que esta el fondo en negro y letra en rojo y no se aprecia muy bien.

Gracias

Estas son la líneas del procedimiento AñadirComentario de la hoja Cronograma que controlan el formato del comentario:

    With .Shape

      .AutoShapeType = 5              'Número de autoforma

      .Fill.ForeColor.RGB = vbBlack   'Color de relleno

      .Line.ForeColor.RGB = vbWhite   'Color del borde

      .Width = Len(Texto) * Tamaño

      .Height = Celda.Height

    End With

    With .Shape.TextFrame

      .Characters.Font.Bold = True

      .Characters.Font.Color = vbWhite 'Color del texto

      .VerticalAlignment = xlCenter

      .HorizontalAlignment = xlCenter

    End With

[/CODE]

Como color puedes poner, aparte de las variables de color de VBA, un nº entre 0 y 16777215, o valores entre 0 y 255 en la función RGB([i]rojo, verde, azu[/i]l).

muchas gracias de verdad....

Exelente aporte, seria genial poder validar que si se cumplio o no la tarea, si se cumplio en tiempo o se cumplio a con retrasos

 Cronograma.Range("AO" & i) = Cronograma.Range("AO" & i) + RxP.Range("C" & KRxP.ListIndex + 2)

            TotalHoras = TotalHoras + RxP.Range("C" & KRxP.ListIndex + 2)[/CODE]

En esa parte le hice un cambio

[CODE] Cronograma.Range("AO" & i) = Cronograma.Range("AO" & i) + RxP.Range("C" & KRxP.ListIndex + 3)
TotalHoras = TotalHoras + RxP.Range("C" & KRxP.ListIndex + 3)[/CODE]

ya que me apearecia un error

Run-time error '13':

Type mismatch

Excelente macro, me gusto mucho, una forma muy práctica cuando de planificar se trata.

Compartiré este archivo.

Muy agradecido.

Buenas noche, yo llevo probando esta planificación de recurso desde el mes de febrero y va de maravilla es muy completa y sencilla de manejar y muy útil, solo falta tener una hoja resumen anual pero lo veo complicado le estoy dando muchas vueltas pero mis conocimiento de macro son cortito, en fin estoy muy contento con el trabajo realizado por Macro Antonio y felicitarlo

Excelente aporte Sr Macro Antonio, me va a servir para algo quando haciendo.

Buenas noche despues de estar con este cronograma desde elmes de febrero hasta la fecha ha surgido un problema que llevo 2 semanas intentando averiguar lo que es y sin exito me sale "se requiere un objeto (errror 424), alguien me puede decir porque me sale esto por favot

Buenas noche despues de estar con este cronograma desde elmes de febrero hasta la fecha ha surgido un problema que llevo 2 semanas intentando averiguar lo que es y sin exito me sale "se requiere un objeto (errror 424), alguien me puede decir porque me sale esto por favot

Amigo [uSER=64453]@pemante[/uSER] lee este tema, de seguro por allí va la cosa

https://www.ayudaexcel.com/foro/threads/botones-activex-en-office-no-funcionan.37279/

muchas gracias, lo he restaurado a una fecha anterior y ya puedo trabajar con el, en windows 7 Ok, en windows xp sigo con el problema

resuelto en el xp, he borrado una actualizacion y ya va

muchas a todos por los consejos

Muy buen día Antonio,

Excelente tu macro, tienes algún video en youtube para seguirte y ver los comandos que hiciste en este archivo?

Necesito la programación del cronograma en el archivo adjunto, que tambien le hice una mejora para registrar las actividades.

Quedo atenta.

Gracias

Macroactv1.zip

unos años después, lo he visto. me parece una pasada. no se como haces ese calendario me gustaría poder aplicarlo en mis archivos.

un saludo.

excelente aporte, pero sale error, cuando se le elige una fecha mayor a 30 días

saludos

En "Insertar" vas a mas controles donde están los puntos suspensivos y buscas "Microsoft Date and Time Picker Control 6.0"

Macro antonio, buenas tardes, que significa "Dar de alta"

1) Dar de alta el proyecto (Hoja "Proyectos")

2) Dar de alta las tareas del proyecto (Hoja "Tareas x Proyecto")

3) Dar de alta los recursos asignados al proyecto (Hoja "Recursos x Proyecto")

Disculpe mi ignorancia, pero se casi nada de Excel y estoy aprendiendo.

De mas es decir que su macro es excelente y como tengo que realizarle algunas modificaciones para mi trabajo me gustaría que atienda mi duda.

Quedando atento a sus comentarios, le envió mis saludos.

Muchas gracias.

Fantástico Sr. Macro Antonio. Seria un aporte muy bueno si aparte de explicar la utilidad de la macro, que es impresionante, no mas impresionante el calendario emergente.

slu2. Hugo