Makro ile üstbilgi oluşturmak.

Katılım
20 Eylül 2018
Mesajlar
132
Excel Vers. ve Dili
2016-Türkçe
Altın Üyelik Bitiş Tarihi
19-01-2023
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..
 

Ekli dosyalar

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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
 
Katılım
20 Eylül 2018
Mesajlar
132
Excel Vers. ve Dili
2016-Türkçe
Altın Üyelik Bitiş Tarihi
19-01-2023
Ü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

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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.
 
Katılım
20 Eylül 2018
Mesajlar
132
Excel Vers. ve Dili
2016-Türkçe
Altın Üyelik Bitiş Tarihi
19-01-2023
Üstadım ellerinize, aklınıza sağlık.
Çok teşekkür ederim..
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sağolun.
 
Üst