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.

Preguntas similare

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.
Respuesta Responder a este mensaje
#2 Anonimo
11/12/2008 - 22:43 | Informe spam
Muchas Gracias.

Efectivamente, la mayor virtud de los despistado es no dar los datos
necesarios para una buena respuesta. Intentare mejorar

Son copia de datos exclusivamente, y no formatos

Ahora intentaré aplicar tus enseñanzas que seguro aprendere de ellas.


"Héctor Miguel" escribió en el mensaje de
noticias news:
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.




email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida