her çıktıya otomatik numara

[teonet]

Merhaba arkadaşlar. Benim 25-30 sayfalık günlük kullandığım içerisinde birçok veri barınan excell çalışma dosyam bulunuyor. Bunun bir sayfasından (sayfa adı 'izin') çıktı aldığımda çıktı üzerine otomatik (excellede de görünebilir) bir birini takip eden seri rakamlar yazması gerekiyor. Mesela ilk çıktı için 1000 ise 2. çıktı için 1001, 3. çıktı için se 1002.....

Böyle bir çalışma yapmamız mümkün mü? Bu ana bilgisayara bağlı birden çok yazıda bulunmaktakdır. Bu çalışmayı etkiler mi? Bu rakamların başına harf ekleme şansımız bulunuyor mu? Nedeni ise her ayı bir harf ile temsil etmek için.

Şimdiden bilgisini paylaşan arkadaşlarıma çok teşekkür ederim.

Kolay gelsin

 

[uzmanamele]

merhaba
üst veya alt bilgi olarak yazıp denermisiniz
Sayfa : &[Sayfa] / &[ToplamSayfa]

 

[teonet]

teşekkürler
hemen deniyorum.

 

[teonet]

Denedim fakat istediğim gibi değil. (paylaşımın için tekrar teşekkürler). Benim istediğim o sayfaya özgü seri numarası artan matbu numara şeklinde...

İyi günler

 

[Necdet]

Merhaba,

Aşağıdaki linki inceler misiniz?

http://www.excel.web.tr/showthread.php?t=50885

 

[uzmanamele]

merhaba
Aşağıdaki linkede bakınız

http://www.excel.web.tr/showthread.php?t=50864

 

[omerceri]

Sizin için hazırladığım örneği yanlışla Necdet Yeşertener'in verdiği linke yapıştırmışım.
Örnek ekte
Yanlış anlamadım ise her çıktı aldığınızda biribirini takip eden sayı vermek
başınada o ayın ilk harfini yazmasını istiyorsunuz.
1- İlk harfi yazarsa karışıklık olur diye düşündüm. A Aralık mı? Ağustos mu? gibi, o yüzden ilk üç harfini yazıyor.
2- Kullanmayacağınızı düşündüğüm izin sayfasında IV65536 hücresine her aldığınız çıktının numarasını kayıt ediyor.

WorkBook'un BeforePrint olayına aşağıdaki kodu yazdım.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "izin" Then
Sheets("Sayfa3").Range("IV65536").Value = Sheets("izin").Range("IV65536") + 1
ActiveSheet.PageSetup.CenterFooter = Format(Date, "mmm") & " " & Sheets("izin").Range("IV65536")
End If
End Sub

 

[teonet]

ÇOK TEŞEKKÜRLER
İyi çalışmalar
saolun