Creando barra de progreso en UserForm paso a paso

Si bien es cierto las barras de progreso implementadas en nuestro proyecto VBA nos ayudan a informar al usuario final de cuánto tiempo va a demorar una rutina específica, PERO...esto es una carga adicional en memoria al momento de compilar y ejecutar dichos procesos.



Sin embargo, en casos excepcionales, como rutinas que pueden llegar a tardar muchísimo tiempo, lo cual puede dar la impresión al usuario final que Excel se ha quedado congelado y lo cierra de forma forzada, pues en esos casos sí es muy necesario crear una barra de progreso para informarle que la rutina está trabajando de forma normal y que pronto va a finalizar.

Pues en esta ocasión te traigo este paso a paso y lo sencillo y práctico que es, crear una barra de progreso la cual puedes adaptar a esas rutinas que suelen tardar mucho tiempo para cumplir con una tarea específica.

Puedes ver el vídeo a continuación...






Descarga el archivo base desde AQUÍ




6 comentarios:

  1. Hola se puede hacer sin necesidad que llene ninguna celda .. Gracias

    ResponderEliminar
  2. Perfecto, pero para hacer que funcione en archivos confeccionados sin rellenar ninguna celda..?

    ResponderEliminar
  3. buenas muchas gracias por la explicacion,necesito adaptarla a esta macro
    Sub BorrarRangoTodasLasHojasSegunRangoSeleccionado3()
    'On Error GoTo Errores
    For Hojas = 2 To 15
    Sheets(Hojas).Range("A5:g500").ClearContents
    'DoEvents
    Next
    MsgBox "BORRADA LA PRIMER DIVISION"
    MsgBox "Borrando Saticfatorio" & vbCrLf & vbCrLf & "Verifique las DIVISIONES para corroborar.", vbCritical, "AVISO:"
    DoEvents
    Exit Sub
    Errores:
    End Sub
    es posible? es mas largo el proceso ya que son 237 hojas en 7 grupos gracias espero tener suerte con la respuesta

    ResponderEliminar
  4. Muchas Gracias por compartir su conocimiento, Me parece una buena herramienta poder implementar una barra de progreso, pero falto lo mas importante aparte de crearla, como utilizar esto en un proceso determinado.
    Agradezco su atención.

    ResponderEliminar