Microsoft Project - MACRO PARA COPIAR DESDE PROJECT A EXCEL

MACRO PARA COPIAR DESDE PROJECT A EXCEL

Publicado por javier (1 intervención) el 08/10/2017 16:07:21

Buen día, me dirijo a ustedes para solicitarle el apoyo con respecto a una duda que tengo; y la misma es la siguiente: ¿Cómo haría para crear una macro en Microsoft Project que haga lo siguiente?:

1. Copie desde Microsoft Project toda la columna o campo llamado “Nombre” (aquellas que tengan alguna descripción de tareas) y la columna o campo llamado “% completado” (asociadas a las tareas descritas), y luego,
2. Copie esa información en un archivo Excel.

¿como se haria esa macro?

Esperando su valiosa colaboración me despido.

Saludos.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

MACRO PARA COPIAR DESDE PROJECT A EXCEL

Publicado por Ignacio mvp (76 intervenciones) el 16/12/2018 01:19:09

Hola Javier.

Una forma rápida y sencilla sería la siguiente, aunque hay otras.

Sub Copiar_Project_a_Excel()

' Macro grabada el 15/12/18 por Ignacio Martín MVP Microsoft.

    Dim Mixl As Object

    Set Mixl = CreateObject("Excel.Application")

    Dim MixlLibro As Excel.Workbook

    Dim MixlHoja As Excel.Worksheet

    Set MixlLibro = Workbooks.Add

    Mixl.Visible = True

    Set MixlHoja = Worksheets("Hoja1")

    MixlHoja.Activate

    SelectTaskColumn Column:="Nombre"

    EditCopy

    'Cambiar aquí la celda destino

    Range("A1").Select

    MixlHoja.Paste

    SelectTaskColumn Column:="% completado"

    EditCopy

    'Cambiar aquí la celda destino

    Range("B1").Select

    MixlHoja.Paste

End Sub

Espero te sirva.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Ayuda espeficica

Indicadores tipo Semaforo