Makroya timer ilavesi

[zırzır]

Arkadaşlar,excel sayfamdaki makroya timer ilave etmek istiyorum.Timer,makronun, saat 23:45 ila 23:59 arasında çalışmasına izin vermeli bu zamanın dışında makronun butonu çalışmamalı.İlgi
lenen arkadaşlara şimdiden teşekkürler.

 

[halit3]

bu makroyu bir kullan


Sub Alarm()
Dim beepat As String
beepat = InputBox("Give Alarm at", "hh:mm:ss " & _
Format(Now, "mm:hh"), "23:45")
If beepat = "" Then
MsgBox "cancelled"
Exit Sub
End If
Application.OnTime TimeValue(beepat), "BeepMe"
End Sub
'Example of a Count Down Timer
Sub CountDownTimer()
Dim beepat As String
beepat = InputBox("Count down Timer hh:mm:ss i.e. 10:00", _
"Time now is " & Format(Now, "hh:mm:ss"), "3:00")
If beepat = "" Then
MsgBox "cancelled"
Exit Sub
End If
Application.OnTime (Now + TimeValue(beepat)), "BeepMe"
End Sub
Sub beepme()
Beep
Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beepme2"
End Sub
Sub beepme2()
Beep
Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beepme3"
End Sub
Sub beepme3()
Beep
End Sub

 

[Kemal Demir]

Merhaba,

Timer Ocx dosyam olmadıgından dolayı aşagıdaki alternatif çözümüde önerebilirim.

halit3 cevap vermiş ama yinede yazmak istedim.

Sub kontrol()
Dim ilk, son As Date
ilk = "23:45:00"
son = "23:59:00"
suan = Time
If suan < ilk Or suan > son Then
MsgBox "Makronun Calima Saati Henuz Gelmedi", vbCritical, "Dikkat"
Else
MsgBox "Kodlar Calimaya Başlayacak", vbCritical, "Dikkat"

'Calisacak kodları yazınız

End If
End Sub

Yukarıdaki kodda zannedersem işinizi görebilir.

 

[zırzır]

Sayın halit3,kodlar nereye yazılacak

 

[zırzır]

Sayın Kemal Demir,Timer Ocx bendede yok bu olmadan yukarıdaki kodlar çalışmayacakmı,
sizin kodda saat geldiğinde makronun çalışmasını engelledi

 

[halit3]

örnek dosyanı gönder kodları o dosyanın içine koyalım

 

[zırzır]

Sub günlükdegerler()
değerleriaktar
GünlükişletmekayıtlarınıAktar
Sheets("Ana sayfa").Select
End Sub

 

[zırzır]

Sayın halit3,yukarıdaki kodu verdiğiniz kodla çalıştırabilirmisiniz.

 

[Kemal Demir]

Sayın Kemal Demir,Timer Ocx bendede yok bu olmadan yukarıdaki kodlar çalışmayacakmı,
sizin kodda saat geldiğinde makronun çalışmasını engelledi

Umarım kodları busefer doğru duzenlemişimdir.

Sub kontrol()
Dim ilk, son As Date
ilk = "13:20:00"
son = "13:26:00"
suan = Time
If CDate(suan) > ilk And CDate(suan) < son Then
MsgBox "Makronun Calisma Saati Henuz Gelmedi", vbCritical, "Dikkat"
Else
MsgBox "Kodlar Calismaya Başlayacak", vbCritical, "Dikkat"

'Calisacak kodları yazınız

End If
End Sub

 

[halit3]

ekli dosyaya bakınız kendinize uyarlayınız.

ben denedim çalışıyor

 

[zırzır]

Arkadaşlar verdiğiniz kodları çalıştıramadım.Verdiğim kitap1'de aktarma butonu var,bu buton saat
23:45te aktarma yapacak 23:59dan sonra çalışmayacak

 

[halit3]

kitap1 deki hangi makro aktarılacak

 

[halit3]

test makrosumu aktarılacak

 

[halit3]

bu olay yordamı
saat 23.45 de bu makroyu çalıştıracak başka hiçmir zaman çalışmaz
ancak kendin saman dilimini değiştirirsen o zaman gelince çalışır

 

[halit3]

dosyanı kontrol edermisin

 

[zırzır]

Sayın halit3, kitap1 deki makro çalışmadı ancak ilgine teşekkür ederim.

 

[zırzır]

Arkadaşlar dün sayın halit3'ün verdiği "çalıştır" isimli excel sayfası açıldığında uyarı penceresi
çıkıyor,bu penceredeki "Cancel" sekmesini silmek istiyorum.Sadece "OK" yazısı kalacak.Sayfa
ektedir.Teşekkürler.

 

[zırzır]

Arkadaşlar,17 nolu mesajdaki çalıştır isimli excel sayfasındaki uyarı penceresini makroyu bozmadan
nasıl kaldırabiliriz?Açılışta uyarmasını engelleyebilirmiyiz.

 

[halit3]

ekli dosyayı kontrol edermisiniz