aralıklarla kayıt kodu

[ariftezer]

EXCEL PROG AÇIK ama "DOSYAM KAPALI İKEN" , BELİRLEDİĞİM ARALIKLARDA DOSYAYI OTOMATİK OLARAK AÇIYOR ,
AÇMASINI İSTEMİYORUM..

DOSYAM SADECE AÇIK İKEN ÇALIŞSIN..

DOSYA EKTE
EMEĞİ GEÇEN HERKESE TEŞEKKÜRLER....

 

[isfa5878]

Application.OnTime Now + TimeValue("00:00:08"), "Autpen"

deneyiniz.

 

[ariftezer]

olmadı üstad

 

[ariftezer]

yine excel açık fakat dosya kapalı iken

dosyayı otomatik açıyor

 

[isfa5878]

sub auto_open ()
If ThisWorkbook.Activate Then
Application.OnTime Now + TimeValue("00:00:08"), "Autpen"
End If
End Sub

 

[ariftezer]

ekdeki dosya gibi açılınca hata veriyor
acaba ben biryerde hata mı yapıyorum..

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

Dim zaman As Double
 
Sub Auto_Open()
zaman = Now + TimeValue("00:00:08")
Application.OnTime zaman,"kaydet", , True
End Sub
 
Sub kaydet()
ThisWorkbook.Save
Auto_Open
End Sub
 
Sub Auto_Close()
On Error Resume Next
Application.OnTime zaman, "kaydet", , False
End Sub

 

[ariftezer]

SY: leventm

ÇOK GÜZEL OLMUŞ BİLGİ VE EMEĞİNİZE SAĞLIK

TEŞEKKÜRLER