Toplu bir şekilde dosya adlandırmak için ekstra program indirmeye gerek yok. Excelde A sütünuna dosya adı ve yolunu, B sütununa ise yeni dosya adını ve yolunu görseldeki gibi yazıp aşağıdaki kodu VBA kısmında çalıştırmanız yeterli.
#excel #vba

Klasördeki dosyaların isimlerini de tek seferde getirmek için durumdaki kodu kullanabilirsiniz.

https://teknoseyir.com/durum/1584025

Sub reNamer()
lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Do Until i = lastRow
i = i + 1
bir = "A" + CStr(i)
iki = "B" + CStr(i)
Name ActiveSheet.Range(bir) As _
ActiveSheet.Range(iki)
Loop
End Sub

BeğenFavori PaylaşYorum yap