1den.....693 e kadar excel dosyasına isim nasıl verilir

[dr_1356]

693 tane yeni excel çalışma dosyasına 1 2 3 4......693 e kadar nasıl adlandırılır çünkü tek tek yaapmak çok zamanımı alıyor hepsini işaretleyip yeniden adlandır diyorum oda (1) (2).....(693) oluyor bir türlü yapamadım bana yardımcı olabilirmisiniz

 

[leumruk]

Merhaba,
Dosyadaki butona basın ve dosyalarınızın bulunduğu klasörü çıkan ekrandan seçin.

Sub Ad_Ver()
Set shl = CreateObject("Shell.Application").BrowseForFolder(0, _
"Lütfen bir klasör seçiniz!", &H100)
If shl Is Nothing Then
Exit Sub
Else
yol = shl.self.Path
End If
dosya = Dir$(yol & "\*.xls*")
Do While dosya <> ""
If yol & "\" & dosya <> ThisWorkbook.FullName Then
Say = Say + 1
Name yol & "\" & dosya As yol & "\" & Say & "." & Split(dosya, ".")(1)
End If
dosya = Dir$()
Loop
MsgBox "İşlem tamamlanmıştır.", vbInformation, "Kodlayan: l e u m r u k"
End Sub

 

[dr_1356]

çok teşekür ediyorum tam istedigim gibi olmuş iyi akşamlar

 

[leumruk]

çok teşekür ediyorum tam istedigim gibi olmuş iyi akşamlar

Rica ederim. İyi geceler...

 

[umit1907]

Merhabalar Benim resimleri numaralandırmak için kullandığım bir program var. istediğiniz sayıdan başlayıp istediğiniz verileri numaralandırabilirsiniz.