Jump to content

"Error en el método Select de la clase Range"


Flipp

Recommended Posts

Buenas gente,

Me salta ese error a la hora de hacer un .select para luego hacer un Selection.Copy y pegarlo.

La cuestión es la siguiente, yo tengo un botón con ese código en esa hoja de ese libro, y funciona bien.

El problema viene cuando llamo a esa función desde otro libro, que es cuando me salta el error en el .select.

Os pongo el código:


Workbooks("040300.xls").Worksheets("Entrada Datos").Range("f9:f23") = ""
Workbooks("040300.xls").Worksheets("R").Range("E2") = "i"
Workbooks("040300.xls").Worksheets("Entrada Datos").Range("e9:e23").Select
Selection.Copy[/CODE]

El error salta en la tercera linea.

Muchas gracias y un saludo.

Link to comment
Share on other sites

Prueba con este codigo y ya me contaras:

Workbooks("040300.xls").Worksheets("Entrada Datos").Activate

Range("f9:f23") = ""

Workbooks("040300.xls").Worksheets("R").Activate

Range("E2") = "i"

Workbooks("040300.xls").Sheets("Entrada Datos").Activate

Range("e9:e23").Copy

Link to comment
Share on other sites

Hola:

Para seleccionar un rango, es necesario activar la hoja, o dicho de otra manera, solo puedes selccionar un rango en la hoja activa. Ahora bien, resulta que para copiar un rango de una hoja, no es necesario tener el rango seleccionado, por lo que, el siguiente código debería funcionarte:

Workbooks("040300.xls").Worksheets("Entrada Datos").Range("f9:f23") = ""
Workbooks("040300.xls").Worksheets("R").Range("E2") = "i"
Workbooks("040300.xls").Worksheets("Entrada Datos").Range("e9:e23").Copy
[/CODE]

Saludos.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy