Hola colegas, estube leyendo hacerca de los progress bar, el cual logre que me funcionara a medias, a ver si logro hacerlo andar..
tengo un macro que se ejecuta normalmente, y quiero agregarle un progress bar. Lo que hice fue crear un formulario y agregarle esta barra, luego al inicio y al final del macro le agregue:
userform1.show
todo el codigo del macro
userform1.hide
Luego con este codigo que encontre el la web, pude hacer que la barra funcionara:
Private Sub UserForm_Activate()
Dim x As Long
' Generamos un ciclo For
For x = ProgressBar1.Min To ProgressBar1.Max
' Mostramos la veriable x (el value) en Label1
Label1 = x
' Usamos DoEvents para poder visualizar el conteo en el Label
DoEvents
' Asignamos en la propiedad Value del control ProgressBar _
el valor de x para ir incrementando la barra de progreso
ProgressBar1.Value = x
Next x
End Sub
Private Sub Form_Load()
'Le asignamos las propiedades para el mínimo, máximo valor del Progress bar
With ProgressBar1
.Max = 5000
.Min = 0
.Value = 0
End With
End Sub
El problema que me ocurre es que si bien el progress bar se completa normalmente, la macro se detiene al hacer cargarse el formulario, y solo continua una vez que lo cierro. Actua igual que si se abriera un msgbox.
que se puede hacer?