auto open

[meda58]

arkadaşlar elimde iki tane otamatik çalışan makro var bunları aynı kitapta çalıştırmak zorundayım ancak açılışta hata veriyor hiçbiri çalışmıyor aynı anda birden çok auto open makrosu çalıştırmanın yöntemi nedir yardımlarınızı bekliyorum . Makrolar aşagıdakilerdir

Sub autpen()
Application.OnTime Now + TimeValue("00:20:00"), "sill"
End Sub

Sub sill()
If Date >= CDate("20.09.2011") Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
End Sub


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

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

 

[mancubus]

[ CODE ]
kodlar
kodlar
kodlar
kodlar
[ /CODE ]

kodları bu şekilde yazarsanız (köşeli parantesi sonrası ve öncesinde boşluk olmadan) daha anlaşılır olur.

 

[mancubus]

dosyanın yedeği üzerinde şöyle denenebilir.

Sub auto_Open()

Application.OnTime Now + TimeValue("00:01:00"), "Kayıt"
Application.OnTime Now + TimeValue("00:20:00"), "sill"

End Sub

 

[meda58]

kardeş işe yaradı bu şekilde istediğim kadar auto_open çalıştırabilirim
çok teşekkürler