Makro ile üstbilgi oluşturmak.

[Grknpkdzn]

Merhabalar.
Sitenize yeni üye oldum.
Ekteki dosyada yapmaya çalıştığım fakat beceremediğim, şu hususta yardımlarınızı rica ederim.
Deneme.xls dosyasının içinde bulunan "liste" sayfasında daha sonradan, daha da isim eklenmek suretiyle bir liste var.
Diğer sayfalarda (isimlerden oluşan) bulunan kırmızı renkli rakamların kitaplık yazdırılırken sağ tarafta üstbilgi olarak gözükmesini istiyorum.
Umarım anlatabilmişimdir.
Şimdiden teşekkürler..

 

[turist]

Sayın @Grknpkdzn ,
Forumumuza hoşgeldiniz.
Aşağıdaki makroyu, dosyanızda çalıştırıp, sonuçları inceleyiniz.
Sub UstBilgiEkle()
Dim WorkRng As Range
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
Set WorkRng = ws.Range("G1")
ws.PageSetup.LeftHeader = WorkRng.Value
Next
End Sub

 

[Grknpkdzn]

Üstadım cevabın için teşekkür ederim.
Fakat konudan o kadar uzağım ki teyit için sormak istiyorum;
Dosyayı açıyorum.Alt+F11 ile VBA penceresini açıyorum.
Sol tarafta BuÇalışmaKitabı nın üstüne sağ klik yapıp Insert->Module diyorum. Kodları da sağ tarafa yapıştırıyorum.
Doğru mudur?
Sonraki kullanımını bir yazarsanız ayrıca çok memnun olurum.
Teşekkürler..

 

[turist]

Yaptıklarınız doğru.
Daha sonra , Excel sayfanıza dönün.
Alt+F8 yapın çıkan Makro penceresindeki "UstBilgiEkle" makrosunu çalıştırın.
Sonra Dosya/Seçenekler/ Yazdır kısmında ÜstBilgi'yi kontrol edin.

 

[Grknpkdzn]

Üstadım ellerinize, aklınıza sağlık.
Çok teşekkür ederim..

 

[turist]

Sağolun.