Soru Her sayfada farklı alt bilgi

[akara.88]

Merhaba,
120 sayfadan oluşan excel dosyamın her sayfasına farklı alt bilgi eklemek istiyorum. Yardımcı olabilir misiniz?

 

[cems]

Her sayfaya farklı alt bilgi eklemek için aşağıdaki adımları takip edebilirsiniz:

1. İlk olarak, istediğiniz alt bilgileri yazın. Örneğin, sayfa 1'e "Alt bilgi 1", sayfa 2'ye "Alt bilgi 2" gibi.
2. Sayfa sekmesinden ilk sayfayı seçin ve "Sayfa Düzeni" sekmesine gidin.
3. "Sayfa Kurulumu" bölümünde "Alt Bilgi/Alt Not" seçeneğini bulun ve üzerine tıklayın.
4. "Özelleştirilen Alt Bilgi" penceresi açılacaktır. Burada, "Alt Bilgi" kutusuna istediğiniz alt bilgiyi yazın.
5. "Seçenekler" bölümünde "Tüm sayfalara uygula" kutusunu işaretleyin. Böylece bu alt bilgiyi tüm sayfalara uygulayabilirsiniz.
6. "Tamam" düğmesine tıklayarak işlemi tamamlayın.
7. 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.

Umarım bu adımlar size yardımcı olur.

 

[cems]

tabii bunu kopya bir dosyada denemek asıl dosyanın tahrip olasılıgı olmadan calısmak anlamına gelir

 

[akara.88]

Her sayfaya farklı alt bilgi eklemek için aşağıdaki adımları takip edebilirsiniz:

1. İlk olarak, istediğiniz alt bilgileri yazın. Örneğin, sayfa 1'e "Alt bilgi 1", sayfa 2'ye "Alt bilgi 2" gibi.
2. Sayfa sekmesinden ilk sayfayı seçin ve "Sayfa Düzeni" sekmesine gidin.
3. "Sayfa Kurulumu" bölümünde "Alt Bilgi/Alt Not" seçeneğini bulun ve üzerine tıklayın.
4. "Özelleştirilen Alt Bilgi" penceresi açılacaktır. Burada, "Alt Bilgi" kutusuna istediğiniz alt bilgiyi yazın.
5. "Seçenekler" bölümünde "Tüm sayfalara uygula" kutusunu işaretleyin. Böylece bu alt bilgiyi tüm sayfalara uygulayabilirsiniz.
6. "Tamam" düğmesine tıklayarak işlemi tamamlayın.
7. 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.

Umarım bu adımlar size yardımcı olur.

Ü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.

 

[akara.88]

Anladığım kadarıyla zaman geçtikçe yeni konular önceki konuların görülmesini engelliyor. O yüzden konuyu hatırlatmak istedim.
Excelde sayfa1'de 120 sayfa verim mevcut. Bu verileri çıktı alırken her sayfaya (metin biçiminde) farklı alt bilgi görünmesini istiyorum. Manuel olarak ekleyebilirim. Ama word deki gibi sayfaların birbiri ile bağını koparmayı ve bu şekilde ayrı altbilgi oluşturmayı bulamadım. Yardımlarınızı bekliyorum.

 

[Necdet]

Merhaba,
İlk sorunuzda her sayfa(Sheet) için değişken Alt Bilgi anlaşılıyordu
Son açıklamanızda ise Sayfa1'i listelediğinizde 120 sayfa olduğunu dolayısıyla Sayfa1 i listelerken yazıcı sayfasının her birine değişken alt bilgi yazdıracağınız anlaşılıyor.

ilk sorunuz ve son açıklamanız farklı şeyler olduğundan yanıt alamadınız.

Bu işin çözümü biraz farklı.
Yazdıracağınız sayfanın (Sheet) önce kaç yazıcı sayfa olduğunu anlamak gerekir
sonra listelerken sayfa sayfa listelemek gerek ve her seferinde de alt bilgiyi değiştirmek gerek.

Yani : Sayfa1 'in 1. sayfasını listele ve alt bilgiyi değiştireceksiniz.
Sonra 2. sayfayı listele derken Sayfa1'in (Sheet) alt bilgisini değiştireceksiniz.
ve bu böyle böyle son sayfaya kadar devam edecek, kısaca sayfa1 iniz 120 sayfa ise 120 kere bunu makro ile kontrol etmeniz gerek.

Aşağıda vereceğim örnekte Sayfa1 ise listelenecek Sheetin kaç sayfadan oluştuğunu bulur.
Buna göre artık işlemleri yaptırabilirsiniz sanırım.

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