Sıra no verme hakkında.

[Achille]

Sayın arkadaşlar benim sorunum şöyleki;
Bir excel dosyamız var. Excel formumuzun içinde sağ üst köşeye hergün için otomatik numara vermek istiyoruz. Yani günlük bir liste oluşturduk. Akşam bu listenin çıktısını almak istiyoruz. Dosyanın çıktısını alırken örneğin 1502 diye numaramız olacak ve çıktıda sağ üst köşede yazacak. Ertesi gün çıktı alacağımız zaman 1503, ertesi gün 1504 olacak. Böyle bir şey yapmamız mümkünmü? İlgilenecek arkadaşlara şimdiden teşekkür eder saygılar sunarım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu bir butona bağlayıp kullanabilirsiniz. Ben hücreyi "K1" hücresine göre ayarladım. Başlangıç numarası olarak "1500" belirledim. Siz bu değerleri kendinize göre düzenleyiniz.

Option Explicit
 
Sub YAZDIR()
    If Range("K1") = "" Then
        Range("K1") = 1500
        ActiveSheet.PrintOut
    Else
        Range("K1") = Range("K1") + 1
        ActiveSheet.PrintOut
    End If
 
    MsgBox "Yazdırma işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Achille]

Hocam ilginize çok teşekkür ederim. Cahilliğimin kusuruna bakmayın ama ben anlattığınız işlemi yapmayı beceremedim. O yüzden dosyayı ekledim. Yardımcı olmanız umuduyla teşekkür ederim.

 

[apostraf]

gizlediğinzi sayfalar yüzünden boyut büyüktü onları sildim