Jump to content
Sign in to follow this  
alistair

Error en metodo EditCopy

Recommended Posts

Cordial Saludo

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

Captura.jpg

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

¿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.

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy