Hücreye Sayfa Numarası

[ASOİP]

Exel hücresinin içerisine sayfa numarasını nasıl yazabilirim. Alt/Üst bilgi kullanmadan... Selamlar.. Saygılar..

 

[zipir123]

Sayfa No

Exel hücresinin içerisine sayfa numarasını nasıl yazabilirim. Alt/Üst bilgi kullanmadan... Selamlar.. Saygılar..

Sn. Asoip bunu yapmaktaki tam amacınız nedir?
Dosya/Sayfa Yapısı/Tamam deyin sayfanızın kenar çizgileri belikecektir. Sayfanızın bittiği yerde isteğiniz hücreye klavyeden istediğiniz nurarayı yazabilirsiniz.

 

[ASOİP]

=SAĞDAN(HÜCRE("DosyaAdı";A1);UZUNLUK(HÜCRE("DosyaAdı";A1))-MBUL("]";HÜCRE("DosyaAdı";A1)))

kodu ile "Sayfa1" şeklinde yazılıyor... Ancak ben sadece rakamsal değeri yani "1" i nasıl yazarım... Amacım bir numaratör yapabilmek... Teşekkürler....

 

[muygun]

Merhaba;
Eğer Yazdığınız formül işinizi görüyor ve sayfa'dan sonraki rakam değerini almak istiyorsanız; (sayfa isimleri Sayfa1,Sayfa2... vs gibiyse) Kullandığınız formülden parça alarak
=PARÇAAL(SAĞDAN(HÜCRE("DosyaAdı";A1);UZUNLUK(HÜCRE("DosyaAdı";A1))-MBUL("]";HÜCRE("DosyaAdı";A1)));6;3)
gibi...
İyi çalışmalar.

 

[ASOİP]

Sn.muygun; teşekkür ederim, evet sayenizde sadece rakamsal değeri aldım. Fakat amacımı gerçekleştiremedim. Ctrl+P ile sayfa aralığı girdiğimde her sayfada sıralı numaraları almayı amaçlıyordum, sayfalarda veri olmadığından görüntüleme ve yazdırma gerçekleşmedi. İlginize teşekkürler...

 

[netameli]

geniş bir yazdırma alanı belirleyin alanın sonuna küçük bir karakter mesala bir . (nokta) işareti koyun alt bilgiden sayfa numarası ekleyin.
bu boş sayfa numaralama işini bende yaptım ama yazıcıya yazık oluyor çok ısınıyor haberiniz olsun..

 

[ASOİP]

Sn.nemameli ; Alt/Üst Bilgi yöntemi ile verilen numaralar -düz satır- halinde çıkıyor... Ben bu işi bir hücrede yapıp, hücre biçimlendirme ile yaklaşık 30 derecelik açı ile metin üzerine çapraz numaralar yapmayı amaçlamıştım... İlgi ve paylaşımınız için teşekkür ediyorum.. Saygılarımla..

 

[orhansanverdi]

Ben bir adet excel sayfasını yüzlerce sayfa yazdıracam. Fakat her çıktıda o hücreye otomatik numara versin istiyorum. Ama beceremedim.
Yardımcı olurmusunuz.

 

[uzmanamele]

Ben bir adet excel sayfasını yüzlerce sayfa yazdıracam. Fakat her çıktıda o hücreye otomatik numara versin istiyorum. Ama beceremedim.
Yardımcı olurmusunuz.

merhaba
syn orhansanverdi,
anladığım kadarıyla bir sayfadan 100 kopya alacaksınız ve her kopyada sayfa no artarak gitsin istiyorsunuz. bir nevi fatura koçanı gibi (mi?)

bunun için makro yazmak gerekir, örnek dosya eklerseniz küçük bir kod ile halledilebilir.
biz örnek dosya hazırlarsak kodları kendi dosyanıza uyarlayamayabilirsiniz.

 

[orhansanverdi]

Makroyu orta seviyede biliyorum. Dosyam ekte. Sayfa No: yazan yerde şu anda 1 yazıyor. Forumdan bir makro denemiştim. o hücrede bağlantısı var. kaldırılabilir.
Aynen dediğiniz gibi en az 180 tane (iş gününden dolayı) çıkarılacağı için. 1 den 180'e kadar.
Tabiki farklı yerlerde kullanmak için sayı özelleştirilebilir.
Olursa memnun olurum.

Teşekkürler...

 

[uzmanamele]

