Makro ile klasör taşıma

[quman]

Merhaba,

C:\TÜM\ isimli klasörümün içinde 5000 tane farklı isimde klasör var. Bu klasör isimleri excelimin A sütununda sıralı; B sütunumda ise A ya da B yazıyor. Bunlar bu 5000 klasörün gitmesi (taşınması) gereken klasör isimleri.

Makro ile C:\TÜM\ klasöründe bulunan klasörleri B sütununda yazan isme göre C:\A\ ya da C:\B\ klasörüne otomatik taşımak istiyorum. Yardımlarınızı rica ederim.

Saygılar.

 

[quman]

Arkadaşlar ben çözdüm; faydalanmak isteyenler aşağıdaki kodu deneyebilirler.

Sub putpus()

For k = 1 To 5000

klasor = Cells(k, 1).Value

If Cells(k, 2) = "A" Then
Name "C:\Deneme\TÜM\" & klasor As "C:\Deneme\A\" & klasor
End If

If Cells(k, 2) = "B" Then
Name "C:\Deneme\TÜM\" & klasor As "C:\Deneme\B\" & klasor
End If

Next k

End Sub