Excel sayfalarına ay adı nasıl verilir?

[assenucler]

Dostlar günaydınlar ve iyi pazarlar.

Excel sayfa1'de iken makroyla Ocak2012.... Aralık2012 şeklinde 12 aya ilişkin sayfaları nasıl açabilirim?

Yardımınız için teşekkürler.

 

[uyrdkl]

Merhaba
Bir örnek ekleyebilirmisiniz.

 

[mgurten]

Public i As Single
Dim ay(12)
Private Sub CommandButton1_Click()
ay(1) = "Ocak 2012"
ay(2) = "Şubat 2012"
ay(3) = "Mart 2012"
ay(4) = "Nisan 2012"
ay(5) = "Mayıs 2012"
ay(6) = "Haziran 2012"
ay(7) = "Temmuz 2012"
ay(8) = "Ağustos 2012"
ay(9) = "Eylül 2012"
ay(10) = "Ekim 2012"
ay(11) = "Kasım 2012"
ay(12) = "Aralık 2012"

For i = 1 To 12
Set NewSheet = Worksheets.Add
NewSheet.Name = ay(i)
Next i
End Sub

 

[assenucler]

Sayın uyrdkl;

Merhaba ve iyi pazarlar.

Sitemizde 365 gün için makro ile sayfa oluştur örneğini görünce, ay olarak nasıl yapılacağını öğrenmek için soruyu sordum.

 

[assenucler]

Sayın mgurten;

Merhaba... İyi pazarlar ve dinlenceler.

Yanıtınız için sağ olun var olun. Teşekkürler.

 

[Merhum İdris SERDAR]

.

Alternatif:

Sub syfay()
Dim syf As Worksheet

Application.DisplayAlerts = False
For Each syf In Worksheets
If syf.Name <> "Sheet1" Then syf.Delete
Next
On Error Resume Next

For i = 1 To 12
On Error Resume Next
Sheets(MonthName(i)).Delete
Sheets.Add.Name = MonthName(i)
ActiveSheet.Next.Select
Next
Application.DisplayAlerts = True

End Sub

.

 

[assenucler]

Sayın yurttas;

İyi pazar ve dinlenceler.

Üstadım katkınız için teşekkürler.

Sevgi ve saygılar.