Süre Geri Sayım (Bilgi Yarışması)

[beyinmuhendisi]

Okulda arkadaşların isteği üzerine bilgi yarışması programı hazırlamaya çalıştım. Programa geri sayım sayacı eklemek istiyorum. Ancak yapamadım bir kaç farklı uygulama denedim ama olmadı.

"S1" Sayfasında Başlat'a tıklayınca "=Bilgiler!C13"ten süreyi alarak "E3" hücresinde geri saymaya başlayacak. excel.web.tr'de sesli uygulamalar da var ancak; uyarlayamadım. Üstatların yardımını bekliyorum. Şimdiden teşekkürler!

 

[ÖmerBey]

Merhaba, basit şekliyle şu şekilde deneyebilirsiniz.

Sub Düğme1_Tıklat()
With Range("E3")
    If .Value > 0 Then
        .Value = .Value - 1
        Application.OnTime Now + TimeValue("00:00:01"), "Düğme1_Tıklat"
    Else
        Beep
        .Formula = "=Bilgiler!C13"
    End If
End With
End Sub

 

[beyinmuhendisi]

Sayın mucit77 süper oldu. Teşekkürler!


Son 3-4 saniye kala her saniyede sesli uyarı vermesi mümkün mü?

 

[ÖmerBey]

Koda kırmızı renkli ilaveyi yapınız.
Hangi saniyeden sonra uyarı vermeye başlamasını istiyorsanız sayıyı ona göre değiştiriniz.

Sub Düğme1_Tıklat()
With Range("E3")
    If .Value > 0 Then
        .Value = .Value - 1
        If .Value < 5 Then Beep
        Application.OnTime Now + TimeValue("00:00:01"), "Düğme1_Tıklat"
    Else
        Beep
        .Formula = "=Bilgiler!C13"
    End If
End With
End Sub

 

[beyinmuhendisi]

Üstadım emeğine sağlık. Teşekkürler!