Excel de Aynı Sayfayı Çıktı Alırken Kopya Kadar Sayfa Numarası Vermek

[bilal5412]

Merhaba, exceldeki aynı sayfadan 200 kopya almak istiyorum fakat her kopyaya sıradan sayfa numarasını eklemek istiyorum.

örnek dosya

Yardımcı olabilir misiniz.

 

[systran]

şu kodu deneyin. a1 hücresi sayfa numarasının yazması gereken yer

sub yazdir()
application.screenupdating=false
for i = 1 To 5
    [a1] = i
    activesheet.printout
Next i
application.screenupdating=true
end sub

 

[bilal5412]

şu kodu deneyin. a1 hücresi sayfa numarasının yazması gereken yer

sub yazdir()
application.screenupdating=false
for i = 1 To 5
    [a1] = i
    activesheet.printout
Next i
application.screenupdating=true
end sub

Merhaba, desteğiniz için teşekkürler. Acaba sizin içinde uygunsa bunu excel bir menü olarak eklemek isterim. Eminim birçok arkadaşında işine yarayabilir. Bu yüzden kodlara bir kontrol koyabilir misiniz. Kontrol olarak, menüden bu makroya tıklandığında "sayfa numarası eklemek istediğin yeri seç ve kopya sayısını belirt" gibi. Çok harika olur.