Mostrar información de excel con VBA

juansancas
08 de Diciembre del 2007
Hola !
Quiero que en un formulario, en un label, me salga, cada 5 segundos un resultado que están guardados en la tabla de excel.
2.Los resultados a mostrar serían las celdas : A1, B1,C1,D1
A2, B2,C2,D2 en este orden
He intentado con este bucle pero se me queda bloqueado


Private Sub UserForm_Initialize()

Dim res1 As Long
Dim res2 As Long
Dim res3 As long
Dim res4 As Long
Dim indice As Long

Label1.Caption = ""

For indice = 1 To 4
res1 = ActiveSheet.Cells(indice, 1)
res2 = ActiveSheet.Cells(indice, 2)
res3 = ActiveSheet.Cells(indice, 3)
res4 = ActiveSheet.Cells(indice, 4)
Application.Wait (Now + TimeValue("0:00:05"))
Label1.Caption = res1
Application.Wait (Now + TimeValue("0:00:05"))
Label1.Caption = res2
Application.Wait (Now + TimeValue("0:00:05"))
Label1.Caption = res3

Application.Wait (Now + TimeValue("0:00:05"))
Label1.Caption = res4
Next indice
End Sub

mvallejos
08 de Diciembre del 2007
¿Como es eso de que se queda bloqueado?

Tal vez deberías usar el llamado a la API Sleep en vez de provocar el retardo de 5 segundos desde el Application del Excel

Saludos