hücreye girilen isimdeki dosyayı silme

[miraclemucize]

arkadaşlar çok aradım ama dosya silme makrosu bulamadım örnek olarak anlatmak gerekirse masaüstünde yedekler diye bir klasörüm var bunun içinde kaydedilen 0004.xslm adında dosyalar var hücreye 0004 yazdığımda sile tıkladığımda bu dosyayı kaldırmsını istiyorum bir kaç sitede belirtilmiş klasörü yada dosyayı silmek için makrolar var onları denedim kendime göre düzenleyemedim bu konuda yardımınız iççin şimdiden teşekkür ederim

 

[bugrakaratas]

Sayın miraclemucize;

Aşağıdaki kodu deneyiniz lütfen. Dosya adını girdiğiniz hücrenin içeriğini "metin" yapmayı unutmayınız.

Sub Düğme1_Tıklat()

Dim dosyaadi As String
 
    dosyaadi = Cells(5, 5).Value 'burada dosya adını hangi satıra yazacaksanız o değeri giriniz
    
    
    On Error GoTo son
    
    Kill "C:\Users\admin\Desktop\Makro ile dosya silme\" & dosyaadi & ".xlsx" 'silmek istediğiniz dosyalar hangi klasörde ise o klasör yolunu giriniz
    
    Exit Sub
    
son:
     MsgBox "Dosyayı Bulamadım"
     
End Sub

 

[miraclemucize]

çok teşekkür ederim bugrakaratas bir kaç değişiklikle tam istediğim gibi oldu ellerinize emeğinize sağlık