Ejecutar código paso a paso.

[jarp70]

Hola buenas.
Tengo la siguiente macro

Sub MUESTRA()
Application.ScreenUpdating = False
If Range("E6") <> "" Then
Range("E6:F11").Select
Selection.Copy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Solo hay que eliminar Application.ScreenUpdating = False para que refresque la pantalla.
De paso he aligerado un poco la macro.

Sub MUESTRA()
   If Range("E6") <> "" Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jarp70]

Muchas gracias por tu ayuda Antoni. La verdad es que funciona a la perfección.