sayfadaki bir hürceye yazdırma sayfa no. atama?

[emraha]

Sabit bir hücreye sayfa yazdırırken sayfa numarası eklemek istiyorum nasıl yapabilirim?

 

[Levent Menteşoğlu]

Bunun için zaten Excelin hazır bir özelliği mevcuttur.

Dosya-baskı özinleme-ayarlar-üst/altbilgi-özet üst bilgi-sağ kısıma "sayfa no: &[sayfa]" yazın. (" işareti olmadan)

 

[emraha]

evet onu biliyorum ama benim istediğim şey farklı.
yaptığım ecxel dökümanından biraz bahsedeyim.
hücreleri bölerek excelde üstte yinelenen bir bölme yaptım ve yazıcıdan bu bölme kısmı devamlı tekrarlanarak çıkıyor. Benim istediğim bu bölünmüş ve tekrarlanan kısımdaki kendi seçtiğim bir hücrede bu sayfa numarasının yazması. Umarım derdimi anlatmakta başarılı olmuşumdur. Yardımlarınız için şimdiden teşekkürler.

 

[emraha]

:yardim: :yardim: :yardim: :yardim: :yardim: :yardim: :yardim:

 

[Levent Menteşoğlu]

Ã?rnek dosya eklermisiniz, sayfa nosununda hangi hücreye yazılacağını belirtiniz.

 

[emraha]

EK

J2 HÜCRESİNDE "SAYFA NO:" UN YANINA OTOMATİK SAYFA NUMARASINI YAZMASINI İSTİYORUM ACABA YAPILABİLİR Mİ?

 

[emraha]

:yardim: :roll: :roll: :!: :?: :!: :roll: :roll: :yardim:

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:8f03beda35]Sub yazdir()
say = ActiveSheet.HPageBreaks.Count + 1
For a = 1 To say
[j2] = "Sayfa No: " & a
ActiveSheet.PrintOut From:=a, to:=a
Next
End Sub
[/vb:1:8f03beda35]

 

[emraha]

levent çok teşekkür ederim. Gerçekten çok iyi bir visual basic bilgisine sahipsin. Bende senden ilham alarak visual basic öğrenmeye karar verdim. Bu kadar iyi bilmenin sırrı nedir?

 

[emraha]

bir şey daha soracağım eğer müsade ederseniz. Bu sayfa numarası vermeye istediğimiz rakamdan başlamayıda ekleyebilirmiyiz?

 

[Levent Menteşoğlu]

Rica ederim. İşinize yaradığına sevindim. İltifatınıza için teşekkür ederim. Ã?ncelikle Visual Basic değil VBA(visual basic application) konusunda çalışıyorum bunu düzeltelim. Birde çok iyi bilgiye sahip olduğumu asla söyleyemem. Sadece iyi bir araştırmacı olduğumu söyleyebilirim. İnanın bilgi düzeyimi ve araştırmacı yönümü; tamamen bu sitedeki değerli üstatlarımız Sn Haluk ve Sn ALPEN başta olmak üzere Sn Danersin gibi tüm kod yazan arkadaşlarımız sayesinde geliştirdim ve geliştirmeye devam ediyorum. Sizede önerim forumumuz iyi takip edin ve kodların üzerinde deneme yanılma metodu ile değişiklikler yaparak sonucunu inceleyin.

Þunuda belirteyim, sadece kod bilgisinin çok iyi olması yeterli değildir, çok daha önemlisi çözüm için nasıl bir mantık kurulacağının öğrenilmesidir, işte uzun zaman alanda işin bu tarafıdır. Mantık kurmakta klişeleşmiş çözümlerin dışında tamamen kişiye özgüdür, tıpkı insanın imzası gibidir. Aynı soru farklı kişilerce çok farklı mantıklarla çözülebilir.

 

[Levent Menteşoğlu]

