Bir hücredeki bilgiyi otomatik olarak üst bilgide (header) göstermek

[yeliz.yilmaz]

Merhaba arkadaslar,

mesela A1 hucresine "156" yaziyorum. Excelin header/footers bolumunde otomatik olarak gorunsun istiyorum. ama sadece sayfa numalarini ve dosya adlarini gosterebiliyorum bu bolumde.


Nasil yardımcı olabilirsiniz? Simdiden tesekkur ediyorum.

selamlar.

Yeliz.

 

[Ömer]

Merhaba,

Tam olarak ne yapmak istediğiniz anlayamadım, aşağıdaki gibi işize yarar sanırım.

Dosya / Sayfa Yapısı / Çalışma Sayfası menüsünden Üstte Yinelecek Satırla bölümüne gelerek 1. satırı işaretleyiniz.

.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayınız. A1 hücresine değer girdikçe o değer üst bilgide orta kısımda görünecek şekilde otomatik olarak ayarlanır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveSheet.PageSetup
        .CenterHeader = Range("A1")
    End With
End Sub

 

[yeliz.yilmaz]

ilginiz icin cok tesekkur ederim.

ilginiz icin cok tesekkur ederim.

ekte daha iyi anlatabilecegimi sanirim. INDEX sayfasinda D1 hucresinde 163 yazili. tum sayfalarda onizleme ile baktigimizda No:163 yaziyor. ben bunu her sayfa icin hergun degistiryorum. mesela yarin 164 olacak ve her 3 sayfa icin header girip orda degistiriyorum. aslinda sayfa sayisi 15. herbiri ayri ayri yapmak zamanimi aliyor.

selam

yeliz.

 

[Korhan Ayhan]

Selamlar,

Sn. yeliz.yilmaz,

Örnek dosyanızda ilk sayfada "Header" sol tarafta diğer sayfalarda sağ tarafta bulunuyor. Çalışmamda 15 sayfa var demişsiniz. Diğer sayfalarda bu konum nasıldır?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SAYFA_ÜST_BİLGİSİ_DÜZENLE()
    Dim SAYFA As Worksheet, NO As Integer
    
    NO = Sheets("INDEX").Range("D1")
    
    For Each SAYFA In Worksheets
        If SAYFA.Name = "INDEX" Then
        SAYFA.PageSetup.LeftHeader = "Offshore Daily Report " & Chr(10) & "No:" & NO & Chr(10) & "Cut off Date: &D - 17:00 hrs"
        Else
        SAYFA.PageSetup.RightHeader = "Offshore Daily Report " & Chr(10) & "No:" & NO & Chr(10) & "Cut off Date: &D - 17:00 hrs"
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[yeliz.yilmaz]

merhaba korhan,

index te sadece sol digerlerinde hep sagda. bunu atlamisim. sizin kodunuzu bir deneyecegim.

 

[yeliz.yilmaz]

merhaba korhan,

sadece index sayfasi solda. diger sayfalar sagda olacak. atlamisim uzgunum.

selam

 

[yeliz.yilmaz]

calisti harika Korhan,

ama tek seferde olması mumkun mu bir makro gibi gorunse kisa yol tusu ile cok guzel olacak

selam

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu "INDEX" isimli sayfanın kod bölümüne uygulayınız. D1 hücresine değer girdiğinizde başlıklar otomatik olarak tanımlanır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [D1]) Is Nothing Then Exit Sub
    Call SAYFA_ÜST_BİLGİSİ_DÜZENLE
Son:
End Sub

 

[yeliz.yilmaz]

Korhan, cok tesekkur ediyorum.

sitemiz maddi destekta bulunmak icin ne yapabilirim?

cok tesekkurler.

yeliz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkte ilk mesajın en altında link var oraya tıklayarak katkıda bulunabilirsiniz.

http://www.excel.web.tr/showthread.php?t=57910

 

[yeliz.yilmaz]

cok tesekkur ediyorum harikasin.