Usar formulario informativo

Por ejemplo si queres mostrar el avance en la celda "A1" hace asi:

Sub avance()
Dim porc As Integer

x = 'Aqui declara el numero de la fila actual
y = 'Aqui declara el numero de filas totales

porc = x / y * 100
Range("A1").value = "Obteniendo datos (" & porc & "%), aguarde
unos segundos..."

End Sub

"Luis Medina" escribió en el mensaje
news:

Me alegra saludarlos

Les agradezco una orientación sobre la forma para utilizar un formulario

que

informe el avance de un proceso, por ejemplo: "Procesando Fila ## de

Total:

##" para no mostrarla en Status bar.

Gracias

Luis Antonio

Gracias Mariano,

La sugerencia que me das me gustaría mostrarla en un formulario que inicie
cuando se comienza el proceso loop ya que al iniciar el formulario,el
proceso como tal, se detiene.

Luis

"Mariano C Copa" escribió en el mensaje
news:#

Por ejemplo si queres mostrar el avance en la celda "A1" hace asi:

Sub avance()
Dim porc As Integer

x = 'Aqui declara el numero de la fila actual
y = 'Aqui declara el numero de filas totales

porc = x / y * 100
Range("A1").value = "Obteniendo datos (" & porc & "%), aguarde
unos segundos..."

End Sub

"Luis Medina" escribió en el mensaje
news:
> Me alegra saludarlos
>
> Les agradezco una orientación sobre la forma para utilizar un formulario
que
> informe el avance de un proceso, por ejemplo: "Procesando Fila ## de
Total:
> ##" para no mostrarla en Status bar.
>
> Gracias
>
> Luis Antonio
>
>

Luis Medina escribió en el mensaje
... formulario que informe el avance ... por ejemplo: "Procesando Fila ## de Total: ##" para no mostrarla en Status bar.

Mariano C Copa
Por ejemplo si queres mostrar el avance en la celda "A1" hace asi:
Sub avance()
Dim porc As Integer
x = 'Aqui declara el numero de la fila actual
y = 'Aqui declara el numero de filas totales
porc = x / y * 100
Range("A1").value = "Obteniendo datos (" & porc & "%), aguarde unos segundos..."
End Sub

Luis Medina
... mostrarla en un formulario ... cuando se comienza el proceso ... ya que al iniciar el formulario el proceso como tal se

detiene.

==> Por tu comentario en este ultimo mensaje, "asumo" que ya has creado el formulario (???).
Si estoy en lo correcto, dos opciones (por lo pronto) :))

1.- Si estas usando Excel 2000 (o posterior), al mostrar el formulario agrega la propiedad "sin modo" (p.e.)
UserForm1.Show vbModeless

2.- Podrias (opcionalmente) "cambiar" tu proceso al modulo del formulario y mostrarlo cuando "le toque"
(sobre todo, si usas Excel '97 que NO "soporta" vbModeless)
este ejemplo "supone" que tienes seleccionado un rango "laaaargo" en tu hoja de calculo ==Private Sub UserForm_Activate()
Dim Total As Long, Actual As Long
Total = Selection.Cells.Count
For Actual = 1 To Total
Label1 = "Procesando la celda " & Actual & " de " & Total
DoEvents
Next
Unload Me
End Sub
_______
Saludos,
Héctor.
MS-MVP