Error en metodo EditCopy

[alistair]

Cordial Saludo

Por favor me podrian apoyar con este error que que me esta marcando usar el metodo EditCopy al ejecutar el codigo:

Este es el codigo:

Sub Seleccionar_Fecha()
 Dim WhichRow As Integer, Comienzo As Variant
     
 Range("Trabajo").ClearContents
     
 WhichRow = 0
 
 Comienzo = InputBox("Por favor ingrese la fecha de inicio de su proyecto: ")
 
'Teniendo la variable comienzo hacemos la seleccion de lo que deseamos copiar.
 SelectTimescaleRange Row:=WhichRow, StartTime:=Comienzo, Width:=-4905, Height:=1048001
 EditCopy
  
 Set ws = Worksheets("Datos Curva")
        Set Rng = ws.Range("h11")
        'Rng.PasteSpecial xlPasteValues
        MsgBox "Data importada exitosamente"
 
End Sub

Agradezco vuestra ayuda.

[Abraham Valencia]

Hola

Sin ver todo el código es un poco difícil estar seguros de qué ocurre.

[alistair]

@avalencia Ese es todo el codigo

[Abraham Valencia]

Preguntaba porque no se entiende si estás trabajando en VBA de Project o de Excel, hay, al menos aparentemente, una mezcla de objetos de ambos sin hacer referencia a un objeto Excel o un objeto Project, y por ende el error puede ir por ahí. O sea, por si no se entiende, si es VBA de Excel, no puede usar el método EditCopy (o cualquiera de Project) sin antes hacer referencia a un objeto Project además de crear dicho objeto.

[alistair]

@avalencia el codigo lo tengo en VBA de excel, desde alli tomo los datos de project para que sean pegados en :

Worksheets("Datos Curva")

Te agradezco si me ayudas a detectar donde estoy fallando.

 

 

[Abraham Valencia]

No tengo tu archivo de Project para probar, pero algo así debería servir:

Sub Seleccionar_Fecha()

Dim oproject  As MSProject.Application
Dim WhichRow As Integer, Comienzo As Variant
     
Set oproject = MSProject.Application

Range("Trabajo").ClearContents
     
WhichRow = 0
Comienzo = InputBox("Por favor ingrese la fecha de inicio de su proyecto: ")

oproject.SelectTimescaleRange Row:=WhichRow, StartTime:=Comienzo, Width:=-4905, Height:=1048001
'Teniendo la variable comienzo hacemos la seleccion de lo que deseamos copiar.
oproject.EditCopy
  
Set ws = Worksheets("Datos Curva")
Set Rng = ws.Range("h11")

Rng.PasteSpecial xlPasteValues
MsgBox "Data importada exitosamente"
 
End Sub

Si tal cual no funciona, trata de entender y adaptar el objeto Project que uso ahí. Comentas.

[alistair]

@avalencia ahora se me esta quedando en:

[Abraham Valencia]

¿Cuál es el mensaje de error que da? Podría ser que la hoja no se llame así, o que se llame en realidad "Datos Curva " (¿notas la diferencia? - el espacio al final) o que la hoja esté protegida. Son varias alternativas, por eso mejor haz captura de pantalla del mensaje de error.