Sorgu için arama sonuçları: ontime

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...

teşekkürler hocam test1 test2 ne aacaba ?

...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.

Hocam çok teşekkür ederim şimdi oldu harikasınız. Sayenizde çok şeyler öğreniyoruz. Şimdiden hayırlı Bayramlar dilerim.

Hocam kayı edilemiyor dosyayı kapatınca siliniyor formüller sizlere zahmet olmaz ise ekledğim dosyaya uyarlamanız mümkün müdür? Ekli dosyalar

...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

Hocam iyi diyorsunu güzel diyorsunuzda yeniyim öyle bir makro yokmu diyorsunuz yani?

"Application.OnTime" metodunun kullanımını araştırın bence..... .

...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)...