Çözüldü Otomatik sayfa no vermek

[k0081]

Merhaba arkadaşlar;

Excel kitabımda , 20 ayrı sayfa var. x1 / x2 şeklinde numara vermek istiyorum. ( icmal sayfası hariç...)

her sayfada x1 in adresi : O50 dir.
her sayfada x2 nin adresi : P50 dir.

Bu şekilde tüm sayfaları toplamını, x2 ye, sayfa sayılarınıda x1 nasıl yazdırabilirim?



20. sayfadaki durum = 20 / 20 olmalıdır.
19. sayfadaki durum = 19 / 20 olmalıdır.
18. sayfadaki durum = 18 / 20 olmalıdır.
...
...



yardımcı arkadaşa şimdiden teşekkürler.

 

[DoğanD]

Merhaba,

İcmal sayfanızın en solda olduğunu ve başka istisna sayfanızın olmadığını varsayarak;

Sub dd()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Range("O50") = i - 1
Sheets(i).Range("P50") = Sheets.Count - 1
Next i
End Sub

 

[k0081]

Çok Teşekkür ediyorum. Tamamdır. elinize sağlık.