Zaman Makro Koduna Düzeltme Yardımı

[baydeniro]

Merhaba arkadaşlar.

 

[baydeniro]

Merhaba arkadaşlar. Aşağıda Galus isimli kullanıcının yazdığı güzel bir kodar var. Bu kodun kırmızı ile belirtilen yerine tarih ve zamanı nasıl yerleştirmek gerekir. Bu konuda yardımcı olacak arkadaşlar şimdiden teşekkürler.


Sub date_macro()
datemacro = InputBox("Örnek zaman " & Time & _
". zamanı belirt o zamanda makro çalışsın?")
If datemacro = "" Then Exit Sub
Application.OnTime TimeValue(datemacro), "makro1" 'makro1 isimli makro çalışır
End Sub
Sub makro1()
MsgBox "makro1 çalıştı"
End Sub

 

[metot]

sayın serdarokan

dosyadaki zamanli makro kodu gerçekten de çok güzel, aslında yapılacak bir şey yok kod üzerinde tek yapacağınız şey butona bastığınızda bir zaman girmek, zaman inputbox a atandığı için ınputbox a gireceğiniz zamanla birlikte makro harekete geçiyor ben şöyle bir örnek yaptım, butona bastığımda bir zaman verdim o zamanda sayfa1 deki a1 hücresini kırmızı yapsın istedim sayfa açık iken alt+f8 yaparsanız kodu görebilirsiniz , dosyanız ektedir

 

[baydeniro]

Sayın metot yardımlarınız için çok teşekkürler.