2. Sayfadan İtibaren Sayfa isimlerini Değitirme

[nmertyucel]

İyi akşamlar, bir adet excel fiyat hazırlama şablonum var ve altında 130dan fazla sayfa mevcut.

Sub Umbenennen()
Dim Tabelle As Worksheet
i = 1
For Each Tabelle In ActiveWorkbook.Worksheets
 Tabelle.Name = "Liste" & i
 i = i + 1
Next Tabelle
End Sub

bu kodu kullanarak sayfa isimlerini sıralayabiliyorum. Ama benim istediğim ilk sayfanın adı sabit kalsın, 2. sayfadan itibaren sıralasın.

Yardımcı olursanız çok memnun olurum.

 

[Korhan Ayhan]

Aşağıdaki gibi olabilir..

Sub Rename_Sheets()
    Dim Say As Integer, X As Integer
    Say = 1
    For X = 2 To ActiveWorkbook.Worksheets.Count
        Worksheets(X).Name = "Liste" & Say
        Say = Say + 1
    Next
End Sub

 

[nmertyucel]

Çok teşekkür ederim Hayırlı geceler...