Sayfa adlarını girerken

[soadistanbul]

Arkadaşlar ben sayfa adlarını girerken belirli bir seriyi otamatik olarak nasıl girebilirim.

01 aralık 2005-02 aralık 2005-03 aralık 2005...........31 aralık 2005 gibi.

 

[Necdet]

Soruyu yanlış anlamışım cevabı sildim

 

[soadistanbul]

Arkadaşlar ben sayfa adlarını girerken belirli bir seriyi otamatik olarak nasıl girebilirim.

01 aralık 2005-02 aralık 2005-03 aralık 2005...........31 aralık 2005 gibi.

CAnın saolsun.
Bu konu hakkında bilgisi olan var mı?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:3bb5553ba7]Sub sayfayaadver()
For a = 1 To Sheets.Count
Sheets(a).Name = Format(DateSerial(Year(Date), Month(Date), a), "dd mmmm yyyy")
Next
End Sub[/vb:1:3bb5553ba7]

 

[soadistanbul]

Çok tesekkür ederim ama ben baya yeniyim. :?

 

[Levent Menteşoğlu]

Ekteki dosyada bulunan butona bastığınızda sayfa isimleri değişecektir. Yazılan kodu görmek için Alt+F11 tuşlarına basın.

 

[soadistanbul]

Arkadaşım çok saol.

 

[Necdet]

Levent Bey, mevcut sayfa kadar yapıyor, bu örnekte bir değişken kullanıcıya sorulsa ve kaç tane istendiğini parametrik yapmak isteseydik nasıl yapardık?

Yada kendi adıma sorayım mevcut sayfalara ek olarak 1 aralık tan 15 aralığa kadar yeni bir sayfa eklemesi nasıl olurdu?
Teşekkürler

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki kodu deneyebilirsiniz.

[vb:1:8ea1de57f3]Sub sayfayaadver()
On Error Resume Next
sor = InputBox("SAYFA SAYISINI GİRİNİZ")
If sor = "" Then Exit Sub
For a = 1 To sor
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Format(DateSerial(Year(Date), Month(Date), a), "dd mmmm yyyy")
Next
End Sub
[/vb:1:8ea1de57f3]