excel sayfa numarası ekleme

[mustafa431]

slm arkadaşlar bu excel de arka plan olarak sayfa numarası ekleme ve bu yazdırma alanı belirleme çizgisi hani bu mavi renkli olan istediğimiz şekiilde ayarlayabiliyoruz bunu nereden yapıyoruz(sayfa nuamrası altbilgi üstbilgi ile yapmak değil ) ilgilenirseniz sevinirim.

 

[Necdet]

Merhaba,

2007 deki durumu :

Görünüm
Sayfa Önizleme

 

[mustafa431]

hayır arkadaşım sayfa önizle olmadan görmek istiyorum yıllık planlarda çok oluyor bu derslerin öğretmenlerin kullandığı

 

[Necdet]

demekki denememişsin

 

[Necdet]

Dosyayı da ekleyelim.

 

[mustafa431]

evet denememiştim öyle değil diye çok teşekkür ediyorum

 

[fyucel]

Değerli arkadaşlar bu soruyu genişleterek sormak istiyorum,
Bir Excel çalışma kitabındaki Sayfaların hepsini (ki, her sayfada birden fazla a4 sayfası olabilir) kapsayacak şekilde 1 den başlayarak ardışık, müteselsil, sayfa numarası verebilirmiyiz.
ekli dosyada manuel olarak sayfa no verdim bunu yapmak için excelin bir özelliği varmı yada makro ile yapabilirmiyiz.
ilgi ve alakanıza şimdiden teşekkür ederim. cevapları excel-2003 için bekliyorum

 

[aacanakova]

arkadaşlar mustafa arkadaşımız bu soruyu sormuş ama cevap gelmemiş yardımcı olabilirmisiniz .Ama 2007 için

Değerli arkadaşlar bu soruyu genişleterek sormak istiyorum,
Bir Excel çalışma kitabındaki Sayfaların hepsini (ki, her sayfada birden fazla a4 sayfası olabilir) kapsayacak şekilde 1 den başlayarak ardışık, müteselsil, sayfa numarası verebilirmiyiz.
ekli dosyada manuel olarak sayfa no verdim bunu yapmak için excelin bir özelliği varmı yada makro ile yapabilirmiyiz.
ilgi ve alakanıza şimdiden teşekkür ederim. cevapları excel-2003 için bekliyorum

 

[halit3]

bu kodu denermisiniz.

g. sütununu örnek alıyor kod başlangıçta bu sütunu siliyor sonra sayfa sıra numarası veriyor.

Sub sayfatoplam()
For i = 1 To ActiveWorkbook.Sheets.Count
say = Sheets(i).HPageBreaks.Count
Sheets(i).Columns("G:G").ClearContents ' burası deneme amaçlı olup silmek için var bu kod
For a = 1 To Val(say)
On Error Resume Next
deg1 = deg1 + 1
sat = Sheets(i).HPageBreaks.Item(a).Location.Row - 1
Sheets(i).Cells(sat, "g") = "Sayfa: " & deg1
Sheets(i).Cells(sat, "g").Font.Bold = True
Next
Next
MsgBox "işlem tamam"
End Sub

 

[aacanakova]

Arkadaşlar soruyu yanlış anladınız sayfalar numara vermekten kastım alttaki sayfalar .İşaretlediğim yerlerdeki sayfa isimlerinin olduğu yere otomatik sayfa numarası vermek istiyorum . Mesela 900 tane sayfa ekledim bu sayfalara otomatik olarak mesela 1000 den başlayıp 1900 e kadar numaraları otomatik olrak verdirmek istiyorum .Dosyayı ekledim

 

[aacanakova]

Arkadaşlar soruyu yanlış anladınız sayfalara numara vermekten kastım alttaki sayfalardı .İşaretlediğim yerlerdeki sayfa isimlerinin olduğu yere otomatik sayfa numarası vermek istiyorum . 900 tane sayfa ekledim bu sayfalara otomatik olarak mesela 1000 den başlayıp 1900 e kadar numaraları otomatik olrak verdirmek istiyorum .Dosyayı ekledim

arkadaşlara yardım lütfen

 

[halit3]

Arkadaşlar soruyu yanlış anladınız sayfalar numara vermekten kastım alttaki sayfalar .İşaretlediğim yerlerdeki sayfa isimlerinin olduğu yere otomatik sayfa numarası vermek istiyorum . Mesela 900 tane sayfa ekledim bu sayfalara otomatik olarak mesela 1000 den başlayıp 1900 e kadar numaraları otomatik olrak verdirmek istiyorum .Dosyayı ekledim

baya uğraştırdı bu kod:
kodu modülün içine kopyalayınız.


önce sayfaları seç ve aşağıdaki kodu çalıştır

dosya aşağıdaki mesajda

 

[aacanakova]

arkadaşlar cevap lütfen

 

[aacanakova]

Dostum Seni yrduk Hakkını helal et ama kod hata veriiyor bir kontrol edermisin

 

[halit3]

12 nolu mesajdaki kodu birazcık kısalttım.

hatayı nerede veriyor resmini gönder bakalım.

ben ofis 2000 kulanıyorum.

 

[aacanakova]

2007 kullanıyorum ondan dolayı herhalde hata veriyor .

 

[halit3]

sat1 = Sheets(Sheets(r).Name).HPageBreaks.Item(j).Location.Address

yukarıdaki bölümü aşağıdakiyle değiştirin.

sat1 = Sheets(sayfa_adi).HPageBreaks.Item(j).Location. Address

 

[halit3]

silsenizde olur

kodların son hali

Sub yazdırma_sayfa_adeti()
yer = ActiveSheet.Name
deg1 = 1
For i = 1 To ActiveWindow.SelectedSheets.Count
sayfa_adi = ActiveWindow.SelectedSheets.Item(i).Name
Sheets(sayfa_adi).Activate
Sheets(sayfa_adi).Columns("H").ClearContents ' burası deneme amaçlı olup silmek için var bu kod
sat = 0
'deg1 = 1 ' burası sayfa numaralarını her sayfa için yeniden veriyor
For j = 1 To Val(Sheets(sayfa_adi).HPageBreaks.Count)
On Error Resume Next
sat = Sheets(sayfa_adi).HPageBreaks.Item(j).Location.Row - 1
If j = 1 Then
saydır = sat
End If
Sheets(sayfa_adi).Cells(sat, "H") = "Sayfa: " & deg1
Sheets(sayfa_adi).Cells(sat, "H").Select
Sheets(sayfa_adi).Cells(sat, "H").Font.Bold = True
deg1 = deg1 + 1
Next j
Sheets(sayfa_adi).Cells(sat + saydır, "H") = "Sayfa: " & deg1
Sheets(sayfa_adi).Cells(sat + saydır, "H").Select
Sheets(sayfa_adi).Cells(sat + saydır, "H").Font.Bold = True
deg1 = deg1 + 1
Next i
Sheets(yer).Activate
Range("A1").Select
MsgBox "işlem tamam"
End Sub

 

[aacanakova]

Hata veriyor hala

Run-time error '1004':

 

[aacanakova]

Bir de ben 1 den değil de 1000 den başlamak istiyorum .Değişen bir şey olurmu kod da