mostrar barra de progreso en una macro VBA en excell

Hola a todos

tengo algunas macros que me llevan un cuanto tiempo en ejecutarse y muchas
veces no se si han entrado en un bucle infinito o estan funcionando

asi que queria programar un cuadro de dialogo donde me muestre por ejemplo
en que paso esta y el tanto por ciento (que ya calcularia yo de
determinada
forma)

utilizo la funcion screenupdating = false para evitar el parpadeo, con lo
cual la idea de escribir en una celda queda anulada

alguien podria pasarme un ejemplillo o una pegueña ayuda de como hacerlo
??

tambien me seria interesante que en caso de error quedara dicho cuadro de
dialogo abierto, para saber asi en que paso se produjo dicho error

gracias por adelantado

Tienes que incorporar una barra de progreso en la rutina.
Suponiendo que la barra la llames progressbar1, esto podría servir:

ProgressBar1.Min = 1
ProgressBar1.Max = Total
ProgressBar1.Visible = True
For Parcial = 1 To Total
ProgressBar1.Value = Parcial
.
next



".·:m·a·r·l·a:·." escribió en el mensaje
news:
> Hola a todos
>
> tengo algunas macros que me llevan un cuanto tiempo en ejecutarse y

> veces no se si han entrado en un bucle infinito o estan funcionando
>
> asi que queria programar un cuadro de dialogo donde me muestre por

> en que paso esta y el tanto por ciento (que ya calcularia yo de
> determinada
> forma)
>
> utilizo la funcion screenupdating = false para evitar el parpadeo, con

> cual la idea de escribir en una celda queda anulada
>
> alguien podria pasarme un ejemplillo o una pegueña ayuda de como hacerlo
> ??
>
> tambien me seria interesante que en caso de error quedara dicho cuadro

> dialogo abierto, para saber asi en que paso se produjo dicho error
>
> gracias por adelantado
>
>

muchas gracias a ambos

la idea de gustabo me ha gustado mucho, la implementare a ver que tal

pepe, con la tuya tendria que crear un userform y colocar esta en el
userform, no ??, no afectaria que el screen updating este a FALSE ?? o
tengo
que redibujar el user form cada vez que lo llamo ??

gracias a ambos


"pepe" wrote in message
news:

Tienes que incorporar una barra de progreso en la rutina.
Suponiendo que la barra la llames progressbar1, esto podría servir:

ProgressBar1.Min = 1
ProgressBar1.Max = Total
ProgressBar1.Visible = True
For Parcial = 1 To Total
ProgressBar1.Value = Parcial
.
next



".·:m·a·r·l·a:·." escribió en el mensaje
news:
> Hola a todos
>
> tengo algunas macros que me llevan un cuanto tiempo en ejecutarse y

muchas

> veces no se si han entrado en un bucle infinito o estan funcionando
>
> asi que queria programar un cuadro de dialogo donde me muestre por

ejemplo

> en que paso esta y el tanto por ciento (que ya calcularia yo de
> determinada
> forma)
>
> utilizo la funcion screenupdating = false para evitar el parpadeo, con

lo

> cual la idea de escribir en una celda queda anulada
>
> alguien podria pasarme un ejemplillo o una pegueña ayuda de como
> hacerlo
> ??
>
> tambien me seria interesante que en caso de error quedara dicho cuadro

de

> dialogo abierto, para saber asi en que paso se produjo dicho error
>
> gracias por adelantado
>
>

Hola a todos

tengo algunas macros que me llevan un cuanto tiempo en ejecutarse y muchas
veces no se si han entrado en un bucle infinito o estan funcionando

asi que queria programar un cuadro de dialogo donde me muestre por ejemplo
en que paso esta y el tanto por ciento (que ya calcularia yo de
determinada
forma)

utilizo la funcion screenupdating = false para evitar el parpadeo, con lo
cual la idea de escribir en una celda queda anulada

alguien podria pasarme un ejemplillo o una pegueña ayuda de como hacerlo
??

tambien me seria interesante que en caso de error quedara dicho cuadro de
dialogo abierto, para saber asi en que paso se produjo dicho error

gracias por adelantado