...Run-time error '9':
Subscript out of range
Option Explicit
Sub Auto_Open()
DoEvents
Sheets("test").Range("N1") = 1
Application.OnTime Now + TimeSerial(0, 0, 2), "Renklendir"
End Sub
Sub Renklendir()
DoEvents
Sheets("test").Range("N1") = ""
Application.OnTime Now +...
...diğer hücrelere nasıl uygulayabilirim?
Sub renkver()
DoEvents
If Range("A1") > 5 Then
Range("A1").Interior.ColorIndex = 6
Application.OnTime Now + TimeValue("00:00:01"), "renksil"
Else
Range("A1").Interior.ColorIndex = xlNone
Application.OnTime Now + TimeValue("00:00:01"), "renksil"
End...
...Explicit
Public CloseDownTime As Variant
Public Sub ResetTimer()
On Error Resume Next
If Not IsEmpty(CloseDownTime) Then Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False
CloseDownTime = Now + TimeValue("00:05:00") ' hh:mm:ss...
...Object)
ResetTimer
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not IsEmpty(CloseDownTime) Then
Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False
End If
End Sub
Option Explicit
Public CloseDownTime As Variant...
...kodları ekleyin.
Dim CloseTime As Date
Sub TimeSetting()
CloseTime = Now + TimeValue("00:00:30")
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
On Error Resume Next...
...açılınca mesaj kutusu çıkmaması için ve hücrenin yanıp sönmesi için modul1 de auto_open kodunu değiştiriniz.
Sub auto_open()
Application.OnTime Now + TimeValue("00:00:10"), "yanson"
Rem yanson kodunu çalıştırır
Makro1
Rem Sıralama kodunu çalıştırır
Sheets(1).Select
Rem Ana Menü Sayfasını...
Merhaba;
Boş bir modüle;
Sub zamanla_çalışan_makro()
çalışmazamanı = Cells(1, 1)
Application.OnTime (çalışmazamanı), "çalışacakmakro", , True 'TimeValue
'Application.OnTime TimeValue("16:59:00"), "çalışacakmakro", , True 'üstteki satır bu şekilde de olabilir
End Sub
Sub çalışacakmakro()
MsgBox...
Emeğiniz için teşekkür ederim hocam. Kod çalışıyor. Bu kod üzerine gerekli oynamaları yapabilirim sanırım. Ama bir kaç sorum olacak müsadenizle Bildirim olarak sesli uyarı yapma şansımız var mı acaba dosya açıkken ama simge durumundayken sadece yanıp sönüyor bildirim dosyaya basınca çıkıyor...
...& "\Alarm01.wav", 0&, &H1 Or &H20000)
MsgBox "İdman saatiniz geldi..." & vbLf & vbLf & _
"Yapılacak idman ; " & S1.Range("A1"), vbInformation
End If
End If
Set S1 = Nothing
Application.OnTime Now + TimeSerial(0, 0, 1), "Auto_Open"...
Hocam harikasınız demek sizi beklemek gerekmiş peki 30 saniye yapmak istesem nasıl bir formül kullana bilirim sizin formül direk sayı olduğu için beceremedim. Teşekkür ederim.
...With Sheets("AnaData")
.Range("B3:M26").Sort Key1:=.Range("M3"), Order1:=xlAscending, Header:=xlNo
End With
Application.OnTime Now + TimeSerial(0, 1, 0), "Auto_Open"
End Sub
Sonra dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" formatında kayıt edip kapatın.
Tekrar...
Hocam çok sağol deneyeceğim de bu vermiş olduğunuz formülü nerede kullanacağım dosyamın yani sayfanın adı Sheet' in ismi adı "AnaData" bunun içinde mi kullanacağım.
Mail gönderme kodlarınızı mail isimli macroya yazınız.
Sub auto_open()
Application.OnTime TimeValue("09:00:00"), "Mail"
End Sub
Sub Mail()
MsgBox "Mail gönderildi"
End Sub
...istemekteyim..(SQL veri tabanı bağlantısı bulunmakta..)
değerli görüş ve desteklerinizi rica ederim..
Sub Auto_Open()
Application.OnTime TimeValue("12:19:00"), "Mail_ActiveSheet"
End Sub
Sub Mail_ActiveSheet()
'Working in 2000-2007
Dim FileExtStr As String
Dim FileFormatNum As...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.