Copiar a otra hoja
Les saludo tengo un problema con este código ya revise la ruta y el nombre pero igual sale un error ("falta objeto") (Excel 2007)
Sub Copia()
Sheets("Resumen").Select
Range("f2:f15").Select
Selection.Copy
Worksbooks.Open ("C:\Documents and Settings\rortiz\Mis documentos\Ensayos")
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Agradezco su ayuda
Sub Copia()
Sheets("Resumen").Select
Range("f2:f15").Select
Selection.Copy
Worksbooks.Open ("C:\Documents and Settings\rortiz\Mis documentos\Ensayos")
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Agradezco su ayuda
1 respuesta
Respuesta de paramisolo
1
Tienes mal la sintaxis quedaría así:
Sub Copia()
Sheets("Resumen").Select
Range("f2:f15").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\rortiz\Mis documentos\Ensayos.xls"
'Aquí en el libro abierto tienes que seleccionar un rango donde pegar los datos copiados si por ejemplo es en la celda A1 pondrías:
ActiveSheet.Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Mira a ver si ahora te funciona.
>Un saludo
>Julio
PD: Finaliza y puntúa la consulta.
Sub Copia()
Sheets("Resumen").Select
Range("f2:f15").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\rortiz\Mis documentos\Ensayos.xls"
'Aquí en el libro abierto tienes que seleccionar un rango donde pegar los datos copiados si por ejemplo es en la celda A1 pondrías:
ActiveSheet.Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Mira a ver si ahora te funciona.
>Un saludo
>Julio
PD: Finaliza y puntúa la consulta.
