merhabalar,
klasör içerisinde birden fazla yer alan "jpg" uzantılı resimlerin isimlerini kendi belirleyecegim rakamdan başlıyacak şekilde ;
sırası ile adını değiştirmek ve değişen adların excelde a2 hücresinden , aşağıya doğru listelenmesini istiyorum.
aşağıdaki şöyle bir kod var ama bu tam olarak işimi görmüyor;
Sub isimdegistir()
Dim Klasor As Object, Folder As Object, Dosyalar As Object, Dosya As Object
Set Klasor = Interaction.CreateObject("Scripting.FileSystemObject")
Set Folder = Klasor.GetFolder(ThisWorkbook.Path)
Set Dosyalar = Folder.Files
i = 0
For Each Dosya In Dosyalar
If Dosya.Name < ThisWorkbook.Name Then
i = i + 1
Dosya.Name = Replace(Dosya.Name, Dosya.Name, i & ".jpg")
End If: Next Dosya
Set Dosya = Nothing: Set Dosyalar = Nothing: Set Folder = Nothing: Set Klasor = Nothing
End Sub