Yazdırma alanı sayfa sayısı

[manonfire]

Merhaba,
Yazdırma alanı sayfa sayısı kaç adet ise bunu istediğim bir hücreye yazdırabilecek bir formül var mıdır. Şimdiden teşekkürler.

 

[antonio]

Merhaba,
Örnek olarak A1 hücresine yazdırmak için:

Sub yazdirilacak_sayfa_sayisi()
With ActiveSheet
    .Range("A1").Value = .PageSetup.Pages.Count
End With
End Sub

 

[manonfire]

selam antonio
bunu fonksiyon olarak yazmak mümkn değil mi

 

[manonfire]

bu sorumla ilgilendiğin için teşekkürler geçen başka bir konuda da sorum olmuştu onunla da ilgilenip bir soru sormuştun cevaben yazdığıma sen cevap vermemiştin (birden fazla dosyadan toplam alma)o sorunla ilgili bir tavsiyen var mıdır...
teşekkürler

 

[antonio]

selam antonio
bunu fonksiyon olarak yazmak mümkn değil mi

Fonksiyon olarak aşağıdaki kodu kullanabilirsiniz.

Function adet()
    adet = ActiveSheet.PageSetup.Pages.Count
End Function

 

[manonfire]

teşekkür ederim fakat bunu formül olarak rica etsem. dosyaları ben hazırlıyorum ama başka kullanıcılarda kullanıyor makro kısıtlaması olduğundan sorun burada.

 

[antonio]

Bir çalışma sayfasının, kaç sayfa olarak yazdırılacağını formülle görmek istiyordunuz, bunun için size bir fonksiyon hazırladım. Fonksiyonun adı "adet"
bu fonksiyonu modül penceresine yapıştırdıktan sonra, çalışma sayfanızın herhangi bir hücresine:

=adet()

yazıp enter yaptığınızda, size bu yazdırılabilecek sayfa sayısını verecektir.
Çalışma sayfasını .xls veya xlsm formatlarından biri ile kaydederseniz, makrolarla ilgili bir sorun yaşamazsınız. Ancak .xlsx formatındaki dosyalar, kaydedildiği zaman makroları silerler.

 

[manonfire]

Bir çalışma sayfasının, kaç sayfa olarak yazdırılacağını formülle görmek istiyordunuz, bunun için size bir fonksiyon hazırladım. Fonksiyonun adı "adet"
bu fonksiyonu modül penceresine yapıştırdıktan sonra, çalışma sayfanızın herhangi bir hücresine:

=adet()

yazıp enter yaptığınızda, size bu yazdırılabilecek sayfa sayısını verecektir.
Çalışma sayfasını .xls veya xlsm formatlarından biri ile kaydederseniz, makrolarla ilgili bir sorun yaşamazsınız. Ancak .xlsx formatındaki dosyalar, kaydedildiği zaman makroları silerler.

teşekkürler antonio
dediğin gibi yazdım sorun yok yalnız bunu fx işlev formüllerinden yapmak mümkün mü..

 

[Haluk]

teşekkürler antonio
dediğin gibi yazdım sorun yok yalnız bunu fx işlev formüllerinden yapmak mümkün mü..

Excel'in normal (yerleşik) fonksiyonlarıyla yazdırma alanındaki sayfa sayısını bulamazsınız. Bunun için mutlaka, yukarıda önerilen makrolardan birini kullanmanız gerekir.

Ya da, alternatif olarak; ekli Excel4 makrosu kullanılabilir. Ancak, doğru sonucun gösterilebilmesi için hücrenin güncellenmesi gerekir. Yani, hücreyi seçip F2 tuşuna basmak gibi ....

Not:
Bu dosyada kullanılan Excel4 makrosu;

=GET.DOCUMENT(50)

.

 

[manonfire]

ilginiz için çok teşekkür ederim haluk..

 

[Ömer]

Merhaba,

Haluk Bey'in açıklamalarına ilave olarak.
Kullanılan Excel4 makrosunu güncellemek için, AltGr + F9 tuş kombinasyonunu da kullanabilirsiniz.

.

 

[manonfire]

Merhaba,

Haluk Bey'in açıklamalarına ilave olarak.
Kullanılan excel4 makrosunu güncellemek için, altgr + f9 tuş kombinasyonunu da kullanabilirsiniz.

.

cevap için çok teşekkür ederim ömer

 

[GhostCu]

Fonksiyon olarak aşağıdaki kodu kullanabilirsiniz.

Function adet()
    adet = ActiveSheet.PageSetup.Pages.Count
End Function

konu eski ama yeni konu açmak istemedim bu kod güzel çalışıyor lakin sayfa sonu izlemeden sayfalarını azalttım otomatik yenilemiyor formüle giriyorum enter yapıyorum güncelliyor otomatik güncellemek mümkün olabilir mi?

 

[Korhan Ayhan]

Bu şekilde deneyiniz.

