Otomatik Sekme İsmi

[erdalcan]

1 Ocak'tan 31 Aralığa kadar olan tarihleri sayfa ismi olarak vermek istiyorum. Bunun için sayfaları tek tek ekleyip isimlerini elle değiştirmem mi gerekiyor ? Arama yaptım ancak bunu pratik olarak gerçekleştirebileceğim bir kod veya yöntem bulamadım. Bu konuda yardımlarınızı rica ediyorum.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?
ekte 31 sayfalık dosya var, siz 365 sayfalık dosya oluşturarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If Not IsNumeric(Target.Text) Then Exit Sub
For i = 1 To Worksheets.Count
Sheets(i).Name = [a1] + (i - 1)
Next
End Sub

 

[erdalcan]

İlgilendiğiniz için teşekkür ederim. Makrolarla ilgili fazla bilgim yok, dosyada 365 adet sayfa oluşturup ilk sayfaya bir buton ekledim ve verdiğiniz kodu butona atadım. Ancak çalıştırdığımda kod hata verdi. Sizden tekrar yardımcı olmanızı rica ediyorum...

 

[uzmanamele]

merhaba
kod modül içersinde değil sayfanın kod bölümünde olacak.
butona atamayacaksınız, A1 hücreye tarih girdiğinizde otomatik çalışır.

 

[erdalcan]

a1 hücreye tarih yazdım kod bölümüne girdim ve kodu çalıştırmak için tıkladım ancak makro ismi soran bir pencere açılıyor. Ve kayıtlı hiçbir makro görünmüyor.

 

[batuhan_86_7]

Arkadaşım bunu bir dene uzmanların yaptığı yanlız dikkat etmen gereken konu aynı tarih içinde olmamalı