Mensajes a pantalla
Valedor, te traigo otra pregunta :
Quiero enviar a pantalla de excel un contador de registros procesados ( sólo para mostrar actividad ), loo intento hacer con el msgbox pero siempre pide un aceptar en cada vuelta ... Es posible dejar al msgbox sin botones o de que otra forma se te ocurre... Considera que el despliegue de pantalla esta inhibido.
Gracias.
Humberto
Quiero enviar a pantalla de excel un contador de registros procesados ( sólo para mostrar actividad ), loo intento hacer con el msgbox pero siempre pide un aceptar en cada vuelta ... Es posible dejar al msgbox sin botones o de que otra forma se te ocurre... Considera que el despliegue de pantalla esta inhibido.
Gracias.
Humberto
1 Respuesta
Respuesta de valedor
1
Para estos casos yo acostumbro a usar la barra de estado como te muestro en el siguiente procedimiento...
Option Explicit
Public Sub Progeso()
Dim co1 As Long
Application.ScreenUpdating = False
For co1 = 1 To 10000
ActiveCell.Value = co1
Application.StatusBar = "Procesando Registro: " & Format(co1)
Next co1
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
Saludos...
No te olvides de finalizar...
Mauricio
Option Explicit
Public Sub Progeso()
Dim co1 As Long
Application.ScreenUpdating = False
For co1 = 1 To 10000
ActiveCell.Value = co1
Application.StatusBar = "Procesando Registro: " & Format(co1)
Next co1
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
Saludos...
No te olvides de finalizar...
Mauricio
