farklı formattaki dosya ile hücre ismi karşılaştırma

[starfish24]

merhaba,

aşağıdaki yapmak istediğim şey kodlanabilir mi? kodlanabilirse yardımınızı rica ederim. şimdiden sonsuz teşekkürler.

excel dosyasında a sütununda sıralı olan hücre isimlerinin başka bir dosya içindeki mp4 formatındaki dosyaların isimleriyle aynı olanlar varsa bu mp4 dosyalarının silinmesi

( excel dosyasında a sütununda mp4 dosyalarının isimleri yer alıyor)

 

[N.Ziya Hiçdurmaz]

yanıt

mp4 Dosyalarınızı dosyalar klasörüne atıp kodu çalıştırınız.
(Dosya isimleriniz Kitap1'in a sütünunda olmalı)

Sub AYNILARISIL()
For sat = 1 To Cells(65536, "a").End(xlUp).Row
dosya = Cells(sat, "a")
On Error Resume Next
yol = ThisWorkbook.Path
Kill "" & yol & "\dosyalar\" & dosya & ".mp4"
Next
End Sub

 

[starfish24]

çok teşekkür ederim yardımınız için ama makro çalışmadı, hata da vermedi. makro çalıştır dediğimde hiçbir aksiyon alamadım makrodan

 

[N.Ziya Hiçdurmaz]

yanıt

Örnek olarak txt dosyaları ekledim excel sayfasındaki mp4 dosyalarının sadece isimleri olmalı .mp4 uzantıları sayfada olmamalı.

Kill "" & yol & "\dosyalar\" & dosya & ".txt" [COLOR="Blue"]'.mp4 olarak değiştirirsiniz[/COLOR]