Barra de progreso para una apariencia profesional





Barra de Progreso: se debe insertar la barra de progreso y agregar este procedimiento dentro de ella.


Sub BarraDeProgreso()
Dim R As Integer
Dim MT As Double


For R = 1 To 180
 MT = Timer
 Do
 Loop While Timer - MT < 0.05
 Application.StatusBar = "Progress: " & R & " de 180: " & _
  Format(R / 180, "Percent") & " --- " & "Cumplimiento"
 DoEvents
Next R

Application.StatusBar = False
End Sub
 

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página descargar el ejemplo desde el link.




If this post was helpful INVITE ME A COFFEE and so help keep up the page.