Makro ile otomatik kayıt yardım!!

[djoguzz]

Arkadaşlar ekteki örnekte bir login menüsü var.

Sub Kaydet()
ThisWorkbook.Save
Autpen
End Sub

Sub Autpen()
Application.OnTime Now + TimeSerial(0, 5, 30), "Kaydet"
End Sub

bu kodu bir modüme eklediğim zaman girişte login menüsü çalışmıyor açılıştı auto_open şeklinde bir hata veriyor.

Benim istediğim açılışta hem login ekranını getirecek hemde 2.30 dk da bir çalışma kitabını otomatik kaydedecek bir makro. Yardımcı olabilecek arkadaşlara teşekkürler şimdiden.

 

[djoguzz]

yokmu yardım edebilecek bi arkadaş

 

[meda58]

benim kullandığım birtane var zamanı istediğin gibi ayarla

Sub auto_open()
Application.OnTime Now + TimeValue("00:10:00"), "Kayıt"
End Sub

Sub Kayıt()
ActiveWorkbook.Save
MsgBox "Kitap Kaydedildi"
Call auto_open
End Sub

 

[djoguzz]

benim kullandığım birtane var zamanı istediğin gibi ayarla

Sub auto_open()
Application.OnTime Now + TimeValue("00:10:00"), "Kayıt"
End Sub

Sub Kayıt()
ActiveWorkbook.Save
MsgBox "Kitap Kaydedildi"
Call auto_open
End Sub

zaten buna benzer bi kod verdiğim kodda, ama açılışta Ambigous name detected: auto_open diye hata veriyor tamam dediğimde kod çalışıyor ama login ekranı gelmiyor. istediğim logiin ekranı çalışsın ve otomatik kayıt yapsın.

 

[djoguzz]

arkadaşlar bu hatayı neden verir yardımcı olacak birisi yokmu 2 gündür :S aciliyeti var konunun benim için..

 

[meda58]

kardeş bende hiç bir hata vermiyor ayrı bagımsız mödülde çalışması lazım diye biliyorum

 

[djoguzz]

kardeş bende hiç bir hata vermiyor ayrı bagımsız mödülde çalışması lazım diye biliyorum

valla bende ayrı modül içinde kullanıyorum ama açılışta hata veriyor o yüzden login ekranı kullanılamıyor.

 

[djoguzz]

yokmu sorunu çözebilecek birisi arkadaşlar acil lazım bu kod