- Katılım
- 2 Mart 2005
- Mesajlar
- 2,960
- Excel Vers. ve Dili
-
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Sub Makrodanonceyedekle()
Application.ScreenUpdating = False
Bu = ThisWorkbook.Name
Dim Bu_wb As Workbook
Dim Bu_s1 As Worksheet
bu_Kit_Ad = ThisWorkbook.Name '**bu çalışma kitabının adını değişkene atama
Bu_Kit_Dzn = ThisWorkbook.Path '**bu çalışma kitabını dizinini değişkene atama
Set Bu_wb = Workbooks(bu_Kit_Ad)
Bu_Kit_Ydk_ad = Bu_Kit_Dzn & "\gcc_" & bu_Kit_Ad
Bu_wb.SaveCopyAs Bu_Kit_Ydk_ad
'>İşlemler
....................
........................
...................
'.işlemler bitti
MsgBox "İşleminiz tamamlanmıştır"
'Bu_Kit_Ydk_ad Sil buraya nasıl bir satır yazılmalıdır
Msgbox "Yedeklenen çalışma sayfası silindi"
End Sub
Bilindiği üzere kodlar çalıştırıldıktan sonra geri alma olanğı yoktur....
Kodlar çalışrıken elektriklerin kesildiğini veya başka bir aksilik olduğunu düşünün
düşünmek bile istemeyiz...
Ben bunun için çalışan kitabı [Mevcut yol & gcc_Mevcut Ad] olarak makro çalışrken kopyalacam makro çalışamısının bitirdikten sonra nasıl sildirebilirm.
saygılarımla
Application.ScreenUpdating = False
Bu = ThisWorkbook.Name
Dim Bu_wb As Workbook
Dim Bu_s1 As Worksheet
bu_Kit_Ad = ThisWorkbook.Name '**bu çalışma kitabının adını değişkene atama
Bu_Kit_Dzn = ThisWorkbook.Path '**bu çalışma kitabını dizinini değişkene atama
Set Bu_wb = Workbooks(bu_Kit_Ad)
Bu_Kit_Ydk_ad = Bu_Kit_Dzn & "\gcc_" & bu_Kit_Ad
Bu_wb.SaveCopyAs Bu_Kit_Ydk_ad
'>İşlemler
....................
........................
...................
'.işlemler bitti
MsgBox "İşleminiz tamamlanmıştır"
'Bu_Kit_Ydk_ad Sil buraya nasıl bir satır yazılmalıdır
Msgbox "Yedeklenen çalışma sayfası silindi"
End Sub
Bilindiği üzere kodlar çalıştırıldıktan sonra geri alma olanğı yoktur....
Kodlar çalışrıken elektriklerin kesildiğini veya başka bir aksilik olduğunu düşünün
düşünmek bile istemeyiz...
Ben bunun için çalışan kitabı [Mevcut yol & gcc_Mevcut Ad] olarak makro çalışrken kopyalacam makro çalışamısının bitirdikten sonra nasıl sildirebilirm.
saygılarımla