Makronun belli zaman aralığında otomatik çalışması

[king kobra]

Arkadaşlar merhaba,

Hazırladığım bir makronun örneğin 5 dakika aralıkla kendiliğinden çalışabilmesi mümkünmüdür acaba?

İlgilenecek arkadaşlara peşin teşekkürlerimle.

Sevgiler.

 

[N.Ziya Hiçdurmaz]

yanıt

Çalışma kitabını 5 dakika ara ile kaydeder.

Sub auto_open()
Application.OnTime Now + TimeValue("00:05:00"), "kaydet"
End Sub
Sub kaydet()
ActiveWorkbook.Save'buraya siz kendi istediğiniz kodları yazınız.
Call auto_open
End Sub

 

[king kobra]

Tşk ederim ilginiz için, ancak bir sorum olacak ben dosyayı kaydetmek istemiyorum tablo içerinde 3-4 adet makro var birbirinden farklı işlem yapıyorlar, bunlardan birisinin belli zaman aralığı ile çalışmasını istiyorum, bu makro dolu alanları temizleyip ,sql bağlantısı ile veritabanından bilgi çekiyor, bu makronun kullanıcı bağımsız çalışmasını istiyorum, sizin kod yazın dediğiniz kısıma bu makroyu çağıran kodu yazmam yeterli olacak mıdır?
Sevgiler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub auto_open()
Application.OnTime Now + TimeValue("00:05:00"), "kaydet"'tırnak içindeki başlığı değiştirebilirsiniz.Tabi alttaki başlığıda ona göre değiştirmelisiniz.
End Sub
Sub kaydet()
ActiveWorkbook.Save'buraya sizin çalışmasını istediğiniz kodları yazmanız yeterli olacaktır .
Call auto_open'bu kalsın.
End Sub

 

[mavisachal]

Cok iyi ya gercekten tebrikler

 

[king kobra]

Sevgili mavisachal,

Çok iyi mesajınız kime bu isteği yapan olarak banamı yoksa çözüm üreten üstadımızamı yoksa ikimizede mi?

Cok iyi ya gercekten tebrikler

 

[king kobra]

Önerdiğiniz gibi makro adlarını değiştirmeden kendi kodumu yazdım,ancak çalıştıramadım..
Nerede hata yapıyorum acaba?

Sub auto_open()
Application.OnTime Now + TimeValue("00:05:00"), "Kaydet"
End Sub
Sub Kaydet()
ActiveWorkbook.Save
Sheets("Rapor").Select
Selection.AutoFilter Field:=10
Range("U7:X21").Select
Selection.ClearContents
Range("U24:X37").Select
Selection.ClearContents
Range("A7:Q1510").Select
Selection.ClearContents
Range("A3").Select
ActiveCell.FormulaR1C1 = "S2007"
Range("A3").Select
Selection.ClearContents
Range("F7").Select
Call auto_open
End Sub

 

[king kobra]

Dosyayı auto_open 'ı başka bir modüle taşıdım, dosyayı kapatıp açtım ,çalıştı , çok teşekkürler, elleriniz dert görmesin..
Sevgiler.

 

[akalan]

Zaman aralığında macro çalışması

Merhaba

zaman kısıtlamalı excel yapmak istiyorum.

örnek olarak saat 08:00 ile 10:00 saatleri arasında excel açılırsa uyarı verip kendini kapatsın

 

[acolkesen1]

Merhaba,
Sanırım aşağıdaki kodlar isteiğinizi karşılar.
Sub auto_open()
İf Time>"08:0:00" or Time<"10:00:00" then
msgbox "Saat 8:00 - 10:00 arası çalışamazsınız"
Application.Quit
End if
End sub

 

[YUSUF44]

Merhaba,
Sanırım aşağıdaki kodlar isteiğinizi karşılar.
Sub auto_open()
İf Time>"08:0:00" or Time<"10:00:00" then
msgbox "Saat 8:00 - 10:00 arası çalışamazsınız"
Application.Quit
End if
End sub

Bence "or" değil "and" olmalı. "or" olursa bu kodlar hep doğru sonuç verir ve dosya kapanır.

 

[acolkesen1]

Haklısınız sayın YUSUF44 .. Uyarı ve düzeltme için teşekkür ederim.

 

[alioltulu]

Merhaba,
Sanırım aşağıdaki kodlar isteiğinizi karşılar.
Sub auto_open()
İf Time>"08:0:00" or Time<"10:00:00" then
msgbox "Saat 8:00 - 10:00 arası çalışamazsınız"
Application.Quit
End if
End sub

Merhaba Bu kodu denedim fakat çalıştıramadım bi türlü. Then yazan yerde hata vermektedir.

 

[alioltulu]

If Time > "08:0:00" And Time < "10:00:00" Then
MsgBox "Saat 8:00 - 10:00 arası çalışamazsınız"
Application.Quit
End If
End Sub

Sanırım bu şekilde olması gerekiyor fakat çalıştıramıyorum bi türlü.

 

[YUSUF44]

If Time > "08:00:00" And Time < "10:00:00" Then

Çift sıfır nedeniyle olabilir mi?