Sayfa Numarası Vermek

[sukru]

Ã?ncelikle saygılarımı sunuyorum.

AYNİYAT TESELLÜM MAKBUZU

Sayfa No : 914 :
Fatura Tarihi :
Fatura numarası :
Gönderildiği Yer :


S.No Malın Nevi Cinsi ve Esvafı Miktarı B.Fiyatı Tutarı
1 0
2 0
3 0
4 0
5 0
6 0
7 0
8 0
9 0
10 0
11 0
12 0
13 0
14 0
15 0
16 0
17 0
18 0
19 0
20 0
21 0
22 0
23 0
24 0
25 0
TOPLAM
Yukarıda gördüğünüz tablo yaptığım bir programın bir uzantısı sizden ricam bu sayfayı excel de her kaydettiğimde (örneğin 914 olan sayfa numarası)bir sonrakine yani 915 daha sonra 916 ya geçsin
bana bu konuda yardımcı olabilirseniz çok memnun olurum ilginiz için şimdiden teşekkürler.Saygılar...

 

[Metin Karaağaç]

excelde 914 tane sayfa varmı ki? :?

 

[sukru]

Sayfa numarasını örnek olarak verdim.001 den başlayacak zaten
İlgniz için ayrıca teşekkürler

 

[Metin Karaağaç]

bi deneme yapıyım dedim de kodlar çalışmıyor.
dediğim gibi diğer arkaldaşlar size yardımcı olabilir.
yardımcı olamadım kusura bakmayın.

 

[sukru]

Yinede ilginiz için teşekkürler

 

[zafer]

Merhaba
Aşağıdaki kodları Vba module yapıştırınız.
Kitabı kapattığınızda a1 de yazan sayının bir üstüne göre saklar

Sub AUTO_CLOSE()
dizin = "D:\Dosyalar\EXCEL\KITAPLIK\"
kitap = Sheets("sayfa1").Range("a1").Value +1
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=dizin & kitap & ""

End Sub

Edit:
Eğer sayfa numaraları 1 artacaksa

Sub AUTO_CLOSE()

Set sayfaad = Worksheets.Add(After:=Sheets(Sheets.Count))
ActiveSheet.Name = Sheets("SAYFA1").Range("A1") + 1
End Sub

bunu kullanın

 

[osmantelci]

Yukarıda gördüğünüz tablo yaptığım bir programın bir uzantısı sizden ricam bu sayfayı excel de her kaydettiğimde (örneğin 914 olan sayfa numarası)bir sonrakine yani 915 daha sonra 916 ya geçsin

excel de her kaydettiğimde (örneğin 914 olan sayfa numarası)bir sonrakine yani 915 daha sonra 916 ya geçsin isterseniz

Fautra numaranızın A1'de, Sayfa adınızın Sayfa1 olduğu varsayımıyla:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Sheets("Sayfa1").Range("A1") = Sheets("Sayfa1").Range("A1") + 1
End Sub

 

[osmantelci]

excelde 914 tane sayfa varmı ki? :?

daha fazlası bile var, ama sınırı nedir deneyemedim

Sub a()
 Dim int1 As Integer
 Application.ScreenUpdating = 0
 For int1 = 1 To 994
  Worksheets.Add After:=Sheets(Sheets.Count)
 Next int1
End Sub

Tabiki kaydederken problem yaşayabilirsiniz. Yüksek kapasiteli bir PC'niz olmalı.

 

[Metin Karaağaç]

ya burda bi konu vardı excel'in sınırları diye;
çalışma sayfası 255 yazıyordu.
o yüzden şaşırdım.

 

[sukru]

Cevaplarınız için teşekkürler yalnız ben bukonuda biraz zayıfım söylediklerinizi biraz daha açık anlatabilirmisiniz.Saygılar...

 

[sukru]

Arkadaşlar sorumu çözmüşler ama benim bilgim verilen bu formülü yorumlamasını bilmiyorum lütfen biraz daha yardım.Þimdiden teşekkürler...