Sayfa Adeti

[Leturc]

Arkadaşlar merhaba,

Elimde olan bir çalışma kitabındaki sayfa sayısının A1 hücresine otomatik olarak yansıması için ne yapabilirim.

Aşağıdaki kodu internetten buldum ve makro olarak çalıştırdığımda sayfa adetini gösteriyor. Ancak benim isteyip yapamadığım: makronun bulmuş olduğu sayfa adetinin 1. sayfamdaki A1 hücresine yazdırılması. Bunun mümkünatı var mıdır?

Sub ShowPageCount()
    PageCount = 0
    For Each sht In Worksheets
        sht.Activate
        Pages = ExecuteExcel4Macro("Get.Document(50)")
        PageCount = PageCount + Pages
    Next sht
    MsgBox "Total Pages = " & PageCount
End Sub

Teşekkürler

 

[mancubus]

sn leturc.

konuyu Excele Yeni Başlayanlar yerine Makro VBA forumunda açmak gerekmez miydi.

 

[Murat OSMA]

Şu kodu deneyin;

sub emre()
for i = 1 to sheets.count
range("a1").value = i 
next i 
end sub

Düzeltme: Afedersiniz Sn. mancubus yanıtınızı görmedim.

 

[Leturc]

sn leturc.

konuyu Excele Yeni Başlayanlar yerine Makro VBA forumunda açmak gerekmez miydi.

Haklısınız

 

[Leturc]

Şu kodu deneyin;

sub emre()
for i = 1 to sheets.count
range("a1").value = i 
next i 
end sub

Düzeltme: Afedersiniz Sn. mancubus yanıtınızı görmedim.

Hocam elinize sağlık. Kısa ve net olmuş

 

[mancubus]

Şu kodu deneyin;

sub emre()
for i = 1 to sheets.count
range("a1").value = i 
next i 
end sub

Düzeltme: Afedersiniz Sn. mancubus yanıtınızı görmedim.

estağfurullah.


düzeltme: ihtiyacı ben yanlış anladım galiba.

 

[Merhum İdris SERDAR]

.

MsgBox "Total Pages = " & PageCount

Satırı yerine:

[A1]=Total Pages = " & PageCount

yazın.

.

 

[Leturc]

Hocam elinize sağlık. Kısa ve net olmuş

Yalnız bir sıkıntı var tamamını saymıyor. Galiba yalnızca toplam sheet sayısını sayıyor benim ihtiyacım olan ise mevcut çalışma kitabında yer alan tüm etkin sheetlerin yazdırılabilir alanlarının hesaplanması. Bu mümkün müdür?

 

[Ömer]

Merhaba,

Formül ile alternatif.

A1 hücresine aşağıdaki formülü yazarak deneyin.

=BİLGİ("DOSYASAYISI")

.

 

[Ömer]

Yalnız bir sıkıntı var tamamını saymıyor. Galiba yalnızca toplam sheet sayısını sayıyor benim ihtiyacım olan ise mevcut çalışma kitabında yer alan tüm etkin sheetlerin yazdırılabilir alanlarının hesaplanması. Bu mümkün müdür?

Bu durumda bende yanlış anlamışım. Bu istediğinizi, kendi kodlarınızda Sayın yurttas'ın verdiği düzeltme ile yapabilirsiniz.