Aviso de proceso en ejecucion

Antonio, antes que nada gracias por tu respuesta, pero hay algo que
seguramente estoy haciendo mal.
En principio, no entendí porqué primero es "Visible.False" y luego
"Visible.True" cuando imagaba que debería ser al revés. Pero al revés tampoco
funciona.
Te cuento.
Abri una planilla nueva sin nada en ella. Inserté un ActiveXControl TextBox.
No le cambié el nombre así que quedó con el nombre "TextBox1" y no le cambié
ninguna propiedad.
Luego creé una macro solamente para hacer que aparezca el TextBox1 y para
que luego desaparezca, siguiendo tu sugerencia. Pero no funciona bien.
Te pido que me indiques qué estoy haciendo mal, o que me corrijas la macro
para que cada vez que, con la hoja en blanco, al hacer correr la macro
aparezca el cartel y, luego del For..Next, desaparezca el cartel nuevamente.
Desde ya, muy agradecido

La macro es la siguiente:

Sub MACRO1()
Dim x As Long
Worksheets(1).Shapes("TextBox1").Visible = False

For x = 1 To 100000000
x = x + 1
Next

Worksheets(1).Shapes("TextBox1").Visible = True

End Sub



Jorge


"AnSanVal" escribió:

La solución podria ser muy variada, pero creo que te basta con un cuadro de texto, que puedes personalizar como
prefieras y hacerlo visible al comienzo del proceso e invisible al finalizar el mismo.



El código:

ActiveSheet.Shapes("cuadrotexto").Visible = TFalse
.. . . aqui el proceso . . .
ActiveSheet.Shapes("cuadrotexto").Visible = True


Donde "cuadrotexto" es el nombre del cuadro de texto.


Saludos: Antonio.
**************************


"Jorge" escribió en el mensaje
news:
> Hola Juan, creo que fuiste vos quien me ayudó en mi única oportunidad anterior.
> En esta segunda oportunidad, lo que necesito es solamente un cartel, no una
> barra de progreso.
> Los links que me enviaste seguramente me servirán para otras situaciones,
> pero no para ésta.
> Mi experiencia en macros es altísimamente limitada. Me podrías ayudar a
> solamente poner un cartel cuando se inicia la ejecución del proceso; y que
> éste desaparezca inmediatamente (sin necesidad de mi intervención) cuando el
> proceso de cálculos se terminó?
> Muchas gracias nuevamente.
>
> Jorge


.

Hola Jorge.

Primero ¡te pido disculpas!. Efectivamente primero False y después True.

Segundo no me refería a un ActiveX, sino a un Cuadro de Texto normal. Por ejemplo en Excel 2007: Insertar > Texto >
Cuadro de texto. Pero funciona igualmente con un ActiveX.

Tercero incluye en tu código un DoEvents, asi:

Sub MACRO1()
Dim x As Long
Worksheets(1).Shapes("TextBox1").Visible = False
DoEvents
For x = 1 To 100000000
x = x + 1
Next x
Worksheets(1).Shapes("TextBox1").Visible = True
End Sub


Saludos: Antonio.
*************************
"Jorge" escribió en el mensaje
news:

Antonio, antes que nada gracias por tu respuesta, pero hay algo que
seguramente estoy haciendo mal.
En principio, no entendí porqué primero es "Visible.False" y luego
"Visible.True" cuando imagaba que debería ser al revés. Pero al revés tampoco
funciona.
Te cuento.
Abri una planilla nueva sin nada en ella. Inserté un ActiveXControl TextBox.
No le cambié el nombre así que quedó con el nombre "TextBox1" y no le cambié
ninguna propiedad.
Luego creé una macro solamente para hacer que aparezca el TextBox1 y para
que luego desaparezca, siguiendo tu sugerencia. Pero no funciona bien.
Te pido que me indiques qué estoy haciendo mal, o que me corrijas la macro
para que cada vez que, con la hoja en blanco, al hacer correr la macro
aparezca el cartel y, luego del For..Next, desaparezca el cartel nuevamente.
Desde ya, muy agradecido

La macro es la siguiente:

Sub MACRO1()
Dim x As Long
Worksheets(1).Shapes("TextBox1").Visible = False

For x = 1 To 100000000
x = x + 1
Next

Worksheets(1).Shapes("TextBox1").Visible = True

End Sub



Jorge


"AnSanVal" escribió:

La solución podria ser muy variada, pero creo que te basta con un cuadro de texto, que puedes personalizar como
prefieras y hacerlo visible al comienzo del proceso e invisible al finalizar el mismo.



El código:

ActiveSheet.Shapes("cuadrotexto").Visible = TFalse
.. . . aqui el proceso . . .
ActiveSheet.Shapes("cuadrotexto").Visible = True


Donde "cuadrotexto" es el nombre del cuadro de texto.


Saludos: Antonio.
**************************


"Jorge" escribió en el mensaje
news:
> Hola Juan, creo que fuiste vos quien me ayudó en mi única oportunidad anterior.
> En esta segunda oportunidad, lo que necesito es solamente un cartel, no una
> barra de progreso.
> Los links que me enviaste seguramente me servirán para otras situaciones,
> pero no para ésta.
> Mi experiencia en macros es altísimamente limitada. Me podrías ayudar a
> solamente poner un cartel cuando se inicia la ejecución del proceso; y que
> éste desaparezca inmediatamente (sin necesidad de mi intervención) cuando el
> proceso de cálculos se terminó?
> Muchas gracias nuevamente.
>
> Jorge


.

No doy una :-((

Primero...
Worksheets(1).Shapes("TextBox1").Visible = True
... y por último...
Worksheets(1).Shapes("TextBox1").Visible = False


Sub MACRO1()
Dim x As Long
Worksheets(1).Shapes("TextBox1").Visible = True
DoEvents
For x = 1 To 100000000
x = x + 1
Next x
Worksheets(1).Shapes("TextBox1").Visible = False
End Sub


Saludos: Antonio.

GRACIAS ANTONIO!!!!!!!!!!!!!!
Funciona perfectamente y tal como quería.
Nuevamente muy agradecido

Jorge


"AnSanVal" escribió:

No doy una :-((

Primero...
Worksheets(1).Shapes("TextBox1").Visible = True
y por último...
Worksheets(1).Shapes("TextBox1").Visible = False


Sub MACRO1()
Dim x As Long
Worksheets(1).Shapes("TextBox1").Visible = True
DoEvents
For x = 1 To 100000000
x = x + 1
Next x
Worksheets(1).Shapes("TextBox1").Visible = False
End Sub


Saludos: Antonio.


.