Makroya ses ekleme

[ormann]

Sayın arkaşlar ekteki örnek dosyamda bulunan silme makrosuna dosyanın içerisindeki sesleri ekleyebilirmiyiz.yardımlarınızı bekliyorum saygılar

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/search.php?searchid=1669139

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz. Kırmızı bölümleri kendi sisteminize göre güncelleyiniz.

Sub SAYFASİL()
    Dim s
 
    ExecuteExcel4Macro ("SOUND.PLAY(, ""[COLOR=red]C:\Documents and Settings\Admin\Desktop\SİLME[/COLOR]\SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ.wav"")")
    s = MsgBox("SİLMEK İSTEDİĞİZDEN EMİNMİSİNİZ?", vbYesNo, "[EMAIL="Alidogan5557@Hotmail.com"]Alidogan5557@Hotmail.com[/EMAIL]")
 
    If s = vbYes Then
        Range("B5:B26").ClearContents
        ExecuteExcel4Macro ("SOUND.PLAY(, ""[COLOR=red]C:\Documents and Settings\Admin\Desktop\SİLME[/COLOR]\SİLME İŞLEMİ GERÇEKLEŞTİ.wav"")")
        MsgBox "SİLME İŞLEMİ GERÇEKLEŞTİ", , "[EMAIL="Alidogan5557@Hotmail.com"]Alidogan5557@Hotmail.com[/EMAIL]"
    Else
        Range("d3").Select
        ExecuteExcel4Macro ("SOUND.PLAY(, ""[COLOR=red]C:\Documents and Settings\Admin\Desktop\SİLME[/COLOR]\SİLME İŞLEMİNDEN VAZGEÇTİNİZ.wav"")")
        MsgBox "SİLME İŞLEMİ İPTAL EDİLDİ", , "[EMAIL="Alidogan5557@Hotmail.com"]Alidogan5557@Hotmail.com[/EMAIL]"
    End If
End Sub

Ya da aynı klasör altında kullanacaksanız aşağıdaki koduda kullanabilirsiniz.

Sub SAYFASİL()
    Dim s, Dosya_Yolu As String
    
    Dosya_Yolu = ThisWorkbook.Path & "\"
    
    ExecuteExcel4Macro ("SOUND.PLAY(, """ & Dosya_Yolu & "SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ.wav"")")
    s = MsgBox("SİLMEK İSTEDİĞİZDEN EMİNMİSİNİZ?", vbYesNo, "[EMAIL="Alidogan5557@Hotmail.com"]Alidogan5557@Hotmail.com[/EMAIL]")
    
    If s = vbYes Then
        Range("B5:B26").ClearContents
        ExecuteExcel4Macro ("SOUND.PLAY(, """ & Dosya_Yolu & "SİLME İŞLEMİ GERÇEKLEŞTİ.wav"")")
        MsgBox "SİLME İŞLEMİ GERÇEKLEŞTİ", , "[EMAIL="Alidogan5557@Hotmail.com"]Alidogan5557@Hotmail.com[/EMAIL]"
    Else
        Range("d3").Select
        ExecuteExcel4Macro ("SOUND.PLAY(, """ & Dosya_Yolu & "SİLME İŞLEMİNDEN VAZGEÇTİNİZ.wav"")")
        MsgBox "SİLME İŞLEMİ İPTAL EDİLDİ", , "[EMAIL="Alidogan5557@Hotmail.com"]Alidogan5557@Hotmail.com[/EMAIL]"
    End If
End Sub

 

[ormann]

Sayın hamit hocam siz benim örnek dosyamı uygularsanız.bende onu örnek alarak diğer işlemlerimde kullanırım.saygılar.

 

[ormann]

Sayın korhan bey sizden allah razı olsun çok teşekkür ederim hakkınızı helal edin.birde sizden ricam exel dosyamı ilk açtığımda gene aynı klaörden simek istediğinizden eminmisiniz ses dosyası gelebilirmi ilk açılışta