selamlar..
zaman ayarlı maili attıramıyorum..nerede hata yapıyorum acaba..
destek olabilirseniz sevinirim..
Sub Auto_Open()
Application.OnTime TimeValue("10:25:00"), "Mail"
End Sub
Sub Mail_ActiveSheet()
'Working in 2000-2007
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim...
...aşağıdaki gibi bir kod kullanıyorum.
Option Explicit
Dim zaman As Date
Sub Guncelle()
zaman = Now + TimeValue("00:00:10")
Application.OnTime zaman, "Guncelle"
Dim Connection As WorkbookConnection
For Each Connection In ThisWorkbook.Connections
Connection.Refresh
Next...
...Sub test()
Call test1
Dim Check
Check = Now + TimeValue("00:00:05")
Do While Now <= Check
DoEvents
Loop
Call test2
End Sub
Sub test_applicationOnTime()
Call test1
Dim Check
Check = Now + TimeValue("00:00:05")
Application.OnTime Check, "test2"...
...kopyalayın.
Sayfa üzerindeki bir butonla da Module içindeki Makro1'i çalıştırın.
Sub Makro1()
MsgBox "Makro 1 çalıştı"
Application.OnTime Now + TimeValue("00:00:5"), "Makro2"
End Sub
Sub Makro2()
MsgBox "Makro 2 çalıştı"
Application.OnTime Now + TimeValue("00:00:5"), "Makro3"...
Sub makro1()
Application.OnTime Now + TimeValue("00:00:05"), "makro2"
End Sub
Sub makro2()
Range("A1").Value = 1
Call makro1
End Sub
Her 5 saniyede bir A1 hücresine 1 değerini yazar.
...kayıt ediniz.
Dosyanızı yeniden başlattığınızda makroları etkinleştirip kullanabilirsiniz.
Option Explicit
Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 10), "Sirala"
End Sub
Sub Sirala()
Range("B3:C" & Rows.Count).Sort Range("C3"), xlDescending
Call Auto_Open
End Sub
...End With
a = a + 1
Cells(a, "A") = Replace(Split(Split(x.responsetext, """sell"":{")(1), ":")(0), """", "")
a = a + 1
Cells(a, "A") = Replace(Split(Split(x.responsetext, """buy"":{")(1), ":")(0), """", "")
Next
Application.OnTime Now + TimeValue("0:0:20"), "kod"
End Sub
...deneme yapınız. İlgili çalışma kitabını açtıktan 10 dk sonra mevcutta bulunan GetIPStatus makrosunu çalıştırır.
Private Sub Workbook_Open()
Range("A1:A4,D4:D7,.....").Select '<--- Burada seçmek istediğiniz alanları giriniz.
Application.OnTime Now + TimeValue("00:10:00"), "GetIPStatus"...
...= Range("E15").Resize(5, Sutun - 1).Value
Sutun = Sutun + 1
Range("E15").Value = Format(Time, "hh:mm")
Range("E16:E19").Value = Range("C7:C10").Value
End If
Application.OnTime Now + TimeValue("00:00:10"), "Basla"
End Sub
Sub Durdur()
Dur = True
End Sub
Sub AUTO_OPEN()
Call Refresh1
Call Resreh2
End Sub
Sub Refresh1()
DoEvents
Application.CalculateFull
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:05"), "Yenile"
End Sub
Sub Refresh2()
DoEvents
Application.CalculateFull
ActiveWorkbook.RefreshAll
Application.OnTime Now +...
...misal 1. kaynak 5 sn, 2. kaynak 10. sn aralıklarla veri yüklenmesini sağlamak. şuan kullandığım kod:
Sub AUTO_OPEN()
DoEvents
Application.OnTime Now + TimeValue("00:00:03"), "Yenile"
End Sub
Sub Yenile()
DoEvents
Application.CalculateFull
ActiveWorkbook.RefreshAll
Application.OnTime Now +...
Sub AUTO_OPEN()
DoEvents
Application.OnTime Now + TimeValue("00:00:00"), "Yenile"
End Sub
Sub Yenile()
DoEvents
Application.CalculateFull
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:03"), "Yenile"
End Sub
...tıklarsam yedekleme yapıyor ama kendiliğinden yedekleme yapmıyor.Yardımlarınızı bekliyorum.
Private Sub yedek_click()
Application.OnTime Now + TimeValue("00:02"), "yedek"
Dim DosyaSistemi As Object, Aktif_Dosya_Adı As String
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
Set...
...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
Private Sub Workbook_BeforePrint(Cancel As Boolean)...
...As Range)
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
Private Sub Workbook_SheetActivate(ByVal Sh As Object)...
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.