Mostrar información de excel con VBA
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
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