flash diske yedekleme

[Crazy Drake]

Ken = ActiveWorkbook.Name
tar = Application.Text(Now(), "mm.dd.yy-hh.mm")
isim = Ken & "- Yedek " & tar & ".xlsm"
ActiveWorkbook.SaveCopyAs isim

bu kodla sadece belgelerime yedekleme yapabiliyorum bir sürücüye yedekleme yapması için nasıl bir değişiklik gerekiyor

 

[Metin Karaağaç]

Sisteminizin varsayılan kayıt yeri "belgelerim" olduğu için oraya kayıt yapıyor olabilir.
Bu kodları çalıştırmadan önce herhangi bir dosyayı flash belleğe kaydedin, daha sonra bu kodu deneyin. Sanırım istediğiniz olacak gibi geliyor bana..

 

[Erhan Köseoğlu]

bu kodu çalıştırmak için bir düğmeye mi eklemeliyiz

 

[Crazy Drake]

koluncak
Düğmeye ekleyince çalışıyor

Metin Karaağaç
Bu koda yedekleyeceği yerin yolunu ekleyemezmiyiz

 

[Metin Karaağaç]

Benim bilgimi biraz aşıyor, kusura bakmayın.

 

[Erhan Köseoğlu]

ben de yedek olarak masaüstüne aldı, ancak yedek alınan belge boş

 

[Crazy Drake]

biraz uğraştırdı ama bu şekilde hallettim

Sub YEDEK()
Ken = ActiveWorkbook.Name
tar = Application.Text(Now(), "mm.dd.yy-hh.mm")
isim = Ken & " - Yedek " & tar & ".xlsm"
ActiveWorkbook.SaveCopyAs "I:" & "\" & isim & ".xlsm"
End Sub

 

[Crazy Drake]

flash disk takılı olmadığında uyarması için kodu bu hale getirdim ama bu sefer flash disk takılı olduğundada aynı uyarıyı veriyor. hata olmadığı zaman bu uyarıyı vermemesi için ne yapmam gerekiyor

Sub YEDEK()
On Error GoTo hata
Ken = ActiveWorkbook.Name
tar = Application.Text(Now(), "mm.dd.yy-hh.mm")
isim = Ken & " - Yedek " & tar & ".xlsm"
ActiveWorkbook.SaveCopyAs "I:" & "\" & isim & ".xlsm"
hata:
    MsgBox "Lütfen Bir USB Bellek yerleştirin"
End Sub