Değişiklik yaptıktan sonra F9 tuşuna basarak sonucu güncelleyebilirsiniz.

Option Explicit

Function Adet()
    Application.Volatile True
    Adet = ActiveSheet.PageSetup.Pages.Count
End Function

 

[GhostCu]

Bu şekilde deneyiniz.

Değişiklik yaptıktan sonra F9 tuşuna basarak sonucu güncelleyebilirsiniz.

Option Explicit

Function Adet()
    Application.Volatile True
    Adet = ActiveSheet.PageSetup.Pages.Count
End Function

Korhan bey öncelikle cevabınız için teşekkürler.
Örneğin sayfa sayını aynı sayfada bul formülü uygulayınca buluyor lakin farklı sayfa 1 de herhangi bir hücreye yazıp sayfa2 nin sayfa sayısını bulduramıyorum.

Birde şöyle bir sıkıntı oldu aynı excel kitabında farklı sayfalarda örneğin sayfa1de sayfa sonu önizle yaptığımda sayfa sayısı değiştiğinde sayfa 1 deki sayfa sayısı sayfa 2 de aynı sayfa sayısını baz alıyor yani bu kod her sayfa için münferit olmalı

 

[Korhan Ayhan]

Bu fonksiyon aktif sayfa için tasarlanmış. Bu sebeple istediğiniz gibi sonuç vermiyor.

Aşağıdaki gibi revize edersek dilediğiniz gibi kullanabilirsiniz. Ben bu şekilde tasarladım. Dilenirse tasarım değiştirilebilir.

Bu arada fonksiyonu bir hücreye yazdığınız için boş bir dosyada kullansanız dahi size 1 sonucunu verecektir. Çünkü fonksiyonun olduğu hücrede yazdırma alanı olarak değerlendirilecektir.

Herhangi bir sayfada;

Aşağıdaki gibi yazarsanız tüm sayfalardaki yazdırma alanı sayfa sayısını verir.
=PAGE_COUNT()

Aşağıdaki gibi yazarsanız tüm sayfalardaki yazdırma alanı sayfa sayısını verir.
=PAGE_COUNT("*")

Aşağıdaki gibi yazarsanız belirttiğiniz sayfadaki yazdırma alanı sayfa sayısını verir.
=PAGE_COUNT(Sayfa1!A1)

Aşağıdaki gibi yazarsanız aktif sayfadaki yazdırma alanı sayfa sayısını verir.
=PAGE_COUNT(A1)

Option Explicit

Function PAGE_COUNT(Optional My_Criteria As Variant = "*")
    Dim Sh As Worksheet, X As Variant
 
    Application.Volatile True
 
    If My_Criteria = "*" Then
        For Each Sh In ThisWorkbook.Worksheets
            X = X + Sh.PageSetup.Pages.Count
        Next
        PAGE_COUNT = X
        Exit Function
    End If
 
    If TypeName(My_Criteria) = "Range" Then
        PAGE_COUNT = Sheets(My_Criteria.Parent.Name).PageSetup.Pages.Count
    End If
End Function

 

[GhostCu]

Bu fonksiyon aktif sayfa için tasarlanmış. Bu sebeple istediğiniz gibi sonuç vermiyor.

Aşağıdaki gibi revize edersek dilediğiniz gibi kullanabilirsiniz. Ben bu şekilde tasarladım. Dilenirse tasarım değiştirilebilir.

Bu arada fonksiyonu bir hücreye yazdığınız için boş bir dosyada kullansanız dahi size 1 sonucunu verecektir. Çünkü fonksiyonun olduğu hücrede yazdırma alanı olarak değerlendirilecektir.

Herhangi bir sayfada;

Aşağıdaki gibi yazarsanız tüm sayfalardaki yazdırma alanı sayfa sayısını verir.
=PAGE_COUNT()

Aşağıdaki gibi yazarsanız tüm sayfalardaki yazdırma alanı sayfa sayısını verir.
=PAGE_COUNT("*")

Aşağıdaki gibi yazarsanız belirttiğiniz sayfadaki yazdırma alanı sayfa sayısını verir.
=PAGE_COUNT(Sayfa1!A1)

Aşağıdaki gibi yazarsanız aktif sayfadaki yazdırma alanı sayfa sayısını verir.
=PAGE_COUNT(A1)

Option Explicit

Function PAGE_COUNT(Optional My_Criteria As Variant = "*")
    Dim Sh As Worksheet, X As Variant
 
    Application.Volatile True
 
    If My_Criteria = "*" Then
        For Each Sh In ThisWorkbook.Worksheets
            X = X + Sh.PageSetup.Pages.Count
        Next
        PAGE_COUNT = X
        Exit Function
    End If
 
    If TypeName(My_Criteria) = "Range" Then
        PAGE_COUNT = Sheets(My_Criteria.Parent.Name).PageSetup.Pages.Count
    End If
End Function

Mükemmel korhan hocam elinize sağlık güzel yerlerde kullanılacak inşallah.