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

[Garuramon]

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.

 

[Garuramon]

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]

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]

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

 

[Garuramon]

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.

 

[Garuramon]

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]

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.

 

[Garuramon]

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.