sayfa adını değiştirme

[mutand_vsd]

Merhaba,
Bir excel dökümanında diyelim ki 25 tane sayfa açtım. Bu sayfaların ismini belli bir nantığa göre değiştirmek istiyorum. Mesela 01 07 - 02 07 -03 07... gibi.
Teşekkürler

 

[Necdet]

Sayın mutand_vsd,

Aşağıdaki kodları bir modüle koyup çalıştırabilirsiniz

Public Sub Sayfa_Ad_Degistir()
For i = 1 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Name = Format(i, "00") & " 07"
Next i
End Sub

 

[AS3434]

Sayın mutand_vsd

Aşağıdaki kod her sayfanın A1 hücresindeki değeri Sayfa Adı olarak atar.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Name=Range("A1").Value
End Sub

Kodları ThisWorkbook'un kod sayfasına kopyalayın.

 

[mutand_vsd]

İlgi gösteren herkeze teşşekkür ederim.

 

[mserdar70]

Peki bunu tarih formatlı yapabilirmisiniz

Sayın mutand_vsd,

Aşağıdaki kodları bir modüle koyup çalıştırabilirsiniz

Public Sub Sayfa_Ad_Degistir()
For i = 1 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Name = Format(i, "00") & " 07"
Next i
End Sub

Peki bunu tarih formatlı yapabilirmisiniz 30.04'ten sonra 01.05 02.05 03.05 diye devam etmesini istiyorum.

 

[mserdar70]

Public Sub Sayfa_Ad_Degistir()
For i = 1 To Sheets.Count
Sheets(31).Select
ActiveSheet.Name = Format(1, "00") & " 05"
Next i
End Sub

bu kodu yaptım sadece 31. sayfa değişti 01.05 oldu diğerleri 32.04 33.04 diye devam ediyor anlam vermeedim gerçi ilk kez makro çalıştırıyorum