Microsoft Project - MACRO PARA COPIAR DESDE PROJECT A EXCEL

   
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

MACRO PARA COPIAR DESDE PROJECT A EXCEL

Publicado por Ignacio mvp ignacio.mvp@microsoftproject.es (56 intervenciones) el 16/12/2018 01:19:09
Hola Javier.

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad