bloquear pantalla

Application.ScreenUpdating=False
'Tu codigo aqui
Application.ScreenUpdating=True

Saludos,
KL

"JrL" wrote in message
news:

por favor alguien sabe como se puede bloquear la pantalla durante la
ejecucion de una macro. es decir que por.ejem durante un copy paste no se
vea
todos los movimientos realizados paa la grabacion de la macro

Hola Jrl:
La siguiente macro copia un rango de la hoja1 a la hoja2 sin seleccionarla:

Sheets("Hoja2").Range("B5:B13").Value = Sheets("Hoja1").Range("A1:A9").Value

No utiliza el portapapeles pero creo que es lo que buscas
Posicionate en la hoja1 de un libro nuevo y rellena el rango A1:A9 -->
despues pega la macro en un modulo y ejecutala.
Un saludo

"JrL" escribió en el mensaje
news:

por favor alguien sabe como se puede bloquear la pantalla durante la
ejecucion de una macro. es decir que por.ejem durante un copy paste no se
vea
todos los movimientos realizados paa la grabacion de la macro

Gracias las dos respuestas me son utiles.

"Ignacio Pérez" escribió:

Hola Jrl:
La siguiente macro copia un rango de la hoja1 a la hoja2 sin seleccionarla:

Sheets("Hoja2").Range("B5:B13").Value = Sheets("Hoja1").Range("A1:A9").Value

No utiliza el portapapeles pero creo que es lo que buscas
Posicionate en la hoja1 de un libro nuevo y rellena el rango A1:A9 -->
despues pega la macro en un modulo y ejecutala.
Un saludo

"JrL" escribió en el mensaje
news:
> por favor alguien sabe como se puede bloquear la pantalla durante la
> ejecucion de una macro. es decir que por.ejem durante un copy paste no se
> vea
> todos los movimientos realizados paa la grabacion de la macro

Solo un comentario - dado q la propiedad 'Value' es la propiedad del objeto
'Rango' por defecto, su uso en este caso no es imprescindible, lo cual
permite acortar el codigo propuesto por Ignacio de la siguiente manera:

Sheets("Hoja2").Range("B5:B13") = Sheets("Hoja1").Range("A1:A9")

Saludos,
KL

"Ignacio Pérez" <ignaciopsantaella@(eliminar)hotmail.com> wrote in message
news:O%

Hola Jrl:
La siguiente macro copia un rango de la hoja1 a la hoja2 sin
seleccionarla:

Sheets("Hoja2").Range("B5:B13").Value =
Sheets("Hoja1").Range("A1:A9").Value

No utiliza el portapapeles pero creo que es lo que buscas
Posicionate en la hoja1 de un libro nuevo y rellena el rango A1:A9 -->
despues pega la macro en un modulo y ejecutala.
Un saludo

"JrL" escribió en el mensaje
news:

por favor alguien sabe como se puede bloquear la pantalla durante la
ejecucion de una macro. es decir que por.ejem durante un copy paste no se
vea
todos los movimientos realizados paa la grabacion de la macro