Klasörü içerisinde veri silmek

[Duruöz]

Herkese merhabalar,
A sutununda bulunan verileri bir klasörü içerisinde aratıp aynı isimli verileri bulup o klasör içerisinden silmesini istiyorum böyle bir şey mümkün müdür..
(dosya uzantısı fark etmeksizin)
Şimdiden çok teşekkürler...

 

[Trilenium]

Verileri dediğiniz isimler sanırım ?

ALT +F11 tuşlayarak yeni bir modül ekleyip bu kodu yapıştırıp çalıştırın.

Kod içerisinde yer alan açıklamalara göre hareket edin



Sub DeleteFiles()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' Sayfa adını gerektiği gibi değiştirin sizin sayfa adınız farklı olabilir.

Dim folderPath As String
folderPath = "C:\Klasorunuz\" ' Klasör yolunu buraya girin

Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Dim fileName As String
Dim filePath As String
Dim i As Long

On Error Resume Next
For i = 1 To lastRow
fileName = ws.Cells(i, 1).Value
filePath = folderPath & "\" & fileName
Kill filePath & ".*" ' Dosya uzantısı farketmez, hepsini siler
Next i
On Error GoTo 0

MsgBox "Dosya silme işlemi tamamlandı.", vbInformation
End Sub

 

[Duruöz]

Hocam çok ama çok teşekkürler sağolun varolun eksik olmayın....

 

[Trilenium]

rica ederim.

Sizler de sağ olun var olun.

Kolay gelsin