DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Üstadım teşekkür ederim. Ama sayfa düzeni sekmesinde sayfa kurulumu bölümü yok. Bu arada excel kitabımda tek sayfa var. Bu sayfanın içinde 120 sayfalık veri var. Kastettiğim şey sayfa 1 içindeki 120 sayfanın her birine ayrı alt bilgi eklemekti. Belki yukarıda eksik ifade etmiş olabilirim diye düzeltmek istedim.Her sayfaya farklı alt bilgi eklemek için aşağıdaki adımları takip edebilirsiniz:
Umarım bu adımlar size yardımcı olur.
- İlk olarak, istediğiniz alt bilgileri yazın. Örneğin, sayfa 1'e "Alt bilgi 1", sayfa 2'ye "Alt bilgi 2" gibi.
- Sayfa sekmesinden ilk sayfayı seçin ve "Sayfa Düzeni" sekmesine gidin.
- "Sayfa Kurulumu" bölümünde "Alt Bilgi/Alt Not" seçeneğini bulun ve üzerine tıklayın.
- "Özelleştirilen Alt Bilgi" penceresi açılacaktır. Burada, "Alt Bilgi" kutusuna istediğiniz alt bilgiyi yazın.
- "Seçenekler" bölümünde "Tüm sayfalara uygula" kutusunu işaretleyin. Böylece bu alt bilgiyi tüm sayfalara uygulayabilirsiniz.
- "Tamam" düğmesine tıklayarak işlemi tamamlayın.
- Diğer sayfalarda aynı işlemi tekrarlayarak farklı alt bilgiler ekleyebilirsiniz. Her sayfa için farklı bir alt bilgi yazarak istediğiniz sonuçları elde edebilirsiniz.
Sub SayfaSayisiniBul()
MsgBox Printed_Pages_Count(Sheets("Sayfa1"))
End Sub
Public Function Printed_Pages_Count(wS As Worksheet) As Integer
Printed_Pages_Count = (wS.HPageBreaks.Count + 1) * (wS.VPageBreaks.Count + 1)
End Function