• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Dosyanın otomatik yedeğini alma

ASLAN7410

ASLAN7410

Katılım
15 Temmuz 2012
Mesajlar
2,802
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Merhaba hayırlı sabahlar.

Ekte gönderdiğim excel dosyamın Sayfa1'deki P1 hücresine tıkladığım zaman, aynı dosya ismiyle, bilgisayarın D sürücüsüne YEDEK isimli klasör açarak buraya kaydetsin, P1 hücresine ne zaman basarsam basayım YEDEK klasörü içerisindeki dosyanın üzerine hiçbir şey sormadan kaydetsin.

Forumda araştırdım ancak benim istediğim gibi bir örnek bulamadım.

Yardımcı olur musunuz?
.
 

Ekli dosyalar

Bu şekilde deneyiniz. Selection yerine Worksheet_BeforeDoubleClick de kullanılabilir. Daha kontrollü olur diye düşünüyorum.

Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, [P1]) Is Nothing Then Exit Sub
  If Range("P1").Select Then
     Dim xlobj As Object
     ThisWorkbook.Save
     
     yedekklasor = [COLOR=Red]"D:\Yedek"[/COLOR]
     If Dir(yedekklasor, vbDirectory) = "" Then MkDir yedekklasor
     kaynak = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
     hedef = yedekklasor & "\" & ActiveWorkbook.Name

     Set xlobj = CreateObject("Scripting.FileSystemObject")
     xlobj.CopyFile kaynak, hedef, True
     Set xlobj = Nothing

     'Application.Quit
  End If
End Sub
 
Sayın Asri Bey, ilginiz için çok teşekkür ediyorum, kod tam istediğim gibi çalışıyor, ellerinize sağlık.


yedekklasor = "D:\Yedek" kaydedilecek dosya için bilgisayar masa üstününü yapmak için bu kısmı nasıl değiştirmeliyiz?

Hayırlı günler, hayırlı çalışmalar diliyorum.
 
Son düzenleme:
ASLAN7410' Alıntı:
Sayın Asri Bey, ilginiz için çok teşekkür ediyorum, kod tam istediğim gibi çalışıyor, ellerinize sağlık.

yedekklasor = "D:\Yedek" kaydedilecek dosya için bilgisayar masa üstününü yapmak için bu kısmı nasıl değiştirmeliyiz?

Hayırlı günler, hayırlı çalışmalar diliyorum.
Genişletmek için tıkla ...

Aşağıdaki şekilde deneyiniz.
Kod: 
yedekklasor  = Environ("USERPROFILE") & "\Desktop\Yedek"
 
Sayın Asri Bey, valla süper oldu, çok teşekkür ediyorum.
 
ASLAN7410' Alıntı:
Sayın Asri Bey, valla süper oldu, çok teşekkür ediyorum.
Genişletmek için tıkla ...

Ufak bir ayrıntı var gerekli olabilir.
Kodlar önce asıl dosyayı kaydetmekte daha sonra kaydedilen dosyayı yedek klasörüne kopyalamaktadır.

Yani siz hücreyi tıkladığınızda asıl dosyanız değişmiş olacak. Bu ayrıntıya dikkat ediniz.

Değişmeden olmazmı derseniz, orası karışık bir durum :)
 
Sayın Asri Bey, anladım tamamdır, teşekkürler.
 
 
Sayın Halit Bey, ilginiz için çok teşekkür ediyorum.
Forumda konu açmadan önce, sizin vermiş olduğunuz linkleri incelemiştim, ancak benim istediğim gibi bir çalışma olmadığı için böyle bir konu açmıştım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst