Muestra en barra de estado o status bar el estado ejecución del procedimiento




Domina Excel Hoy
Presento en el actual post un ejemplo de macro que permite mostrar en la barra de estado o Status Bar, el estado de ejecución de un procedimiento, cuando realizamos una macro que lleva algo de tiempo su ejecución es importante indicar que la macro está trabajando, ya que de lo contrario da la impresión que la PC se colgó o tildó; cuando en realidad es un proceso que lleva tiempo; anteriormente se presentó una macro que trabajaba con una barra de progreso, sugiero que mires el post ya que está bastante relacionado; más adelante se presentarán otros ejemplos de mayor complejidad relacionados, suscribe al blog para recibirlo en tu casilla de correo.

Otro argumento a favor de utilizar esta codificación es el aspecto profesional que otorga a la macro que se realiza, indicando paso a paso los procedimientos que está haciendo en tiempo real la macro.

Existen en internet un sin número de cursos que enseñan a programar en VBA, codificación necesaria para programar macros, de todos ellos te recomiendo unos de los mejores cursos on line que he visto en internet.





El comando que permite manipular la barra de estado o status bar, pudiendo mostrar el estado de ejecución de un procedimiento, es:

Application.StatusBar = "Procesando, aguarde..."

El ejemplo de macro denominado Muestra en barra de estado o estatus bar el estado de la ejecución de un procedimiento, es bastante sencillo; lo que realiza es un bucle contando de 1 a 5000, grabando en la celda A1 y mostrando el estado de la ejecución de la rutina en la barra de tareas; puedes descargar el ejemplo desde el link que se encuentra al final.

Considera la posibilidad de Aportar a los fines de seguir manteniendo el sitio, descarga desde el link del final el ejemplo; suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Código que se inserta en un módulo



Sub StatusBarEjecucion()
On Error Resume Next
Application.StatusBar = "Procesando, aguarde..."

fin = 5000

For x = 1 To 5000
Range("A1") = x
Application.StatusBar = "Procesando, " & x & " de " & fin & " aguarde..."
Next x

Application.StatusBar = Clear
End Sub




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends