![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
(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"
CreateObject("Shell.Application").Open (ThisWorkbook.Path & "\Media\" & .ListItems(i).SubItems(13) & ".mp3")
(20/06/2020, 13:46)feraz yazdı:(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")
(20/06/2020, 14:13)feraz yazdı: Rica ederim.
Denemek için mesela 3 adet kayıt ekleyin arka arkaya excelin açılmasından 5 dakika sonrası için.Yani saat 14 ise 14:03
14:04 gibi ve kaydedin.
Exceli kapatıp sadece açın başka bişey yapmasanız bile yine vakhi gelenler için uyarı vermesi gerek normalde.
Diğer şartları akşam yapmaya çalışırım.