Zamanlı Zil Çalışması Hk.

[metin_0606]

Değerli üstatlar ekte paylaşmış olduğum çalışmada A1 hücresinde Aktif saat C2 hüçresinde ise zilin etkin olacağı zaman bulunmaktadır. Her ikisinin formatıda Örneğin 26.04.2020 20:25:16 şeklindedir. Her iki hücrede aynı formatta olduğu zaman zil etkin olmaktadır. Benim yapmak istediğim formattan tarihi çıkarıp sadece 20:25:16 formatına dönüştürmektir. Kendim now kısmının formatını dediğim şekilde yaptımsada bu seferde zamanı gelince zil çalmamaktadır. Bu konuda yardımcı olacak üstatlara şimdiden teşekkürler

 

[Muzaffer Ali]

Merhaba.

Module1 deki "start" kodlarının tamamını silin aşağıdakileri kopyalayın.

Sub start()
    Dim Alan As Range
    Dim Bak As Range
    Dim Tarih As Date
    Set Alan = Range("C2:C20")
    Sheets("zil").Range("A1").Value = Now
    If saat = True Then
        Application.OnTime Now + TimeValue("00:00:01"), "start"
        For Each Bak In Alan
            Tarih = Bak.Value
            If Tarih = Now Then
                frmzil.mp1.Url = "C:\ZİL.mp3"
                frmzil.Show False
            End If
        Next
    End If
End Sub

UserForm Activate olayında formu 9 saniye bekletmek için kullandığınız kodlar doğru bir yöntem değil. Aşağıdak
kod ile 9 saniye bekletebilirsiniz.

Application.Wait (Now + TimeValue("0:00:09"))

 

[metin_0606]

Merhaba.

Module1 deki "start" kodlarının tamamını silin aşağıdakileri kopyalayın.

Sub start()
    Dim Alan As Range
    Dim Bak As Range
    Dim Tarih As Date
    Set Alan = Range("C2:C20")
    Sheets("zil").Range("A1").Value = Now
    If saat = True Then
        Application.OnTime Now + TimeValue("00:00:01"), "start"
        For Each Bak In Alan
            Tarih = Bak.Value
            If Tarih = Now Then
                frmzil.mp1.Url = "C:\ZİL.mp3"
                frmzil.Show False
            End If
        Next
    End If
End Sub

UserForm Activate olayında formu 9 saniye bekletmek için kullandığınız kodlar doğru bir yöntem değil. Aşağıdak
kod ile 9 saniye bekletebilirsiniz.

Application.Wait (Now + TimeValue("0:00:09"))

Sayın dalgalıkur paylaşmış olduğunuz kodlar çalışmadaki kodlara nazaran daha kullanışlı değişikliği yaptım ancak halen A1 ve C2 hücrelerindeki saatin yanındaki tarih formatı devam ediyor.

 

[Muzaffer Ali]

Kodları aşağıdakiler ile değiştirin.

Sub start()
    Dim Alan As Range
    Dim Bak As Range
    Dim Tarih As Date
    Dim Simdi As Date
    Set Alan = Range("C2:C20")
    Simdi = TimeSerial(Hour(Now), Minute(Now), Second(Now))
    Sheets("zil").Range("A1").Value = Simdi
    If saat = True Then
        Application.OnTime Now + TimeValue("00:00:01"), "start"
        For Each Bak In Alan
            Tarih = Bak.Value
            If Tarih = Simdi Then
                frmzil.mp1.Url = "C:\ZİL.mp3"
                frmzil.Show False
            End If
        Next
    End If
End Sub

C2 hücresini silip "14:40:36" şeklinde saat dakika ve saniye şeklinde giriş yapın.

 

[metin_0606]

Kodları aşağıdakiler ile değiştirin.

Sub start()
    Dim Alan As Range
    Dim Bak As Range
    Dim Tarih As Date
    Dim Simdi As Date
    Set Alan = Range("C2:C20")
    Simdi = TimeSerial(Hour(Now), Minute(Now), Second(Now))
    Sheets("zil").Range("A1").Value = Simdi
    If saat = True Then
        Application.OnTime Now + TimeValue("00:00:01"), "start"
        For Each Bak In Alan
            Tarih = Bak.Value
            If Tarih = Simdi Then
                frmzil.mp1.Url = "C:\ZİL.mp3"
                frmzil.Show False
            End If
        Next
    End If
End Sub

C2 hücresini silip "14:40:36" şeklinde saat dakika ve saniye şeklinde giriş yapın.

Teşekkürler sayın Dalgalıkur şimdi istediğim gibi oldu saygılar

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.