Otomatik silsin..!

[sensizsoldum]

Merhaba,

Makro modül bölümüne yazacağımız kod belirtilen tarih ve saatte istenilen bir dosyayı silsin..!
Örneğin: C:\resim.jpg bu isimli dosyayı silsin istiyorum.

Teşekkür ederim. iyi çalışmalar dilerim.

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına kopyalayın. Dosya 29/05/2012 den sonra herhangi bir tarihte açıldığında resim dosyası silinir.

Private Sub Workbook_Open()
 
    If Date >= CDate("30.05.2012") Then
        Kill "C:\resim.jpg"
    End If
 
End Sub

.

 

[sensizsoldum]

Merhaba Ömer Bey,
İlgi ve alakanıza teşekkür ederim.
Verdiğiniz kodu kendime göre uyarladım ve kodu yeni bir modül açarak kayıt ettim ‘deneme.txt’ isimli bir dosyayı da "C:\Program Files\deneme.txt" oluşturdum. Exceli kapat aç yaptım, başarılı olmadı. Nedeni ne olabilir?








Private Sub Workbook_Open()

If Date >= CDate("12.05.2012") Then
Kill "C:\Program Files\deneme.txt"
End If

End Sub

 

[Ömer]

Dosya yolu ve ismi doğru ise siler. Tekrar kontrol edin.

Ayrıca diğer mesaj da kodları, module değil "ThisWorkbook" a kopyalamanız gerektiğini yazmıştım.

 

[sensizsoldum]

Bu çalışma kitabı bölümünde başka kodlarda var, eklediğimde hata veriyor. O bakımdan modüle içerisine aldım. Modüle olarak düzenleyebilir miyiz?

 

[Murat OSMA]

Dün mü denediniz ?

 

[Ömer]

Bu çalışma kitabı bölümünde başka kodlarda var, eklediğimde hata veriyor. O bakımdan modüle içerisine aldım. Modüle olarak düzenleyebilir miyiz?

Sub Auto_Open()
 
    If Date >= CDate("12.05.2012") Then
        Kill "C:\Program Files\deneme.txt"
    End If
    
End Sub

.

 

[sensizsoldum]

Merhaba, Murat Bey,
Ömer beyin yazdığı kodu yanlış anlamadığım kadarıyla girilen tarihten sonra dosya açıldığında. Belirtilen yoldaki dosya siliniyor. Bende bu sebeple dünün tarihini girdim.

 

[sensizsoldum]

Merhaba Ömer Bey,
Ambiguous name detected: Autpen Hatası verdi. Deli olacağım yav. Çalışmaya BuÇalışmaKitabı Sayfası br itane daha eklenebilir mi. İlk hali çalışıyordu istediğim gibi

 

[Ömer]

Hatalı şekilde dosyanızı eklerseniz net birşey söyleyebilirim. Eklediğim 2 kodu da şimdi denedim, herhangi bir hatası yok.

 

[sensizsoldum]

Merhaba Ömer Bey, Sorunu uğraşarak çözdüm. Exceli ilk açtığımda belirlenen dosyayı siliyor burda sıkıntı yok, İkinci açılışta o dosya olmadığından yada o dosyayı bulamadığından hata veriyor. Run tme error 53

 

[Ömer]

if şartından hemen önce,

On Error Resume Next

yazarsınız.

 

[sensizsoldum]

Teşekkür ederim Çok sağolun bu kez oldu Hakkınızı helal edin lütfen,
Aslında buna benzer bir sorum daha var ama yanıtlarmısınız. )