Excelde Toplu Sayfa adı değişme

[yener11]

Bir Excel çalışma kitabında altta olan sayfalarda hergün için sayfa ekledim yani 30 sayfa ve her ay bunun ayını değişmem gerekiyor toplu olarak yapmam mümkünmü bunu.örneğin 01.08.2011-02.08.2011-03.08.2011.....31.08.2011 olan sayfa adlarını 01.09.2011-02.09.2011-03.08.2011.....30.09.2011 olarak değişmem gerekiyor. Yardımlarınızı bekliyorum değerli üstadlar...

 

[leumruk]

Merhaba,
Basit bir örnek hazırladım. Bundan yola çıkarak kendinize uyarlama yapın.

Private Sub CommandButton1_Click()
If ComboBox1 = "" Or ComboBox2 = "" Then
MsgBox "Ay ve yıl seçimi yapınız.", vbCritical, "UYARI": Exit Sub
End If
tarih = CDate("01." & ComboBox1.Text & "." & ComboBox2.Text)
Gün = DateSerial(Year(tarih), Month(tarih) + 1, 0)
For x = 1 To Format(Gün, "dd")
   Sheets(x).Name = CDate("0" & x & "." & ComboBox1.Text & "." & ComboBox2.Text)
Next
MsgBox "İşlem tamamlandı.", vbInformation, _
"Kodlayan: l e u m r u k"
End Sub

 

[yener11]

Eline sağlık Üstad tam istediğim gibi olmuş