Makro sonucunda işlem süresinin bildirilmesi ve sesli ikaz

[king kobra]

Arkadaşlar merhaba,

Ticari bir yazılımın özel rapor dll'ini kullanarak SQL veritabanından veri çekiyorum, kullanıcının işini kolaylaştırmak için basit makrolar kullanıyorum ,aşağıdaki makroyla raporun bittiğinde mesaj verdiyorum,ilgilenecek arkadaşlardan isteğim şöyle;

1.)Rapor bittiğinde rapor süresinin de bildirilmesi

2.)İşlem bittiğinde sesli olarak uyarı verilebilmesi,


(Özellikle uzun süren raporlarda kullanıcının makro çalıştırdıktan sonra işlem sonucunu takip etmesi ve tamamlandığından emin olması önem kazanıyor)

Yardımcı olacak arkadaşlara peşin teşekkürlerimle...

Örnek Macro;

Sheets("Genel Kontrol").Select
Selection.AutoFilter Field:=13
Range("B5:M504").Select
Selection.ClearContents
Range("T2").Select
ActiveCell.FormulaR1C1 = "Atasan07"
Selection.ClearContents
Range("F5").Select
MsgBox "RAPOR TAMAMLANDI..!!"
Selection.AutoFilter Field:=13, Criteria1:="Sorun Var"

 

[kombo]

İşlem süresini hesaplamak içn kodların başına ve sonuna mavi kodları yazın

Sub makro()
basla = Time
.
.
.
.
bitis = Time
MsgBox "Sorgulama Süresi: " & Format(bitis - basla, "hh:mm:ss")
End Sub

 

[Zeki Gürsoy]

Ses için de aşağıdaki gibi kullanın.

Private Declare Function sndplaysound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal IpszSoundName As String, ByVal wFlags As _
Long) As Long


Sheets("Genel Kontrol").Select
Selection.AutoFilter Field:=13
Range("B5:M504").Select
Selection.ClearContents
Range("T2").Select
ActiveCell.FormulaR1C1 = "Atasan07"
Selection.ClearContents
Range("F5").Select

sndplaysound "c:\ses.wav", 1

MsgBox "RAPOR TAMAMLANDI..!!"
Selection.AutoFilter Field:=13, Criteria1:="Sorun Var"

 

[king kobra]

Çok teşekkür ederim, ellerinize sağlık..

İşlem süresini hesaplamak içn kodların başına ve sonuna mavi kodları yazın

 

[king kobra]

Sevgili Anemon,
Ses için verdiğiniz kodu macro 'nun ilk satırına tek satır halinde kopyaladım,
compile error syntax error mesajı veriyor.