Çözüldü Ziyaretçi Defterine önlü arkalı sıra numarası verilmesi hakkında.

Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
Merhaba,

EK' li olan Excel dosyasında mevcut olan, daha önce kulanmış olduğum çalışmayı revize etmek istiyorum. A4 kağıdın hem ön yüzüne, hem arka yüzüne sayfa numarası yazdırmak istiyorum. Bu nedenle iki tane buton olsa birine bastığım zaman,Sayfa:1 , Sayfa:3 , Sayfa:5 , Sayfa:7 ………..vs diye sayfa numarası yazdırılabilir mi. Yazıcıya A4 kağıtlarını ters yerleştirdiğim zaman ikinci butona basıldığı zaman,Sayfa:2 , Sayfa:4 , Sayfa:6 , Sayfa:8 ………..vs diye sayfa numarası olacak şekilde yapılması mümkün müdür. Konu hakkında yardımcı olabilecek siz değerli arkadaşlarımın yardımlarını rica ederim.
 

Ekli dosyalar

Son düzenleme:
Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
Sub yazdir()
Dim Say As Long
Dim Sor As String
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 Say = 1 To Sor
[j1] = "Sayfa: " & Say
ActiveSheet.PrintOut
Next
End Sub

Kullanmış olduğum formül bu . Bu formüle nasıl bir düzenleme yapılması gerekli ki birinci butona bastığım zaman Sayfa: 1, Sayfa 3, Sayfa 5, Sayfa 7....... vb olarak, ikinci butona bastığım zaman Sayfa: 2, Sayfa 4, Sayfa 6, Sayfa 8....... vb devam etsin.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

For Say = 1 To Sor yerine;

For Say = 1 To Sor Step 2 yazarsanız 2 şer atlayarak yazar. Aynı mantıkla 2. kodu da 1 to değil 2 to olarak başlatırınız.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Sub yazdir()
    If MsgBox("YAZDIRMAK İSTEDİĞİNİZE EMİNMİSİNİZ?", vbYesNo) = vbNo Then Exit Sub
    Sor = InputBox("İLK VE SON SAYFAYI 2-20 VEYA 1-15 ŞEKLİNDE GİRİNİZ")
    bl = Split(Sor, "-")
    If UBound(bl) <> 1 Then Exit Sub
    bas = bl(0)
    son = bl(1)
    If Not (IsNumeric(bas) And IsNumeric(son) And son > bas) Then Exit Sub
    For Say = bas To son Step 2
        [j1] = "Sayfa: " & Say
        ActiveSheet.PrintOut
    Next
End Sub
 
Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
Merhaba,

For Say = 1 To Sor yerine;

For Say = 1 To Sor Step 2 yazarsanız 2 şer atlayarak yazar. Aynı mantıkla 2. kodu da 1 to değil 2 to olarak başlatırınız.
Sayın @Ömer

Örnek dosya üzerinde çalıştıramadım yardımcı olur musunuz.
 
Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
Kod:
Sub yazdir()
    If MsgBox("YAZDIRMAK İSTEDİĞİNİZE EMİNMİSİNİZ?", vbYesNo) = vbNo Then Exit Sub
    Sor = InputBox("İLK VE SON SAYFAYI 2-20 VEYA 1-15 ŞEKLİNDE GİRİNİZ")
    bl = Split(Sor, "-")
    If UBound(bl) <> 1 Then Exit Sub
    bas = bl(0)
    son = bl(1)
    If Not (IsNumeric(bas) And IsNumeric(son) And son > bas) Then Exit Sub
    For Say = bas To son Step 2
        [j1] = "Sayfa: " & Say
        ActiveSheet.PrintOut
    Next
End Sub
Sayın @veyselemre

Örnek dosyada kodu çalıştıramadım yardımcı olur musunuz.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kodu eklediyseniz, 2 ile 40 arasındaki çift çıkan mesaj kutusuna 2-40 yazacaksınız;
1 ile 39 sayfalar için 1-39 yazacaksınız o kadar, sadece 20 nci sayfayı yazdıracaksanız 20-20 yazın.
 
Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
Kodu eklediyseniz, 2 ile 40 arasındaki çift çıkan mesaj kutusuna 2-40 yazacaksınız;
1 ile 39 sayfalar için 1-39 yazacaksınız o kadar, sadece 20 nci sayfayı yazdıracaksanız 20-20 yazın.
Sayın @veyselemre

İlginiz için çok teşekkür ederim. Benim Excel özürlü olmam nedeniyle uygulamam çok zaman aldı. Excel' de Makroları halen kavrayamadım. Çözüm öneriniz gayet başarılı çalışıyor.
 
Üst