Otomatik çıktı alma

[alphae]

Hayirli sabahlar.

Belli vakitlerde (ornegin: her gun saat 07:00, 15:00 ve 23:00 te) belirlenen bolumun otomatik ciktisini alabilecegimiz bir kod mevcut mu?

 

[Korhan Ayhan]

Merhaba,

Bu işlem esnasında dosyanızın sürekli açık olması gerekir.

Boş bir modüle uygulayıp deneyiniz.

Sub AUTO_OPEN()
    DoEvents
    Application.OnTime "07:00:00", "Yazdir"
    Application.OnTime "15:00:00", "Yazdir"
    Application.OnTime "23:00:00", "Yazdir"
End Sub

Sub Yazdir()
    Sheets("Sayfa1").Range("A1:K50").PrintOut
End Sub

 

[alphae]

Cok tesekkurler yardiminiz icin. Bos bir module kodu kopyaladim fakat bir degisiklik olmadi.
Sizde calisiyor mu?

 

[Korhan Ayhan]

Kodu uyguladıktan sonra dosyanızı kayıt edip kapatın.
Tekrar açtığınızda makroları etkinleştirerek açın.
Kodlar otomatik olarak çalışmaya başlayacak.
Uygun zaman dilimlerine geldiğinde otomatik olarak yazdırma işlemini yapacak.

 

[alphae]

Dosyayi actigimda face imleci dönüyor islem yapamiyorum. "Autpen" kodunda birsorun olabilir mi?

 

[Korhan Ayhan]

Hayır sorun yok. Saat kontrolü için makro sürekli çalışıyor. Bu sebeple imleç sürekli hareket halinde.

 

[alphae]

Bunu arka plana aktaramazmiyiz. Bu dosya heran bilgi girilen bir dosya olacak. Fakat calisanlar saatinde alinmasi gereken ciktilari unutuyorlar. Saati geldiginde dosyada calisirken ciktisini alabilecek

 

[Korhan Ayhan]

Sürekli saat kontrolüne gerek yokmuş. Bu durumu iptal ettim. Üstteki mesajımda ki kodu revize ettim. Tekrar deneyiniz.

İsterseniz içinde bulunduğunuz saatten 1 dakika sonrasını ayarlayıp test edebilirsiniz.

 

[alphae]

Harika olmus elinize saglik. Tesekkur ederim