Barra de progreso...

Hola Jorge,

Si ya has visto varios ejemplos y no has podido adaptarlos a tu macro como
quieres que lo hagamos nosotros sin siquiera saber como es tu macro? Quieres
exponer el codigo?

Saludos,
KL


"Jorge1999" wrote in message
news:
Buen día,

Les pido, por favor, me apoyen para crear una barra de progreso en una
macro que al arrancar tarda en cargar los combos 23 segundos.

He visto varios ejemplos pero no he podido hacer que funcione.

Agradezco de antemano su apoyo.
Un saludo.
Jorge

hola, Jorge !

[quizas]... 'perdiste de vista' la propuesta a tu [misma] consulta anterior ?
[por si las...] la transcribo a continuacion...
==> Tengo un programa que al arrancar tarda 23 segundos en cargar los combos.

Quisiera crear una barra de avance o estado donde muestre, como se ve al instalar algun programa, una barra azul el avance.

si expones el codigo que estas usando... [probablemente] se podria intentar 'recortar' esos 23 segundos :))

o... sin conocer que/como hace el codigo que comentas... -?-
1) podrias usar [p.e.] la barra de estado de la aplicacion [por un modulo de clase]...
en la pagina de John Walkenbach, puedes descargar un ejemplo en:
http://j-walk.com/ss/excel/files/progressbar.exe
2) o por otro tipo de objetos [formularios], prueba con los siguientes enlaces:
en la pagina de John Walkenbach, descargas un ejemplo en:
http://j-walk.com/ss/excel/files/progind.exe
en la pagina de Ole P. Erlandsen, descargas [dos] ejemplos en
1) http://www.erlandsendata.no/downloa...ontrol.zip
2) http://www.erlandsendata.no/downloa...amples.zip
otro ejemplo de XL-Logic en: http://www.xl-logic.com/xl_files/vb...e_wait.zip
otro mas en la pagina de Chip Pearson: http://www.cpearson.com/excel/Progress.htm

Microsoft KB: XL Como Mostrar un Barra Progreso con un Formulario de Usuario
[basado en la tecnica de John Walkenbach] http://support.microsoft.com/kb/211736/

saludos,
hector.

KL,

Con mucho gusto.

Tengo un formulario el cual contiene 10 combobox y desde que inicia
cargandolos toma cerca de 23 segundos.
Lo que pretendo es ver el avance de este preoceso.
Te paso código de uno de ellos. Este toma cerca de 4 segundos en
cargarse.
Muchas racias por el apoyo.
Un saludo.
Jorge Cué.


With Worksheets("INTERF")
Range("G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(
_
"AJ1"), Unique:=True
Range("AJ1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("AJ1"), Order1:=xlAscending,
Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With Worksheets("INTERF")
Dim ORIGEE As Object
Set ORIGEE = .Range(.Cells(2, 36), .Cells(2, 36).End(xlDown))
End With
ComboBox1.Clear
ComboBox1.List = Application.Transpose(ORIGEE)
Range("AJ1").CurrentRegion.ClearContents
Application.CutCopyMode = False
End With



KL ha escrito:

Hola Jorge,

Si ya has visto varios ejemplos y no has podido adaptarlos a tu macro como
quieres que lo hagamos nosotros sin siquiera saber como es tu macro? Quieres
exponer el codigo?

Saludos,
KL


"Jorge1999" wrote in message
news:
Buen día,

Les pido, por favor, me apoyen para crear una barra de progreso en una
macro que al arrancar tarda en cargar los combos 23 segundos.

He visto varios ejemplos pero no he podido hacer que funcione.

Agradezco de antemano su apoyo.
Un saludo.
Jorge

Lo que te estoy mandando se hace al Acivar el UserForm1.
Un saludo.
Jorge Cué

Héctor,

Ya bajé esos ejemplos pero coloco el código donde dice "do something"
y no me funciona.
el código de estos ejemplos lo coloco antes de cargar el combo, luego
coloco la carga de un combo y termino con el código de la barra y no
me funciona.
Muchas gracias.
Un saludo.
Jorge cué.