Sıralı sayfa numaralarıyla birden fazla kopya nasıl yazdırılır?
Aynı çalışma sayfasının birden fazla kopyasını yazdırmak, ancak her birini benzersiz ve ardışık bir sayfa numarasıyla etiketlemek istemeniz hiç oldu mu? Örneğin, bir formdan 10 kopyaya ihtiyacınız olabilir; ilk çıktının A1 hücresinde “001”, ikincisinde “002” ve son kopyada “010” görüntülenebilir. Bu yöntem, numaralandırılmış faturalar, biletler, sipariş formları veya organizasyon ve denetim amacıyla bireysel kopyaların izlenmesi gereken tüm toplu üretim senaryolarında büyük kolaylık sağlar.
Ne yazık ki Excel, belirtilen bir hücreye artan numaralar ekleyerek birden fazla kopyayı otomatik olarak yazdırmaya olanak tanıyan yerleşik bir özelliğe sahip değildir. Özellikle çok sayıda kopya söz konusuysa, her çıktıyı elle düzenlemek pratik değildir. Ancak basit bir VBA makrosuyla bu süreci kolayca otomatikleştirebilir, zaman kazanabilir, manuel hataları en aza indirebilir ve her kopyanın gerektiği gibi benzersiz şekilde numaralandırılmasını sağlayabilirsiniz.
VBA koduyla farklı numaralarla Yazdırılacak Kopyalar
Excel Formüllerini ve Manuel Yazdırmayı Kullanma
VBA koduyla farklı numaralarla Yazdırılacak Kopyalar
VBA koduyla farklı numaralarla Yazdırılacak KopyalarBu yöntem, çalışma sayfasının birden fazla kopyasını yazdırırken, her çıktıda belirlenen bir hücreye sıralı numaraları otomatik olarak yerleştiren bir VBA makrosu kullanır.
Makroyu hızlıca oluşturmak ve çalıştırmak için aşağıdaki adımları izleyin:
1. İlk olarak yazdırmak istediğiniz çalışma sayfasını etkinleştirin. Ardından Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications (VBA) düzenleyici penceresini açın.
2. VBA Düzenleyici’de yeni bir modül eklemek için Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki kodu modül penceresine kopyalayıp yapıştırın. (Görsel rehberlik için ekran görüntüsüne bakın.)
VBA: Sıralı sayfa numaralarıyla Yazdırılacak Kopyalar
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Total printed copies: " & (i - 1), vbInformation, "Kutools for Excel"
End Sub
Parametre notları ve ipuçları:
- Kodda, A1 başvurusu, Dizi Numarası'nın görüneceği hücreyi belirtir. Başka bir hücreyi (örneğin B2) tercih ediyorsanız, başvuruyu buna göre güncelleyin.
- 1 To10, yazdırılacak kopya sayısını belirtir (bu örnekte 10). Gerektiğinde 10 değerini başka bir pozitif tam sayıyla değiştirebilirsiniz.
- "'00" & IDizi Numarası'nı baştaki sıfırlarla üç haneli olarak görüntülemek için biçimlendirir (örneğin, 001, 002, 003). Farklı bir biçim tercih ediyorsanız (örneğin 100’den başlatmak veya baştaki sıfırları kullanmamak), dizeyi buna göre özelleştirin.
- Makroyu çalıştırmadan önce, çalışma sayfanızın hazır olduğundan ve hedef hücrenin üzerine yazılabilen veri içermediğinden emin olun. Makro işlemleri geri alınamadığı için, devam etmeden önce çalışma kitabınızı kaydetmenizi öneririz.
3. Hâlâ etkin çalışma sayfanızla birlikte, kodu çalıştırmak için VBA Düzenleyici’de F5 tuşuna basın veya Çalıştır düğmesine tıklayın. Örneğin, "10 kopya ardışık numaralarla yazdırılacaktır." şeklinde bir iletişim kutusu görüntülenecektir. Devam etmek için Tamam düğmesine tıklayın; makro her numarayı sırayla döngüye alacak, sıralamayı belirlediğiniz hücreye yerleştirecek ve sayfayı yazdıracaktır. Her çıktı, ayarlarınıza göre benzersiz şekilde numaralandırılacaktır.
Excel Formüllerini ve Manuel Yazdırmayı Kullanma
Yalnızca sınırlı sayıda kopyaya ihtiyacınız varsa veya makrolardan kaçınmayı tercih ediyorsanız, Excel’in doldurma tutamacını kullanarak sıralı numaralar oluşturabilir ve ardından her satırı manuel olarak yazdırabilirsiniz. Bu yöntem, özellikle etiketler, rozetler veya formlar için yönetilebilir bir parti boyutunda benzersiz numaralandırmaya ihtiyaç duyduğunuzda idealdir.
1. Yeni bir sütuna (örneğin, A sütununa) başlangıç Dizi Numarası’nı ilk hücreye (örneğin A1 hücresine) girin. Bunu, A1 hücresine aşağıdaki formülü girerek yapabilirsiniz:
=TEXT(ROW(A1),"000")2. İstediğiniz kadar kopya oluşturmak için formülü aşağı doğru çoğaltın: doldurma tutamacını sürükleyin (örneğin, 10 kopya için 10. satıra kadar). Her hücre, baştaki sıfırları da koruyarak bir sonraki sıralı numarayı gösterecektir.
3. Gerekli her kopya için tüm satırı veya veri kümesini yeni bir sayfaya kopyalayın ve bireysel olarak sayfaları yazdırmak için Excel’in Yazdır işlevini kullanın. Bu manuel yöntem, daha küçük partilerde en iyi şekilde çalışır ve yazdırmadan önce görsel onay imkânı sunar.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar