problemas al copiar datos

27/12/2007 - 18:32 por nacho | Informe spam
hola grupo

tengo la siguiente macro

Sheets("BD").Select
Range("A1:AF10").Copy
Sheets("datosBD").Select
Selection.PasteSpecial xlPasteValues

estoy en la hoja 1
y al ejecutar la macro me coje los datos del la hoja 1 y yo quiero que
coja los de bd y los copie en datosBD,

que hago mal

ignacio
 

Leer las respuestas

#1 Ivan
27/12/2007 - 22:01 | Informe spam
hola Ignacio

tengo la siguiente macro

Sheets("BD").Select
    Range("A1:AF10").Copy
    Sheets("datosBD").Select
    Selection.PasteSpecial xlPasteValues

estoy en la hoja 1
y al ejecutar la macro me coje los datos del la hoja 1 y yo quiero que
coja los de bd y los copie en datosBD,

que hago mal



por un lado, y si no me equivoco, cambia => Sheets("BD").Select por
=>

Sheets("BD").Activate

al hacer referencia a un rango (Pej: Range("A1:AF10") ) sin un
calificador de hoja el codigo asume que se refiere a la activa, y por
lo que se ve el Select no debe activar la hoja

por otro no le indicas un rango de pegado (si no te da error supongo
que te los pegara en el rango activo de la hoja ). Pej si quieres que
se pegue a partir de A1 deberias añadir el rango tras seleccionar la
hoja de destino

de todas formas podrias hacer lo mismo sin necesidad de activar ni
seleccionar nada (y posiblemente resultaria hasta mas eficiente). Pej.
asi=>


Sheets("BD").Range("A1:AF10").Copy
Sheets("datosBD").Range("a1").PasteSpecial xlPasteValues

esto haria lo mismo y daria igual la hoja que sea la activa en el
momento de ejecutar la macro

espero te ayude
un saludo
Ivan

Preguntas similares