Hücredeki değere göre dosya taşıma

[cimbom05]

İyi geceler üstadlar,
Çalışmalarımda aktif olara kullandığım dosyaları open klasörü içerisinde bulundurmaktayım. Open klasörü içerisindeki dosyaları Rapor.xls dosyasında takip etmekteyim. Rapor.xls dosyasının A sütununda Oen klasörü içerisindeki dosya adları bulunmakta ve B sütununda bu dosyalara (raporlara) ait bakiye değerleri takip edilmektedir. Yapmak istediğim şey ise Bakiyesi "0" (Sıfır) olan dosyaların oluşturulacak makro ile Open klasörü içerisinden Close klasörünün içerisine taşınması. Bunu tek tek dosya seçerek değilde makroyu çalıştırdığımızda hepsini birden yapmak mümkün müdür?
Eklediğim örnekte;
2.xls, 5.xls ve 6.xls dosyalarına ait bakiye değerleri "0" (Sıfır) göründüğü için makro çalıştığında bu üç dosya Close klasörünün içine taşınması gerekmektedir.

 

[cimbom05]

hücre değerine göre dosya taşıma

İyi geceler arkadaşlar,
Konu ile ilgilenen arkadaşlara çok teşekkür ederim. İlgi çok yoğun olunca bende daha önce sizlerden öğrendiklerim ile konuya bir çözüm buldum. Biraz acemi işi ama istenen amaca ulaştırıyor. Ekli çalışmada A sütununda dosya isimleri ve B sütununda bu dosyalara ait bakiye değerleri mevcuttur. B sütunundaki bakiyesi sıfır olanlar bir klasörden diğerine taşınmıştır.

 

[halit3]

alternatif kod

Sub dosyayı_taşı()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
eski = "D:\deneme\asıl\"
yeni = "D:\deneme\hedef\"
For i = 1 To [a65536].End(3).Row
If Cells(i, 2).Value = 0 Then
DosyaSistemi.MoveFile eski & Cells(i, 1).Value & ".xls", yeni & Cells(i, 1).Value & ".xls"
Cells(i, 1).Value = ""
End If
Next
MsgBox "işlem tamam"
End Sub