Help to get Label.Caption each row on 5 second

[sbv1986]

This code belove will take random cells text to Label1.Caption in Form

Now i want Lebel1.Caption will appear Cells(1,4) 5 seconds then cells(2,4) 5 seconds then cells(3,4) 5 seconds .... to the end row.
Please help me to do that, thanks in advance./.

[COLOR=#141414][FONT=inherit]Private Sub Userform_Initialize()[/FONT][/COLOR]<code style="box-sizing: border-box; font-family: inherit; font-size: 1em;">   Label1.Caption = ThisWorkbook.Sheets("data").Cells(WorksheetFunction.RandBetween(1, 200), 4).Text </code>[COLOR=#141414][FONT=inherit]End Sub[/FONT][/COLOR]

 

[DanteAmor]

To observe the changes must be in the activate event

Private Sub [COLOR=#0000ff]UserForm_Activate[/COLOR]()
    i = 1
    For i = 1 To 5
        Label1.Caption = Sheets("data").Cells(i, 4).Value
        Application.Wait Now + TimeValue("00:00:05")
        DoEvents
    Next
    MsgBox "Welcome"
End Sub

 

[sbv1986]

Thanks code work but there has a problem that time still running to the end of row(i), but I want when I close Form with "Unload Me" this Events will stop.

 

[DanteAmor]

Use this

Press unload and wait for the 5 seconds to end and the form will close.

Dim xClose


Private Sub UserForm_Activate()
    i = 1
    For i = 1 To 5
        If xClose = 0 Then End
        Label1.Caption = Sheets("data").Cells(i, 4).Value
        Application.Wait Now + TimeValue("00:00:05")
        DoEvents
    Next
    MsgBox "Welcome"
End Sub


Private Sub Userform_Initialize()
    xClose = 1
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    xClose = CloseMode
    End
End Sub

 

[sbv1986]

Thanks @DanteAmor code Work well.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.