20/06/2020, 13:24
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
(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
(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.