Klasör içerisindeki sayfa isimlerini toplu değiştirmek

[ASLAN7410]

Merhaba arkadaşlar hayırlı geceler hayırlı bayramlar.

Bilgisayarımın D sürücüsü içerisinde YENİ isimli klasör içerisinde çok sayıda excel sayfam bulunmaktadır,
ANA isimli excel sayfamın A2 hücresinden aşağıya doğru değiştirmek istediğim sayfa adlarını yazıp butona
bastığımda klasör içerisindeki sayfaların isimleri toplu olarak değiştirmek istiyorum.

Yardımcı olur musunuz?

 

[Ömer BARAN]

Merhaba.

Sanırım aradığınız şey;
-- aşağıdaki konu sayfasında Sayın Halit ÖZDEMİR'in verdiği kod cevabı
makro ile dosya adı değiştirme

-- veya aşağıdaki konu sayfasında yer alan Sayın Zeki GÜRSOY'un verdiği cevap.
Klasördeki dosyaları, excelden adlandırabilirmiyiz
.

 

[ASLAN7410]

Merhaba Sayın Ömer Bey, hayırlı geceler.

Sizin vermiş olduğunuz link http://www.excel.web.tr/f48/klasordeki-dosyalary-excelden-adlandyrabilirmiyiz-t43874.html benim işime yarayacak, örnek olarak sayfama A2'den başlayarak A B C D E F G gibi yazdım, kodları aşağıdaki gibi ayarladım butona bastığımda
Axlsx
Bxlsx
Cxlsx
Dxlsx ...... şeklinde yapıyor.

Sub Adlandir()
Dim Dosya As String, YENİ As String, i As Integer
 
YENİ = "D:\YENİ\"
Dosya = Dir(YENİ)
 
i = 1
While Dosya <> ""
    i = i + 1
    
    Name YENİ & Dosya As YENİ & _
        Cells(i, 1) & Right$(Dosya, 4)
        
    Dosya = Dir
    
Wend
End Sub

A2 hücresinden aşağıya doğru A. B. C. D. E. F. G. şeklinde yazdığımda dosyanın uzantısı kayboldu. Bu şekilde işime yaradı, sayfa adlarının sonuna . (nokta) koymadan nasıl yaparım?

 

[Ömer BARAN]

Denemiş veya bu kod'u kullanmış değilim.

İlgili satırı aşağıdaki şekilde değiştirerek deneyin isterseniz.
Cells(i, 1) & "." & Right$(Dosya, 4)
.

 

[ASLAN7410]

Cells(i, 1) & "." & Right$(Dosya, 4)

Sayın Ömer Bey bu şekilde yaptığımda oldu, çok teşekkür ederim Allah razı olsun, hayırlı geceler hayırlı bayramlar dilerim.

 

[Ömer BARAN]

Sağ olunuz, bilmukabele.