Memutar PlayList file MP3 Dengan Looping

[Andrie Amorius]

Salam Master2 Excel...
Mohon bantuannya, saya memainkan file MP3 yg sudah ada listnya di worksheet dengan menggunakan macro ini:

Private Sub CommandButton2_Click()
Dim x As Integer, y As Integer
x = Left(ActiveSheet.Name, Application.Find(" ", ActiveSheet.Name) - 1)
y = 1000 * x + (ActiveCell.Row - 2) / 2
Cells(ActiveCell.Row + 2, 2).Select
Worksheets("WMP").WindowsMediaPlayer1.URL = ThisWorkbook.Path & "\" & y & ".mp3"
End Sub

Berjalan dengan lancar dengan mengklik Command Button untuk memutar file MP3 dan men select cell di PlayList sehingga tau file yg sedang diputar serta memutar list selanjutnya, pertanyaannya apakah memungkinkan untuk saya dapat memutar PlayList itu semua hanya dengan 1 kali klik Command Button saja dengan looping??!
File MP3  terputar dan Cell List terselect dan akan otomatis pindah ke list berikutnya dan memutar file MP3 berikutnya ketika file yg diputar berakhir, saya sudah mencoba bbrp macro looping tetapi hanya memutar file MP3 pada list terakhir saja.
Semoga ada yg bisa membantu menyelesaikan permasalahan saya ini, terimakasih...

Andrie Amorius, SE. Ak
Staf Perencanaan & Keuangan
Divisi Perencanaan & Keuangan
PT. Bank Riau Kepri Syariah
Gedung Menara Dang Merdu Bank Riau Kepri
JL. Jend. Sudirman No. 462
Pekanbaru - Riau (28116)

[Mr. Kid]

Tentang loop, lihat disini.

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to milis-belajar-e...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CABriKRYi%3DP4be6UCHjMEOH1JpT%2Bz%2BMXP2mmBM10QxMRsY%2Bfvxg%40mail.gmail.com.