dosya ismi değiştirme hatası

[Crazy Drake]

bir klasördeki resimlerin isimleri c sütununda sıralı bi şekilde yazıyor aşağıdaki kodla c sütunundaki resim isimlerini b sütununda yazan yeni isimlerle değiştirmeye çalışıyorum ancak

    Name yol & Application.PathSeparator & Range("C" & excel) + ".jpg" As yol & Application.PathSeparator & Range("B" & excel) & ".jpg"

bu koda gelince file not found hatası veriyor nasıl düzeltebiliriz

Sub Makro1()
Range("A1").Select
Set yol = CreateObject("Shell.Application").BrowseForFolder(0, "Resimlerin bulunduğu klasörü seçin", 1)
Dim excel As Long
For excel = 1 To Range("C65").End(3).Row
    Name yol & Application.PathSeparator & Range("C" & excel) + ".jpg" As yol & Application.PathSeparator & Range("B" & excel) & ".jpg"
Next excel
MsgBox "İşlem tamamlandı.", vbInformation, "Excel"
End Sub

------------------------------------

Bu kısmı

Set yol = CreateObject("Shell.Application").BrowseForFolder(0, " Resimlerin bulunduğu klasörü seçin", 1)

Const yol As String = "C:\Resimler"

olarak değiştirince hata vermiyor ancak buda işime yaramıyor klasörün yeri değişik olabiliyor

 

[halit3]

bir klasördeki resimlerin isimleri c sütununda sıralı bi şekilde yazıyor aşağıdaki kodla c sütunundaki resim isimlerini b sütununda yazan yeni isimlerle değiştirmeye çalışıyorum ancak

    Name yol & Application.PathSeparator & Range("C" & excel) + ".jpg" As yol & Application.PathSeparator & Range("B" & excel) & ".jpg"

bu koda gelince file not found hatası veriyor nasıl düzeltebiliriz

Sub Makro1()
Range("A1").Select
Set yol = CreateObject("Shell.Application").BrowseForFolder(0, "Resimlerin bulunduğu klasörü seçin", 1)
Dim excel As Long
For excel = 1 To Range("C65").End(3).Row
    Name yol & Application.PathSeparator & Range("C" & excel) + ".jpg" As yol & Application.PathSeparator & Range("B" & excel) & ".jpg"
Next excel
MsgBox "İşlem tamamlandı.", vbInformation, "Excel"
End Sub

------------------------------------

Bu kısmı

Set yol = CreateObject("Shell.Application").BrowseForFolder(0, " Resimlerin bulunduğu klasörü seçin", 1)

Const yol As String = "C:\Resimler"

olarak değiştirince hata vermiyor ancak buda işime yaramıyor klasörün yeri değişik olabiliyor

Aşağıdaki linkdeki dosyada dosyaadıdeğiştir sayfasındaki işlemler umarım işinizi görür.

http://www.excel.web.tr/f135/excel-makrolary-t58047.html