Bu sayfa numarası vermeye istediğimiz rakamdan başlamayıda ekleyebilirmiyiz?

Aşağıdaki kodu deneyin. Cancel derseniz 1 den başlayacaktır.

[vb:1:a417e6922c]Sub yazdir()
sor = InputBox("BAÞLANGIÇ DEÐERİNİ GİRİNİZ")
If sor = "" Then sor = 1
say = ActiveSheet.HPageBreaks.Count + 1
For a = 1 To say
[j2] = "Sayfa No: " & a + sor - 1
ActiveSheet.PrintOut From:=a, to:=a
Next
End Sub
[/vb:1:a417e6922c]

 

[emraha]

Gerçekten çok doğru söylüyorsunuz. Kullanılmayan bilgi, bilgi değildir mantığına bende katılıyorum. Benim VBA konusunda hiç bir bilgim yok. Bu makrolarıda 1 aydır öğreniyorum forum sayesinde. Hatta sizin verdiğiniz makroyu bile tam anlamıyla çalıştırmakta zorlanıyorum. Ama çok çabuk öğreniyorum birde yatkınlığım benim hızımı arttırıyor. Ancak iş, güç eskisi gibi zaman bulamıyorum bilgisayar konularına. Bana önerebileceğiniz "başlangıç seviyesi" kitapları veya cd tarzı birşey varmıdır? Ayrıca exceldeki makroları öğrenmek için Visual Basic mi öğrenmek lazım yoksa VBA mı? arasında ne fark var?

 

[emraha]

bu kodu nasıl ekleyeceğim? benim yolladığım belgeye ekleyip bana yollayabilirmisiniz rica etsem?

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

Not: Kitap konusunda bir şey söyleyemeyeceğim. Bu konuyla ilgili hiç kitap almadım açıkçası, VBA;kısaca VB dilinin office programlarına uygulanmış şeklidir diyebiliriz. Ben VBA ile başladım VB ye henüz geçme fırsatım olmadı maalesef. Sanıyorum birini iyi bilen diğerine adapte olmakta daha az sıkıntı çekecektir.

 

[emraha]

çok teşekkür ediyorum gerçekten çok iyi olmuş. özellikle esktradan bir yazdır butonu beni dahada mutlu ettiğini itiraf etmeliyim. Yalnız gene bir eksiklik daha var. Yalnışlıkla yazdır buttonuna bastıktan sonra geri dönüş yok yani illede yazdırıyor. bununda önüne geçebilme gibi bir durumumuz varsa gerçekten mükemmel olacak. Umarım fikirlerim size angarya gelmiyordur.

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki gibi deneyin. Dosyadaki kodu tamamen silip yerine aşağıdakini kopyalayın. (kodu görmek için alt+F11)

[vb:1:90afc1b799]Sub yazdir()
If MsgBox("YAZDIRMAK İSTEDİÐİNİZE EMİNMİSİNİZ?", vbYesNo) = vbNo Then Exit Sub
sor = InputBox("BAÞLANGIÇ DEÐERİNİ GİRİNİZ")
If sor = "" Then sor = 1
say = ActiveSheet.HPageBreaks.Count + 1
For a = 1 To say
[j2] = "Sayfa No: " & a + sor - 1
ActiveSheet.PrintOut From:=a, to:=a
Next
End Sub
[/vb:1:90afc1b799]

 

[emraha]

gerçekten çok ama çok teşekkür ederim çok güzel bir çalışma yaptın gerçekten tebrik ederim ve yine çok teşekkür ederim.

 

[emraha]

levent bey bir sorun daha çıktı. eskiden eklediğim makro çalışmaz oldu daha doğrusu adet hanesine 3 rakamını girdiğimde değer hatası veriyor? ne yapmalı?

 

[Levent Menteşoğlu]

Hangi makrodan bahsediyorsunuz? dosyanızda sadece bir kullanıcı tanımlı fonksiyon var oda normal çalışıyor.