Sayfa Sayısını bulma

[tamer42]

Merhaba,

Bir excel çalışma kitabında yer alan sayfa sayısını bulan bir formül oluşturulabilir mi?

Örnek:

Sayfa1
Sayfa2
Sayfa3
Sayfa4
Sayfa5


5 sonucunu verecek.

iyi Çalışmalar.

 

[lark]

Merhaba

Vba ile

Public Sub sayfa_sayisi()

MsgBox "Sayfa sayısı: " & Application.Sheets.Count

End Sub

 

[sakman26]

selam,
bir alternatif cevap olarak,
Makro4.0 kodlarından yararlanılarak
SekmeAdet ad tanımlaması yapıldı. Ve

=SAYIYAÇEVİR(AL.ÇALIŞMAKİTABI(4)&DOLAYLI("iv65000"))

şeklinde formüle edildi.....
Herhangi bir hücreye

=SekmeAdet

yazdığınızda , dosyadaki sayfa adedini verecektir.

İhtiyaç olabilir düşüncesiyle,
Sekme ad tanımlaması yapıldı... Ve

=PARÇAAL(AL.ÇALIŞMAKİTABI(1);BUL("]";AL.ÇALIŞMAKİTABI(1))+1;99)&DOLAYLI("iv65000")

şeklinde formüle edildi..

Herhangi bir hücreye,

=EĞER(SATIRSAY($1:1)<=SekmeAdet;İNDİS(Sekme;SATIRSAY($1:1));"")

formülünü yazıp, aşağıya doğru kopyalarsanız Sekme adlarını listeleyecektir....