merhaba

bu işinizi görür mü?

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
For a = 1 To sor
[ao3] = [ao3] + 1
ActiveSheet.PrintOut
Next
End Sub

 

[orhansanverdi]

Sadece bir sayfa yazdırıyor. Girilen değeri 1 artırıp hücreye ekliyor. Çoklu print olmuyor.

 

[orhansanverdi]

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
For a = 1 To sor
[ao3] = [ao3] + 1
ActiveSheet.PrintOut
Next

[B][ao3] = [ao3] + 1
ActiveSheet.PrintOut[/B]

[B][ao3] = [ao3] + 1
ActiveSheet.PrintOut[/B]

[B][ao3] = [ao3] + 1
ActiveSheet.PrintOut[/B]

End Sub

koyu yazan yerleri ekleyince yazdırma oluyor.3 adet eklenince başlangıç değeri 1 ise 1,2,3 ve 4 yazdırılıyor.
Fakat örneğin 180 sayfa yazdıracam ben. 180 satır eklemek yerine bunu makro ile nasıl ekleyebiliriz.
Örneğin başlangıç sayısını giriniz
kaça kadar yazdırmak istiyorsunuz gibi makrolar nasıl eklenebilir.

 

[uzmanamele]

Sadece bir sayfa yazdırıyor. Girilen değeri 1 artırıp hücreye ekliyor. Çoklu print olmuyor.

merhaba
söylediklerinizden bişey anlamamış olabilirim.
kaç kopya istediğinizi soruyor, mesela 5.
5 kopya yazdırır. sonra kaldığınız yerden mesela 10 kopya daha çıkarabilirsiniz.
her kopya üzerinde sayfa sayısı olarak 1,2,3.. vs diye gidecektir.

sizin istediğiniz bu değilse, mesela sayfa no:1 10 kopya, sayfa no:2 15 kopya falan mı olsun diyorsunuz?

 

[orhansanverdi]

Tam olarak istediğim başlangıç değerini örneğin 1 girdim kaça kadar bastrımak istiyorsun diye soracak 180 dedim.
Ardından ao3 değeri 1 den 180 e kadar değişerek yazıcıya çıktı gönderecek.

Aynı sayfayı 180 defa yazdıracak ama her birinde farklı numara yazacak:
1,2,3,4,5,6,7......180


Örneğin üstteki verdiğim kod ile 4e kadar oluyor ama koyu ile yazılmış makroyu otomatik olarak nasıl yapabiliriz.

 

[uzmanamele]

Tam olarak istediğim başlangıç değerini örneğin 1 girdim kaça kadar bastrımak istiyorsun diye soracak 180 dedim.
Ardından ao3 değeri 1 den 180 e kadar değişerek yazıcıya çıktı gönderecek.

Aynı sayfayı 180 defa yazdıracak ama her birinde farklı numara yazacak:
1,2,3,4,5,6,7......180


Örneğin üstteki verdiğim kod ile 4e kadar oluyor ama koyu ile yazılmış makroyu otomatik olarak nasıl yapabiliriz.

merhaba
11. mesajdaki kod istediğinizi yapmıyor mu?

 

[orhansanverdi]

tek sayfa yazdırıyor.
her sayfa için tekrar yazdırı tıklamak gerekiyor.

 

[uzmanamele]

tek sayfa yazdırıyor.
her sayfa için tekrar yazdırı tıklamak gerekiyor.

kendi dosyanızdaki kodları 11. mesajdaki kodlarla değiştirin ve resmi tıklayın ya da yazdır makrosunu çalıştırın

 

[orhansanverdi]

Anladım başlangıç değerini giriniz diyor ya aklım karıştı. Son sayfayı yazacaz.

 

[orhansanverdi]

Sub yazdir()
If MsgBox("YAZDIRMAK İSTEDİĞİNİZE EMİNMİSİNİZ?", vbYesNo) = vbNo Then Exit Sub
sor = InputBox("SON DEĞERİNİ GİRİNİZ")
If sor = "" Then sor = 1
For a = 1 To sor
[ao3] = [ao3] + 1
ActiveSheet.PrintOut
Next
End Sub


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
[ao3] = "" & a + sor - 1
ActiveSheet.PrintOut From:=a, to:=a
Next
End Sub

peki hocam buradaki iki makroyu nasıl birleştirebiliriz.
Yani başlangıç ve son değerin her ikisini nasıl belirtebiliriz.