-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Hücreye Sayfa Numarası
- Konbuyu başlatan ASOİP
- Başlangıç tarihi
Sayfa No
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.
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.
=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....
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
Özel Üye
- Katılım
- 6 Temmuz 2004
- Mesajlar
- 9,226
- Excel Vers. ve Dili
- Excel-2003 Türkçe
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.
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.
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...
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..
bu boş sayfa numaralama işini bende yaptım ama yazıcıya yazık oluyor çok ısınıyor haberiniz olsun..
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..
- Katılım
- 18 Nisan 2007
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2007 Türkçe
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.
Yardımcı olurmusunuz.
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,420
- Excel Vers. ve Dili
- excel 2010
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.
- Katılım
- 18 Nisan 2007
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2007 Türkçe
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...
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...
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,420
- Excel Vers. ve Dili
- excel 2010
merhaba
bu işinizi görür mü?
bu işinizi görür mü?
Kod:
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- Katılım
- 18 Nisan 2007
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2007 Türkçe
Sadece bir sayfa yazdırıyor. Girilen değeri 1 artırıp hücreye ekliyor. Çoklu print olmuyor.
- Katılım
- 18 Nisan 2007
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2007 Türkçe
Kod:
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 Subkoyu 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.
Son düzenleme:
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,420
- Excel Vers. ve Dili
- excel 2010
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?
- Katılım
- 18 Nisan 2007
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2007 Türkçe
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.
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.
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,420
- Excel Vers. ve Dili
- excel 2010
- Katılım
- 18 Nisan 2007
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2007 Türkçe
tek sayfa yazdırıyor.
her sayfa için tekrar yazdırı tıklamak gerekiyor.
her sayfa için tekrar yazdırı tıklamak gerekiyor.
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,420
- Excel Vers. ve Dili
- excel 2010
kendi dosyanızdaki kodları 11. mesajdaki kodlarla değiştirin ve resmi tıklayın ya da yazdır makrosunu çalıştırın
- Katılım
- 18 Nisan 2007
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2007 Türkçe
Anladım başlangıç değerini giriniz diyor ya aklım karıştı. Son sayfayı yazacaz.
- Katılım
- 18 Nisan 2007
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2007 Türkçe
Kod:
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 Subpeki hocam buradaki iki makroyu nasıl birleştirebiliriz.
Yani başlangıç ve son değerin her ikisini nasıl belirtebiliriz.