excel sayfasına numara vermek

[power]

arkadaşlar şöyle bir ihtiyacım var ama bu mümkünmü bilmiyorum.
yarım sayfalık bir tablom var.tablonun en üst kısmında bir yere numara vermek istiyorum.diyelimki sayfayı ilk açtığımda bu numara 1 olsun. ctrl+p yapıp yazıcıya gönderdikten sonra bu numara bir artarak 2 olsun ve böyle ilerleyerek devam etsin.bu mümkünmü acaba?

 

[Ömer]

Merhaba,

ThisWorbook sayfasına kopyalayınız. +1 artacak sayının A1 hücresinde olduğu düşünülmüştür.

Private Sub Workbook_Open()
    [A1] = 1
End Sub
 
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    [A1] = [A1] + 1
End Sub

.

 

[power]

ThisWorbook sayfasına kopyalayınız? bunu anlayamadım.açıklayabilirmisiniz?

 

[Ömer]

Alt + F11 tuş kombinasyonu ile VBA ekranına girerseniz bu sayfayı görebilirsiniz.

Yalnız makro ayarlarını da düşürmeniz gerekir.

Linki inceleyiniz.

Makroları etkin kılmak.Güvenlik düzeyini düşürmek

Ek olarak; sayfada 1 olan hücre her sayfa açıldığında tekrar 1 mi olacak ( şuan kod o şekilde ) yoksa eski sayı kalıcımı olup, üzerine mi ilave olacak.

.

 

[power]

evet sayfa her açıldığında 1 den başlayacak.fakat ben söylediğiniz şekilde yapamadım biraz daha ayrıntı verebilirmisiniz?

 

[Ömer]

#4 nolu mesajda gerekli açıklamaları yapmıştım.

Eki inceleyiniz.

.

 

[power]

evet istediğim şekilde çalışıyor.Fakat baskı önizleme yaptığım zamanda ilgili hücredeki sayı artıyor.bunun önüne nasıl geçebilirim acaba?