bir makroyu dakikada bir çalıştırma

[rain2003]

bir makromun belirttiğim süre içerisinde 1 kere çalışıp durmasını saglayacak bir makro yapılabilirmi.

 

[baranseren]

timer yok VBA da ama tick ler ile çözebilirsin sanırım bunla ilgili bir örnek olacaktı arşivimde.

Sub kronometre2()
'Me.TimerInterval = 10000
a = Format("02:00:00", "hh:mm:ss")
[a1] = Format("02:00:00", "hh:mm:ss")
indirme = Format("00:00:01", "hh:mm:ss")
'standart kronometre
Dim t As Double
    Do: DoEvents
        t = Timer: Do While t - 1 >= Timer: Loop
        't.Interval = 600
        Range("a1").Select
        z = ActiveCell.Value
        z = Format(z, "hh:mm:ss")
        If Not z = "00:00:01" Then
        [a1] = [a1] - TimeSerial(0, 0, 1)
        Else
            MsgBox "Zaman Bitti"
            Exit Do
        End If
    Loop
    [a1] = Format("02:00:00", "hh:mm:ss")
End Sub
Sub kronometre()
'saliseli kronometre
Dim t As Double
    Do: DoEvents
        t = Timer: Do While t + 0.01 >= Timer: Loop
        [a1] = [a1] - TimeSerial(0, 0, 1) / 100
    Loop
End Sub
Sub sıfırla()
    [a1] = 0
End Sub
Sub dur()
    End
End Sub

 

[tiryaki1974]

Application.Wait (Now + TimeValue("0:01:00")) komutu işine yarayabilir

 

[rain2003]

excellsürekli meşgul oluyor ama sanırım şimdi olacak.
Application.ontime Now + TimeValue("0:01:00") , "dene"
satırıyla daha iyi oluyor fakat çif 3 ve bazen 4 leyebiliyor işlemi.
örneği koyuyorum bi bakın olmassa bitince mükemmel bi uygulama olacak

 

[rain2003]

işte örnek

örnek dosya burada sıcaklıkları zamanla kaydedip 3. sayfada grafik çıkartıyoruz.
aynı sayfada hem makro hem grafik aynı anda çalışmıyor
yardımlarınız için teşekkür ederim.

 

[ruonour]

dakikada bir çalıştırma komutu

merhaba,

aşağıdaki macroyu dakikada bir çalıştırmak için ne yapmalıyım?


Sub report_kayıt()



Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folders("data")

Set colItems = objFolder.Items

For Each objMessage In colItems
intCount = objMessage.Attachments.Count
If intCount > 0 Then
For i = 1 To intCount
objMessage.Attachments.item(i).SaveAsFile "C:\x\deneme.csv"
objMessage.Attachments.item(i).FileName
Next
End If
Next


End Sub




yardımınız için teşekkürler