Her Sayfaya Farklı Numara Vermek Önemli

[SkyFire]

Merhabalar bu konu benim için çok önemli

Aşağıda resimde gösterdiğim tablo altında kırmızı yazan bir kısım var

1 / 16 yazıyor
ve ben bu magaza için 16 adet sayfa basacagım ama her sayfada farklı numara yazacak

örnek olarak
1. sayfada 1/ 16
2. sayfada 2/16
3. sayfada 3/16

bu şekilde 16/16 yazana kadar gidecek ve o tablo üzerinde olacak

yani baskı önizlemede altbilgi kısmında Sayfa 1/16 yazmayacak kesinlikle

yardımcı olabilirseniz sevinirim

resmi en alt tarafta örnekte verdim

 

[uzmanamele]

merhaba

örnek dosya eklerseniz makro ile çözüm üretilebilir.

alternatif olarak altbilgiyi bu hücrenin üstüne denk gelecek şekilde ayarlayabilirsiniz.

 

[SkyFire]

mesela nasıl yapabilirim ? örnek olarak gösterirmisiniz

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. A1 hücresini kendi sayfanızdaki hücre adresine göre değiştiriniz.

Option Explicit
 
Sub YAZDIR()
    Dim İLK_DEĞER As String, AYIR As Variant, X As Integer
 
    If InStr(1, Range("A1"), "/") > 0 Then
    İLK_DEĞER = Range("A1")
 
    AYIR = Split(Range("A1"), "/")
 
    For X = 0 To Trim(AYIR(1)) - 1
        Range("A1") = "'" & X + 1 & " / " & Trim(AYIR(1))
        ActiveSheet.PrintOut
    Next
 
    Range("A1") = İLK_DEĞER
 
    End If
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[SkyFire]

kodu visual basic ile derledigim zaman 16 kere baskı önizlemeden çıkmaya calıstıgım zaman tekrar basma secenegi cıkıyor ama gene sayılar aynı

 

[Korhan Ayhan]

Selamlar,

Ben kodda örnek olması açısından Önizleme seçeneğini kullandım. Üstteki mesajımdaki kodda kırmızı renkli satır düzeltilmiştir.