Otomatİk Yedekleme

[mekemaloglu]

Merhaba arkadaşlar,

Bilgisayardaki herhangi bir arızaya karşı çok önemli bir dosyayı Diskin D bülömüne düğmeli makro yardımıyla nasıl yedeğini alabilirim. Her düğmeye bastığımda bulunduğum dosyayı otomatik olarak diskin D bölümüne kopyalaması gerekiyor. şimdiden tüşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=20441

 

[mekemaloglu]

ekli dosyadaki temizle

Sayın leventm;

Verdiğiniz bilgiler için öncelikle çok teşekkür ederim. uygulamayı yaptığım dosyadaki Günlük Tahakkuk Bordrosundaki Temizle düğmesine bastığımda yeşil renkli bölümdeki veriler silinecek. Bunun için bir makro yazabilirmisiniz. Şimdiden teşekkürler.

 

[mekemaloglu]

Temizle Makrosu

Arkadaşlar lütfen yardım

 

[mehmett]

Aşağıdaki kodu bir modüle yazın ve Temizle butonuna bağlayın.

Sub temizle()
Application.ScreenUpdating = False
For Each hucre In [a1:ag185]
If hucre.Interior.ColorIndex = 35 Then hucre.ClearContents
Next
End Sub

 

[mekemaloglu]

ilginiz için teşekkürler

Sayın mehmett,

Vermiş olduğunuz kodları uyguladım ancak sayfayı korumaya aldığımda hucre.ClearContents satırınıda hata veriyor. Yardımcı olursanız memnun olurum. saygılar.

 

[Korhan Ayhan]

Selamlar,

Ben az önce sizin üstteki mesajınızdaki dosya üzerinde Sn. mehmett beyin önerdiği kodları denedim gayet güzel çalışıyor. Eğer hala hata alıyorum diye ısrar ediyorsanız kodu uyguladığınız dosyayı eklermisiniz.

 

[starmetin]

Selam macro çalışıyor yalnız dosyayı her açış ve kapatışda yedek alıyor acaba sadece değişiklik yaptığımızda yedek aldıttırabilirmiyiz yani ben dosyayı bir şey bakıp açmak için kapattığımda da yedek alınıyor
teşekkürler paylaşım için

 

[mehmett]

Sayın mehmett,

Vermiş olduğunuz kodları uyguladım ancak sayfayı korumaya aldığımda hucre.ClearContents satırınıda hata veriyor. Yardımcı olursanız memnun olurum. saygılar.

Sayfayı korumaya almadan önce yeşil hücrelerin kilidini kaldırın.

Şöyle;

Biçim, Hücreler, Koruma, Kilitli onay kutusundaki seçimi iptal edin.