Ajanda Çalışması Hakkında

(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

(20/06/2020, 13:33)kanakan52 yazdı:

(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, 13:46)feraz yazdı:

(20/06/2020, 13:33)kanakan52 yazdı:

(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")

oldu hocam.. eline sağlık

(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.