• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sayfa adını değiştirme

Katılım
3 Temmuz 2007
Mesajlar
28
Excel Vers. ve Dili
2003
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
 
Sayın mutand_vsd,

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


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

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

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

Kodları ThisWorkbook'un kod sayfasına kopyalayın.
 
Peki bunu tarih formatlı yapabilirmisiniz

Sayın mutand_vsd,

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


Kod:
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.
 
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
 
Geri
Üst