Toplu sayfa isimlendirme

[momoli]

Merhaba,

Benim bir dosyam var sayfa isimleri 01.04.2011, 02.04.2011 gibi tarih formatında. Sayfa isimlerini tek tek yazmak zamanımı alıyor. Birde hersayfada anı şekilde tarih var.

Tüm sayfa isimlerini tarih formatında sıralı olarak nasıl yazarım
Ve sayfalara sayfa ismimdeki tarihi nasıl atarım. Bunun için bir makro varmı

Kolay Gelsin

 

[Mehmet Şahin]

Merhaba,
aşağıdaki kodu denermisiniz. Tarih değerlerinin "a1" hücresinde olduğu varsayılmıştır. Siz kendi değerinize göre değiştiriniz. Kolay gelsin.

Sub degis()
    For Each sh In ActiveWorkbook.Sheets
        isim = CStr(Format(sh.Range("a1"), "dd.mm.yyyy"))
        sh.Name = isim
    Next sh
End Sub

 

[momoli]

Bu kod a1 hücresine yazılmış olan tarihi sayfa adı ile değiştiriyor.
Benim istediğim toplu olarak değiştirmek. şöyleki: Kitapta 30 sayfa olduğunu düşünerek tek tıklama ile tüm sayfa adlarının sıralı olarak tarih formatında değişmesi, ve her sayfa adının yine tek tıklama ile a1 hücresine yazılması idi.

 

[Mehmet Şahin]

Merhaba,
bu kod, her sayfanın adını, o sayfadaki "a1" hücresindeki tarih olarak değiştiriyor. Ve yukarıdaki bilgilerden ilk bakışta bunu anladım. Ancak sizin istediğiniz sanırım, herhangi bir ayda, o ayın gün sayısı kadar olan sayfa adlarını değiştirmek. Bu ay bilgisini nereden alacağımızı ve her ay için sayfa sayısı ay günü kadar mı? vb. bilgileri verirseniz, sorununuzu çözümleyebiliriz. Kolay gelsin.

 

[momoli]

Her ay için bir çalışma kitabı olacak. Sayfa sayısı aydaki gün sayısı kadar olacak. Mesela Ocak dosyasında 31 sayfa, Şubat sayfasında 28 sayfa gibi.
Kolay Gelsin

 

[Mehmet Şahin]

Evet, tamam, hangi ayı yaptığımızı nerden bileceğiz?

 

[Excelmy]

Sayın momoli
Ekli dosyayı inceleyiniz.

 

[momoli]

Teşekkür ederim tamamdır. Elinize sağlık

 

[momoli]

Birde Her sayfa adının çalışma sayfasına tarih olarak getirilmesi vardı onu yasıl yapacağız.
Kolay Gelsin