Yazdırırken hucre ıcındekı sayı yazdırma adedıne kadar artsın

[kneehot]

Selamlar arkadaslar.yapmak ıstedıgım bır hucreme rakam verıcem ornegın 20 baska bır hucrede yazdırma sayısı kadar rakamın bırer bırer degısmesı 1/20 2/20 3/20 ... 20/20.sayfa sayım 1 bu arada.ornek ıcınde anlatmaya calıstım.yardımcı olursanız sevınırım.tesekkurler.

 

[hamitcan]

Sub yazdir()
For i = 1 To [b1]
    [b7] = i & "/" & [b1]
    ActiveSheet.PrintOut
Next
End Sub

 

[kneehot]

Yazdıgınız kodu sayfa1 e ekledım fakat olmadı b7 hucresını tamamen sılmıstım ama.tam nasıl kullanabılecegımız acıklarsanız cok sevınırım

 

[kneehot]

Bu yazdıgınız kodu ekledıgım ornekte kontrol edıp bırde d1 hucresıne yazdır dıye bır buton koyup ornegı gerı eklersenız cok sevınırım.

 

[hamitcan]

Eki inceleyin.

 

[kneehot]

son bırsey daha ıstersem umarım cok olmam.ornek ıcınde altı cızılı olan yazılar bastırırken gorunmesın.ornegın koda ohucrelerı verıp yazı rengı beyaz olsun bastırmadan once gibi bir cozum olabılır yada dizaynı bozmadan ohucrelerı yazdırma olabılır.elimde matbu kagıtlar var onların uzerıne yazdırdıgım ıcın yazı yerlerı degısmemesı gerekıyor.

 

[hamitcan]

Sub yazdir()
    [a3:a7,c7].Font.Color = vbWhite
    For i = 1 To [b1]
        [b7] = i & "/" & [b1]
        ActiveSheet.PrintPreview
    Next
    [a3:a7,c7].Font.ColorIndex = xlAutomatic
End Sub

 

[kneehot]

Cok tesekkurler