Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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.