Aviso al iniciar macro

04/12/2003 - 16:17 por Charles22 | Informe spam
Hola a todos.

Escribí una macro pero quiero que me muestre un aviso
de "trabajando" o algo así, mientras se ejecuta la
macro.

Lo he intentado con Formularios pero no he podido.

Agradezco su ayuda.

Charles22
 

Leer las respuestas

#1 Héctor Miguel
04/12/2003 - 23:03 | Informe spam
hola, Charles !

... macro ... quiero que me muestre ... "trabajando" o algo asi, mientras se ejecuta [...]
... he intentado con Formularios pero [...]



opcion 1: [informar en la barra de estado de la aplicacion]
Sub La_Macro()
Application.StatusBar = "Trabajando..."
' aqui_lo_que_hace_la_macro '
Application.StatusBar = False
End Sub

opcion 2: [si ya tienes creado un formulario con el texto de 'trabajando...' o algo asi]
Sub La_Macro()
Nombre_Del_Formulario.Show vbModeLess
' aqui_lo_que_hace_la_macro '
Unload Nombre_Del_Formulario
End Sub

opcion 3: [si usas excel-'97 que NO 'soporta' formularios 'no modales']
en un modulo de codigo 'normal' ==Sub La_Macro()
Nombre_Del_Formulario.Show
End Sub
en el modulo de codigo del formulario ==' para evitar que el usuario cierre [o cancele] el formulario '
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub UserForm_Activate()
' aqui_TRASLADAS_lo_que_hace_la_macro '
Unload Me
End Sub

saludos,
hector.

Preguntas similares