Duda en cortar pegar visual

11/12/2008 - 11:04 por Anonimo | Informe spam
Un saludo.

Me surge la siguiente pregunta. (utilizo excel 2007):

Cuando en una hoja, llamemos Datos, traemos datos de una web, nos guarda
la conexión. Para no trabajar sobre ella, copio los datos en otra hoja
llamada Borrador mediante código, y despues borro la conexión en la copia
obtenida, de la siguiente forma:

Sub BORRADOR()

'copiamos los datos de la hoja de datos a esta hoja con el fin de trabajar
sobre una copia, y no sobre el original


Sheets("HOJA DE DATOS").Range("a1:c500").Copy

Range("a1:c500").Select

Selection.PasteSpecial

ActiveWorkbook.Connections("Conexión1").Delete

Range("A1").Select



La duda me surge porque al volver a la hoja Borrador me aparece abajo en la
ventana de excel el siguiente mensaje:

Seleccione el destino y presione ENTRAR o elija Pegar

Eso como se quita? Lo digo porque al seguir con el procedimiento me da error
en el proceso de ejecución, igual simplemente tendría que volcar la tecla
ESC y ya esta, pero intento utilizar la instrucción sendkeys "{ESC}" y no me
deja.
 

Leer las respuestas

#1 Héctor Miguel
11/12/2008 - 18:21 | Informe spam
hola, jose angel !

1) en las pocas lineas que expones, no se ve que termines con la accion del "pegado" (solo tienes el .PasteSpecial)
pegar que ?... valores ?... formulas ?... formatos ?... todo ?...
esto es lo que ocasiona que al volver a la hoja donde "ibas a pegar", excel te solicite "terminar las acciones" ;)
OJO: si lo terminas por codigo, es conveniente que la siguiente instrucion sea: Application.CutCopyMode = False

2) una instruccion SendKeys NO se ejecuta sino hasta que se termina de ejecutar el codigo (como ultima accion)
o... cuando se muestra un dialogo que demande interaccion con el usuario

3) otra forma de pegar los valores (segun tu ejemplo) seria +/- como la siguiente:
range("a1:c500").value = worksheets("hoja de datos").range("a1:c500").value

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
Me surge la siguiente pregunta. (utilizo excel 2007):
Cuando en una hoja, llamemos Datos, traemos datos de una web, nos guarda la conexion.
Para no trabajar sobre ella, copio los datos en otra hoja llamada Borrador mediante codigo
y despues borro la conexion en la copia obtenida, de la siguiente forma:

Sub BORRADOR()
Sheets("HOJA DE DATOS").Range("a1:c500").Copy
Range("a1:c500").Select
Selection.PasteSpecial
ActiveWorkbook.Connections("Conexión1").Delete
Range("A1").Select

La duda me surge porque al volver a la hoja Borrador me aparece abajo en la ventana de excel el siguiente mensaje:
Seleccione el destino y presione ENTRAR o elija Pegar

Eso como se quita? Lo digo porque al seguir con el procedimiento me da error en el proceso de ejecucion
igual simplemente tendría que volcar la tecla ESC y ya esta, pero intento utilizar la instrucción sendkeys "{ESC}" y no me deja.

Preguntas similares