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