Progressbar para evaluar

Los nombres de los botones en VBA usualmente,por lo general y casi siempre,
comienzan con CommanButtonX donde x es el numero del control, podría
sustituir el nombre especificado en el codigo original, además el evento
Form_Load no existe en los formularios de VBA, puedes sustituirlo por
Userform_Initialize para que se ejecute al instanciar el form.

aparte de eso, no veo ninguna otra razon para que no funcione aparte de que
es necesario tener agregado el control ProgressBar en el cuadro de
controles.



espero que te sirva
Error: App. "GetUpAndWork.exe" couldn't be loaded, "ImToTired.exe" is
blocking it's execution.
Walter R . [zz]


"AgerGaston" wrote in message
news:
| Hola a todos.
| Hace mucho tiempo baje un PDF de la red de Visual Basic, dentro del cual
| tiene muchos articulos. Puntualmente tiene un ejemplo del control
| progressbar, lo copie tal cual en VBA y como era de esperar no me
funciono.
|
| Se los copio para que me digan que linea debo modificar (si se puede):
|
| Option Explicit
| Dim copia As Boolean
|
| Private Sub command1_click()
| Dim conta As Byte
| Dim conta2 As Long
|
| Label1.Visible = True
| ProgressBar1.Visible = True
| command1.Visible = False
| command3.Visible = True
| form1.Refresh
|
| While (conta < 100) And (copia = True)
| conta = conta + 1
| ProgressBar1.Value = conta
| For conta2 = 1 To 100000: Next
| DoEvents
|
| Wend
| Label1.Caption = "copia completada"
| command2.Visible = True
| command3.Visible = False
|
| End Sub
|
| Private Sub command2_click()
| End
| End Sub
|
| Private Sub command3_click()
| copia = False 'esto detendra el bucle del boton command1
| ProgressBar1.Visible = False
| Label1.Caption = "copia cancelada por el usuario"
| command2.Visible = True
| End Sub
|
| Private Sub form_load()
| copia = True
| End Sub
|
| Ademas de esta tiene un userform con botones, labels, etc
|
| Gracias y saludos
|