Dosya klasörün altında yoksa çalışmayan macro...

[yasaramca]

Merhaba,

Bir excel dosyasından Tuş ile makroyu çalıştırdığımda giris1.xls isimli dosya C:\Depo klasörünün altında yoksa çalışmasın var ,ise çalışsın diye kod yazmak istiyorum. Yardımcı olabilirmisiniz.

Birde 5 dak. aralıklarla çalışacak makro yazabilirmiyiz.

Teşekkürler,

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu inceleyiniz...

Sub deneme()
If Not Dir("C:\Depo\giris.xls") = "giris.xls" Then
MsgBox "Dosya yok"
Exit Sub
Else
MsgBox "Dosya bulundu. Çalışmaya devam edebilirsiniz..."
End If
End Sub

 

[leumruk]

Ben de 5 dk arayla çalışan makroyu ekleyeyim.

Sub Çalıştır()
Application.OnTime Now + TimeValue("00:05:00"), "Makronuz"
End Sub
Sub Makronuz()
MsgBox "Makronuz çalıştı."
Call Çalıştır
End Sub