hücreye sayfa no ekleme

[omyuga]

merhaba arkadaşlar. excel de bir kitap içinde farklı sayfalarda formlar hazırlıyorum. ve bu formlarda (her sayfada) h3 hücresine toplam sayfasayısını ve bulunduğum sayfa nosunu yazıyorum.
örneğin 40 sayfa var ben 4. sayfadaysam 4/40 yazıyorum.
öğrenmek istediğim her sayfaya bu bilgiyi macro ile yazdırıp yazdıramayacağım.

1/40
2/40
3/40
......
40/40 gibi

 

[xxrt]

Çalışma Kitabının ThisWorkbook kısmına aşağıdaki kodları yazın..

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("H3").Select
    Selection.NumberFormat = "@"
    deger = Worksheets.Count
Range("H3").Value = ActiveSheet.Name & "/" & deger
End Sub

 

[omyuga]

teşekkürler sayın xxrt