(20/06/2020, 13:33)kanakan52 yazdı:Sub mesaj() kodundaki(20/06/2020, 13:24)feraz yazdı: Tamama basınca tekrar soruyormu.O mesaj köprü ile ilgili.Sonra değiştiririz önceden eklediğim media playerle.Böyle kısa kod olduğu için kullanmıştım
Her çalma işleminden önce soruyor , sıkıntı yok içine gömeriz
ActiveWorkbook.FollowHyperlink Address:=ThisWorkbook.Path & "/Media/" & .ListItems(i).SubItems(13) & ".mp3"
silip alttakini ekleyin.
CreateObject("Shell.Application").Open (ThisWorkbook.Path & "\Media\" & .ListItems(i).SubItems(13) & ".mp3")