sekmelere otomatik numara verme

[SaiL0704]

merhaba arkadaşlar..
elimde 1 yıllık birikim olan 940 sekmeden oluşan bir excel çalışma dosyam var.
Bunların sekme isimlerini değiştirmek istiyorum, ama tek tek de uğraşılmaz ki..

Bendeki sekme isimleri karışık.. (P120_655, P242_326 gibi)
Bu sekmelerin 1, 2, 3, 4, 5.... 939, 940 olmasını istiyorum..

yardımlarınız için minnettar olacağım..

 

[PLİNT]

Merhaba
Bütün sayfalar için:

Sub değiş()
For a = 1 To Sheets.Count
Sheets(a).Name = a
Next
End Sub

 

[SaiL0704]

Çok teşekkür ederim, sağolun..

 

[SaiL0704]

Merhaba
Bütün sayfalar için:

Sub değiş()
For a = 1 To Sheets.Count
Sheets(a).Name = a
Next
End Sub

yardımın için teşekkür ederim, bişey daha rica edecektim..
Sıraladığım sekmelerin başına yeni bir sekme ekledim (ismi ABC olsun), bu sayfada şöyle bişey yapmak istiyorum; örneğin ABC sayfasındaki A1 hücresine 1. sayfadaki C16 hücresinin değerini yazdırmak istiyorum, devam edecek olursak, ABC sayfasındaki A2 hücresine 2. sayfadaki C16 hücresinin değerini yazdırmak istiyorum. Bu şekilde tüm sekmelerdeki C16 hücresini ABC sayfasına almak istiyorum..

 

[PLİNT]

Merhaba
Yukarıdaki kodlara uygun olarak, 1 den 940 a kadar sayfanız varsa:

Sub deneme()
For a = 1 To 940
Sheets("ABC").Cells(a, 1) = Sheets(a).Range("C16")
Next
end sub

veya sayfalarda noksanlık varsa:

For Each a In Worksheets
If Sheets(a.Name).Name <> "ABC" Then
b = b + 1
Sheets("ABC").Cells(b, "A") = Sheets(a.Name).[c16].Value
End If
Next