Auto Open

[evren_01]

Arkadaşlar Auto open hakkında soracaklarım var
1 beraberinde acılan dosya acık ise makro duracak veya o dosyayı acmayacak
2 kısaca network ortamında Auto Open Makrosu nasıl oluyor ve sadece net worktan calışan kişi için bu makro calışacak

 

[Levent Menteşoğlu]

Network ortamında auto open olarak dosya açmak için aşağıdaki makroyu kullanabilirsiniz,buradaki yolu kendinize göre değiştirin. Dosya eğer açık ise zaten salt okunur olarak açayımmı uyarısı verecektir. İsterseniz bu uyarıdan sonra açmazsınız.
[vb:1:e4a0af14c6]Sub auto_open()
Workbooks.Open Filename:="\\ahmet\c\Belgelerim\açılacakdosyaadı.xls"
End Sub
[/vb:1:e4a0af14c6]

 

[evren_01]

Levent bey teşekker ederim

Esasında benim istediğim

Sub AUTO_OPEN()
Workbooks.Open ("C:\EVRAKLARIM\Kitap1.xls ")
Workbooks.Open Filename:="\\Evren\EVRAKLARIM\Kitap1.xls"
Workbooks("Deneme1.XLS").Activate
Range("F209").Select
End Sub

birinci open makrosu benim için ikinci open makrosu networktan girenler için
burada sorun birincisinde hata varsa hata iletisini göstermeden ikincisine gecmesi , ikincisinde hata oluyorsa hata iletisini göstermeden bir sonraki adıma gecmesini istiyorum
yardımlarınızı bekliyorum

 

[Levent Menteşoğlu]

Kodunuza "on error resume next" satırını eklemeniz yeterli olacaktır.
[vb:1:88e03aaa5d]Sub AUTO_OPEN()
On Error Resume Next
Workbooks.Open ("C:\EVRAKLARIM\Kitap1.xls ")
Workbooks.Open Filename:="\\Evren\EVRAKLARIM\Kitap1.xls"
Workbooks("Deneme1.XLS").Activate
Range("F209").Select
End Sub
[/vb:1:88e03aaa5d]

 

[evren_01]

teşekkür ederim levent bey