(Solved) – run finish Video and move to next sheet

  • by

How to write VBA Video code that run video afetr finish automatic move to next sheet.
Sub NextMediaFile()
Dim Folder As String
Dim StartCell As String
Sheet1.WindowsMediaPlayer1.Visible = True
‘ Move to the next song/video
ActiveCell.Offset(1, 0).Select
StartCell = “A4”
Folder = Sheet1.Range(StartCell).Offset(-1, 0).Value
‘ If the ActiveCell is empty go to the start of the media files
If Len(ActiveCell.Value) = 0 Then
Sheet1.WindowsMediaPlayer1.URL = Folder & ActiveCell.Value
End If
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *