Yedekleme

[tk123]

Sayin ftekin http://www.excel.web.tr/f130/sigorta-police-takip-prg-t40077.html adresinde güzel bir çalışması var. Ancak şöyle bir sorun var proğram her açılıp kapandığında bulundugu dizine yedek alıyor yedek sayısı sürekli artıyor. Program içindeki yedek al çalışmıyor. Program içindeki yedek al butonu çalışsa ve kişinin kendi isteğine göre gösterilen dizine yedek oluşsa

Ben Yedek alda Dizini D sürücüsü olarak gösterdim ama sadece boş klasor oluşturuyor
Bu konuda yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Merhaba,

Form üzerinde yedekleme işlemi yapan butondaki aşağıdaki satırdaki kırmızı renkli bölümleri silip deneyin.

ActiveWorkbook.SaveCopyAs Filename:=MyFolder [COLOR=red]& Application.PathSeparator[/COLOR] & MyFileEnd

 

[tk123]

Merhaba,

Form üzerinde yedekleme işlemi yapan butondaki aşağıdaki satırdaki kırmızı renkli bölümleri silip deneyin.

ActiveWorkbook.SaveCopyAs Filename:=MyFolder [COLOR=red]& Application.PathSeparator[/COLOR] & MyFileEnd

Sayın Korhan ilginize teşekkür ederim. Ama olmadı yine.

 

[Korhan Ayhan]

Merhaba,

Olmaması ilginç. Ben deneyerek size çözüm önermiştim. Tekrar uygulayıp deneyin.

 

[tk123]

Sayın Korhan benim dikkatsizliğim hata bende imiş kusura bakmayın. Şimdi D sürücüsüne yedek oluşturuyor. Ama şöyle bir sorun var.
Belgenin aslı masaüstünde. Belgeye girip çıktığımda her seferinde masa üstünede yedek dosyası oluşturuyor.

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açın.
Farklı kaydet seçeneğini seçin.
Açılan ekranda sağ üst köşede ARAÇLAR menüsünü göreceksiniz.
O menüye tıklayın.
Açılan menüden GENEL SEÇENEKLER seçeneğine tıkladığınızda karşınıza gelen küçük pencerede HER ZAMAN YEDEKLE seçeneğini pasif yapıp dosyanızı kayıt edin.
Bu şekilde dosyanız otomatik yedekten kurtulacaktır.

 

[tk123]

Çok teşekkür ederim sayın Korhan.Şimdi oldu. Hakkınızı helal edin uğraştırdım sizi.

 

[Korhan Ayhan]

Rica ederim. Hakkım varsa helal olsun.

 

[tk123]

Sayın Korhan çıkış butonuna basınca excelden tamamen çıkması için nasıl bir komut koyarız.
Ben çıkış butonunun var olan kodlarının içine Excel.ActiveWorkbook.Close ekledim ama işe yaramadı.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki satırı deneyin.

Application.Quit

 

[tk123]

Bugün beceriksizliğim üzerimde heralde yine yapamadım

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki satırı silip deneyin.

ActiveWorkbook.Close

 

[tk123]

Kodu eklediğimde ekranda kaydet penceresı cıkıyor.

İlginiz ve yaptığınız tüm yardımlar için tekrar teşekkürler . İyi geceler.

 

[Korhan Ayhan]

Aşağıdaki şekilde deneyin.

Unload Me
ThisWorkbook.Save
Application.DisplayAlerts = False
Application.Quit

 

[tk123]

[Çözüldü ] Yedekleme

Çok teşekkür ederim Sayın Korhan. Sorun çözüldü.