Numara Matik Ekeleme

[vefa82]

Merhaba değerli excel kullanıcıları. Sayfa başlığını bu şekil ekledim ama soruma uygun başlığı bulamadım bunun için kusura bakmayınız.

Soru: Bir çalışma kitabına faturalarda irsaliyelerde olan numaralar gibi numaralar eklemek istiyorum yani çalışma kitabında sadece bir sayfa veri var bundan 100 adet basacağım ama her biri ayrı numara olsun istiyorum nasıl yapacağım bana yardım ederseniz sevinirim.

 

[catalinastrap]

Eki inceleyiniz

Merhaba Eki İnceleyiniz,
macro kısa yolu ctrl+O

Sayaç yazan kısma 1 basılacak sayfa sayısına çıktı almak istediğiniz adedi yazın

 

[YUSUF44]

Sayın catalinastrap cevap vermiş ama mantığını anlamanız için en basit halinin kodunu veriyorum:

Sub numara()
For i = 1 To 5
[A1] = i
PrintOut
Next
End Sub

Bu kod 1'den 5'e kadar A1 hücresini birer arttırır ve her seferinde sayfayı yazdırır. Bu kodda isteğe göre envai çeşit değişiklik yapılabilir.

 

[vefa82]

Merhaba Eki İnceleyiniz,
macro kısa yolu ctrl+O

Sayaç yazan kısma 1 basılacak sayfa sayısına çıktı almak istediğiniz adedi yazın

Merhaba Kodu yazma imkanınız var mı ? İndiremedim

 

[catalinastrap]

kod ekte

Sub ozgur()

    For counter = Worksheets("Sayfa1").Cells(1, 1).Value To Worksheets("Sayfa1").Cells(1, 8).Value - 1
         
   
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Worksheets("Sayfa1").Cells(1, 1) = Worksheets("Sayfa1").Cells(1, 1).Value + 1
            
            
    Next counter

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
End Sub