Üst Bilgiye Hücredeki değeri alma

[ozkovlu]

Merhabalar;
Üstbilgi ve Altbilgi menüsünde Üstbilgi kısmına; Sayfa1 sekmesinde bulunan A1 hücresinin içeriğini aldırmak için nasıl bir yol izlemek gerekir.
=Sayfa1!A1 formül Altbilgi ve Üstbilgide kullanılmıyor. Bunun için bir yöntem varmıdır.

Saygılarımla...

 

[Seyit Tiken]

Bunu kodla yapabilirsiniz.

Sayfa1.PageSetup.LeftHeader = [a1]

 

[ozkovlu]

Seyit Tiken bey;
verdiğiniz förmülü aşağıdaki şekilde denedim bir sonuç çıkmadı

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sayfa1.PageSetup.LeftHeader = [a1]
End Sub

Sub ustBilgi()
Sayfa1.PageSetup.LeftHeader = [a1]
End Sub

 

[ozkovlu]

Formülün başına açıklama nasıl eklenebilir
Açıklama: Formül

 

[ozkovlu]

Seyit Tiken bey;
Kodunuz işe yaradı ancak bir kaç ekleme daha yapmam icap ediyor.
1- Üst bilgi kısmını birden fazla satır olarak kullanabilirmiyiz
2- Hücre içeriğinde bulunan verinin başına "Kurum Adı" şeklinde açıklama eklenebilir mi?

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sayfa1.PageSetup.LeftHeader = ["Kurum Adı : "&a1]

Birden fazla satır ekleyebilirsiniz.

Sayfa1.PageSetup.LeftHeader = ["Kurum Adı : "&a1&" Birden fazla satır ekleyebilirsiniz."]

 

[ozkovlu]

Alt satıra nasıl geçilir

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sayfa1.PageSetup.LeftHeader = ["Maaş(Aylık) Katsayısı : " &A1] & Chr(10) _
& ["Taban Aylık Katsayısı : "&A2] & Chr(10) & ["Yan Ödeme Katsayısı : " &A3]

 

[ozkovlu]

Sayın Seyit Tiken;
TEŞEKKÜRLER