Bilgisayardan gcc.xls iyi sil

[hsayar]

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

 

[hsayar]

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

MsgBox "aa"

MsgBox "İşleminiz tamamlanmıştır"
[Color="red"] Kill Bu_Kit_Ydk_ad [/color]  'korhan hocama teşekkür ederim
End Sub