Alt Bilgi / Üst Bilgi

[ehmet]

Merhabalar;
Arkadaşlar excel çalışma sayfasına alt bilgi/ üst bilgi atanabilir mi,
örneğin tanımlanmış bir ad sayfa alt bilgisi olarak atanabilir mi
ya da nasıl olur?
Bu konuda yardım edebilecek kimse var mı?
teşekkürler.

 

[mancubus]

aşağıdaki gibi olabilir.

Left (sol) yerine Center (orta) veya Right (sağ) kelimeleri konulabilir.

Sub ust_alt_bilgi()

    With ActiveSheet.PageSetup
        .LeftHeader = "&""Tahoma,Bold""&12" & Range("bura")
        .LeftFooter = Application.UserName & " " & "&D"
        .CenterFooter = "Burası orta alt bilgidir!"
    End With

End Sub

açıklaması:
-"bura" adlı alandaki bilgiyi tahoma+bold+12 punto olarak sol üst bilgiye ekle.
-excel'deki kullanıcı adını ve günün tarihini sol alt bilgi olarak ekle.
-herhangi bir metni orta alt bilgi olarak ekle.

 

[ehmet]

aşağıdaki gibi olabilir.

Left (sol) yerine Center (orta) veya Right (sağ) kelimeleri konulabilir.

Sub ust_alt_bilgi()

    With ActiveSheet.PageSetup
        .LeftHeader = "&""Tahoma,Bold""&12" & Range("bura")
        .LeftFooter = Application.UserName & " " & "&D"
        .CenterFooter = "Burası orta alt bilgidir!"
    End With

End Sub

açıklaması:
-"bura" adlı alandaki bilgiyi tahoma+bold+12 punto olarak sol üst bilgiye ekle.
-excel'deki kullanıcı adını ve günün tarihini sol alt bilgi olarak ekle.
-herhangi bir metni orta alt bilgi olarak ekle.

teşekkür ederim hocam;
ancak
.LeftHeader = "&""Tahoma,Bold""&12" & Range("bura")
satırı "tahoma, bold" u da üst bilgi olarak kabul ediyor.

 

[mancubus]

kendime değil ama forumdaki gerçek hocalara teşekkürü kabul edeyim.

hem xl2003 hem xl2007 (ingilizce) versiyonlarında test ettim. sorun çıkmadı.

ekteki dosyada bilgileri temizleyen de olmak üzere makro mevcut.

sorun çıkarsa bilgilendirirsiniz.

 

[cebelitarık]

Sayın Mancubus

Sol üst bilgiye ilerleyen sayfa numaraları koyabilirmiyiz
Yani isteğimize göre belli sayıda numaralandırılmış sayfa yapabilirmiyiz.,
ABCD Sayfa 1
ABCD Sayfa 2
ABCD Sayfa 3....gibi
istediğimiz kadar boş sayfalar üretmek istiyorum.

ABCD sabitini: Sayfa1 A1 hücresinden alacak
Sayfa sayısını: Sayfa1 A2 hücresinden alacak
Saygılarımla

 

[mancubus]

çalışma kitabındaki Sayfa1, Sayfa2, vs sayfalarına (worksheet) 1'den başlayarak A2 deki rakama kadar sol üste Sayfa no: mu yazılsın?

öyle ise worksheet sayısının A2'deki rakam ile kontrol edilmesi gerekir.

Sub ust_alt_bilgi()

Dim wks As Worksheet
Dim i As Integer

Application.ScreenUpdating = False
Set wks = Worksheets("Sheet1")

If wks.Range("A2").Value > ThisWorkbook.Sheets.Count Then
    MsgBox "Çalışma kitabındaki sayfa sayısı daha az. Düzeltilsin mi?", vbCritical, vbYesNo
    If vbYes Then wks.Range("A2").Value = ThisWorkbook.Sheets.Count
End If

For i = 1 To wks.Range("A2").Value
    With Worksheets(i).PageSetup
        .LeftHeader = wks.Range("A1") & " Sayfa: " & i
        .CenterHeader = "Bizim Şirket AŞ" ' "" yazılarak silinebilir
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = "&D &T" 'tarih-saat: "" yazılarak silinebilir
    End With
Next i

Set wks = Nothing
Application.ScreenUpdating = True

End Sub

aynı worksheet içinde sayfa no verilecekse bu zaten standart.
makro kullanımı için örnek:

        .RightFooter = "&P"

 

[cebelitarık]

Sayın mancubus
İlgin için teşekkür ederim.
isteğim aşağıdaki gibi bir kod ama

A1 nin değeri "Bizim şirket olsun"
A2 nin değeri 10 olsun

yani sayfa ön izlemeye bakınca 10 adet numaralandırılmış sayfa yazdırılmaya hazır olsun istiyorum. Yazıcıya tek tek gönderilmeyecek 1 den 10 a kadar numaralandırılmış 10 adet sayfa lazım. Netcede 10 sayfalık bir defter olacak bu.
Saygılarımla

Dim wks As Worksheet
Dim i As Integer
Application.ScreenUpdating = False
Set wks = Worksheets("Sayfa1")

For i = 1 To wks.Range("A2").Value
    With Worksheets("sayfa1").PageSetup
        .RightHeader = wks.Range("A1") & " Sayfa: " & i
    End With
Next i

Set wks = Nothing
Application.ScreenUpdating = True

End Sub

 

[mancubus]

boş bir çalışma kitabı açın. ön izlemeye tıklayın. "MS Office Excel yazdıacak bir şey bulamadı" uyarısı alırsınız.

bir sayfanın (worksheet) içinde iken yazdır'ı tıkladığınızda, o sayfanın tamamı yazdırılır. bu anlamda yazdırılacak sayfa sayısı kullanılan alana bağımlıdır. benim bildiğim, hiç veri bulunmayan bir sayfanın yazdırılamayacağıdır.

anladığı kadarı ile sizin yapmak istediğiniz dilediğiniz anda 10 sayfa print almaktır.
eğer bu bir şablon, tablo vs ise olabilir.

örnek dosya eklerseniz daha açıklayıcı olur.

 

[tamer42]

teşekkür ederim hocam;
ancak
.LeftHeader = "&""Tahoma,Bold""&12" & Range("bura")
satırı "tahoma, bold" u da üst bilgi olarak kabul ediyor.

Merhabalar,
Buradaki kodun son sayfada uygulanmasın, toplam 4 sayfa olan bir tabloda, ilk 3 sayfada uygulansın, 4. sayfada uygulanmasın;
nasıl yapılabilir?

teşekkürler,
iyi akşamlar.