Sayfalara sıra numarası verme

[sward175]

Herkese Günaydın,
Ekli dosyada satır sayılarını 50 yaptım.
001' den başlayarak 200' e kadar sayıları sayfanın sağ üst köşelerine gelecek şekilde numara vermek istiyorum.
Konu ile ilgili yardımlarınızı rica ederim.
Saygılarımla,
sward175

 

[Erdem Akdemir]

Merhaba,

Tag'daki kodu dener misiniz.

Sub Makro1()

ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$5000"
x = 1

For i = 51 To 5000 Step 50
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & i)
Range("H" & i - 50).NumberFormat = ("00#")
Range("H" & i - 50) = x
x = x + 1
Next i

End Sub

 

[sward175]

Sayın, Erdem_34,
Çok Çok Teşekkür ederim.
Bir ricam daha olabilir mi ? Yazı tipi boyutunu 16 olarak ayarlayabilir miyiz?
Saygılarımla,
sward175

 

[mesutaygun70]

Makro kaydete basıp CTRL+A yapıp yazı tipi boyutunu 16 yapın, makro durdura basın
yukarıdaki kodda next i den sonraki satıra call makro2(yukarıdaki işlemi kaç olarak kaydettiyse muhtemelen 2 olarak kaydetmiştir) yazarsanız olur.
Altın üye olmadığım için dosyanıza bakamadım.

 

[sward175]

Merhaba, mesutaygun70,
Sizin dediğiniz gibi yapınca satır yükseklikleri de değişiyor ve sayfa boyutu da ölçü dışına çıkıyor.
Saygılarımla,
sward175

 

[veyselemre]

Dosyanızı düzenledim, en fazla 50 sayfa yazdıracak şekilde, başlangıç ve bitiş nosunu yazdığınız zaman 50 sayfaya kadar sayfa numaralama yapacaktır, daha önce bu sistemde çok defter numaraladığım için bu şekilde kullandım. Kağıt sıkışmalarında eksik kalan yerleri başlangıç ve bitiş nolarına yazarak yazdırabilirsiniz.

 

[sward175]

Sayın, veyselemre,
Teşekkür ederim.
Nice güzel günlere,
sward175