Çalışma sayfası isimleri

[Jeeday]

Bir excel dosyasında 500 tane çalışma sayfası var.... Bunların isimlerini toplu olarak belli bir mantığa göre nasıl değiştirebiliriz....

 

[mustafaine1]

dongu hazirlayarak duzenleyebilirsiniz hangi belli mantiga gore yapmak istediginize bagli olarak dongiu yazilabilir..

 

[Jeeday]

belli mantık olarak "tarih"i varsayalım...
01.01
02.01
.
.
.
.
.
.
31.01
01.02
.
.
.
.
.
27.12
28.12
29.12
30.12
31.12

gibi?

nasıl yapabilirim bunu

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/f14/sekmelere-otomatik-isim-verme-t86825.html

 

[Jeeday]

bu linkte sayfa açmak için örnekler var... ben var olan sayfaların isimlerini bi seferde değiştirmek istiyorum...

 

[mustafaine1]

Dosyanizi ekleyin, istediginiz tarihlerin bir listesinin oldugu bir bolum olsun gerekli islemde yardimci olalim..

 

[Jeeday]

dosya ektedir....

 

[muygun]

Merhaba;
Sub sayfaisimlerinidegistir()
Dim Tabelle As Worksheet
Date = "31.12.2009"
i = 1
For Each Tabelle In ActiveWorkbook.Worksheets
Tabelle.Name = Format(Date + i, "dd.mm")
i = i + 1
Next Tabelle
End Sub

Not: kodlar alıntıdır.
İyi çalışmalar.

 

[Jeeday]

bunu nası uyguluyoruz??? denedim ama olmadı sanırım

 

[Jeeday]

teşekkürler fakat bir ayrıntıyı atlamışsınız... "yıl" gözüksün istemiyorum... sadece gün ve ay....

 

[Korhan Ayhan]

Selamlar,

Kod içinde geçen alttaki satırı;

Date + i

Bu satırla değiştirip deneyin.

Format(Date + i, "dd.mm")

 

[Jeeday]

ya olmadı yada ben beceremedim...

Sub sayfaisimlerinidegistir()
Dim Tabelle As Worksheet
Date = "31.12.2009"
i = 1
For Each Tabelle In ActiveWorkbook.Worksheets
Tabelle.Name = Format(Date + i, "dd.mm")
i = i + 1
Next Tabelle
End Sub

böle yapıp kapadım...açtım aynı duruyo

 

[Jeeday]

Benim yolladığım dosyaya kodu ekliyorum... butonuda ekliyorum... çalıştırdığım zaman "Type mismatch" hatası veriyor....

 

[muygun]

Merhaba;
Mecut kodlara Korhan beyin önerisini uygularsanız istediğiniz sonucu alabilirsiniz.
8 nolu mesaj ekini yeniden deneyin.
İyi çalışmalar.

 

[Jeeday]

üstatlar yaptığım işlemi sırası ile yazıyorum....

kodu eklemek istediğim dosyayı açtım... ilk sayfaya gittim... kodu göster dedim....çıkan yere verdiğiniz kodu pasteledim... kapadım... sonra örnekteki butonu alıp kopyaladım... tıklayınca hata veriyor....

nerede hata yapıyorum...

orijinal dosyayı yollayamıyorum içinde önemli bilgiler var....

 

[muygun]

Merhaba;
Üstteki yaptığınız işlemlerden sonra;
1-butona sağ tıkla,
2-makro ata sekmesine bas
3-açılan pencerede sayfaisimlerinidegistir makrosuna tek tıklayarak işaretle
4-tamam butonuna basarak çık.

 

[Jeeday]

olmuyorr!!!!

 

[Jeeday]

muygun...özelden msj attım... ben offline oluyorum şimdi... msja bakabilirsen sevinirim... kolay gelsin

 

[muygun]

Öncelikle ofisin hangi versiyonunu kullandığınızı yazın. (yaptığım tanımlama ofis-2003 için)
Ayrıca makro güvenlik seviyesini düşürün.

 

[Jeeday]

office 2007 kullanıyorum