Çalışma kitabındaki sayfalara otomatik numara

[sstriker]

Merhaba arkadaşlar siteniz gayet güzel ve faydalı. Ben ilk sefer girdim ama aradığım şeyi bulamadım. aşağıda vereceğim linkteki resimde sayfaları işaretledim. Bu sayfaları 1 2 3 diye adlandırmak istiyorum. kısa yoldan nasıl yapabilirim?

http://img27.imageshack.us/i/adszynj.png/

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz. Aşağıdaki kodu kullanabilirsiniz.

Bu kod dosyanızdaki TÜM sayfaları yeniden numaralandırır. Eğer belli sayfaları numaralandırmak isterseniz kodu yeniden kurgulamak gerekir.

Option Explicit
 
Sub SAYFALARI_NUMARALANDIR()
    Dim Sayfa As Worksheet, No As Integer
    No = 1
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Name = No
        No = No + 1
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[sstriker]

bunu nereye nasıl yazacam çok acemiyimde

 

[sstriker]

makroyu çalıştırdım ama olmadı

 

[Korhan Ayhan]

Selamlar,

Olmayan yeri neresidir?