Her yazdırma sonrası hücre değerini otomatik olarak nasıl artırabilirsiniz?
Birçok işletme ve idari iş akışında, kolay kayıt tutma ve takip için benzersiz bir seri numarası veya tanımlayıcı ile etiketlenmiş belge, fatura veya çeklerin birden fazla kopyasını yazdırmak gerekebilir. Örneğin, Excel çalışma sayfasının bir çek veya voucher şablonu olarak biçimlendirildiğini ve A1 hücresinin "Şirket-001" gibi bir çek numarası içerdiğini hayal edin. Bu sayfadan 100 kopya yazdırdığınızda, her bir yazdırma için numarayı manuel olarak güncellemek hem sıkıcı hem de hata yapmaya açık olacaktır. İdeal olarak, ilk yazdırmada "Şirket-001", ikinci yazdırmada "Şirket-002" ve böylece "Şirket-100"e kadar devam edecek şekilde Excel'in A1 hücresindeki değeri her yazdırma işlemi için otomatik olarak artmasını istersiniz.
Varsayılan olarak, Excel her yazdırma işinden sonra bir hücre değerini otomatik olarak artırmak için yerleşik bir özellik sağlamaz. Ancak bu otomasyonu VBA makrosu yardımıyla gerçekleştirebilirsiniz. Özellikle seri formlar, biletler, çekler veya yazdırılan sayfalara benzersiz tanımlayıcılar gerektiren herhangi bir senaryoda çalışırken, ardışık numaralandırılmış basılı kopyalar üretmek için VBA kullanmak pratik bir çözümdür. Bu yaklaşım manuel hataları önlemeye yardımcı olur, zamandan tasarruf sağlar ve her kopyanın gerekli olan benzersiz bir numara almasını garanti eder.
Aşağıda, her yazdırılan kopya için hücre değerlerini otomatik olarak artırmak amacıyla bir VBA yöntemi sunuyoruz. Ayrıca, bu makale Excel iş akışınızda toplu yazdırma görevlerini optimize etmek için etkili kullanım, potansiyel uyarılar ve pratik ipuçları konusunda rehberlik sunmaktadır.
VBA kodu ile her yazdırma sonrası hücre değerini otomatik artırma
VBA kodu ile her yazdırma sonrası hücre değerini otomatik artırma
Excel'de her yazdırma için bir hücre değerini otomatik olarak artırmak için doğrudan, yerel bir seçenek bulunmamaktadır. Bu süreci otomatikleştirmek için, A1 hücresinde artırılmış bir tanımlayıcı içeren belirli sayıda kopyayı verimli bir şekilde yazdırmak üzere bir VBA makrosu kullanabilirsiniz. Bu yöntem, özellikle sıralı numaralandırma gerektiren kişiselleştirilmiş basılı kopyalar (çekler, etiketler, formlar vb.) oluşturmak için uygundur. Lütfen, makroların kullanılması Excel ortamınızda makroların etkinleştirilmesini gerektirebilir ve VBA kodunun çalıştırılması dosya güvenlik ayarlarını etkileyebilir. Herhangi bir kodu çalıştırmadan önce çalışmalarınızı mutlaka kaydedin.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına birlikte basın. Eğer ilk kez VBA kullanıyorsanız, Excel şeridinde Geliştirici sekmesini etkinleştirmeniz gerekebilir.
2. VBA düzenleyicisinde, Ekle > Modül'e tıklayarak yeni bir modül penceresi açın. Yeni modülde, aşağıda sağlanan VBA kodunu kopyalayıp yapıştırın. Bu betik, aktif çalışma sayfasından yazdırdığınız her kopya için baskı numarasını artırmanıza yardımcı olacaktır.
VBA kodu: Her yazdırma sonrası hücre değerini otomatik artırma:
Sub IncrementPrint()
'updateby Extendoffice
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
Next
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
Bu kod, yazdırmak istediğiniz toplam kopya sayısını sorar, her baskı döngüsü için A1 hücresini günceller ve her sürümü otomatik olarak yazdırır.
3. Kodu yapıştırdıktan sonra, çalışma sayfanızın hazır olduğundan ve aktif hücrenin (genellikle A1) doğru başlangıç metnini içerdiğinden (örneğin, "Şirket-001") emin olun. Makroyu başlatmak için F5 tuşuna basın veya VBA düzenleyicisinde Çalıştır'a tıklayın. Yazdırmak istediğiniz kopya sayısını soran bir iletişim kutusu belirecek; istenen sayıyı girin (örneğin, 100) ve girişinizi onaylayın. Referans için lütfen aşağıdaki ekran görüntüsüne bakın:
Sayısal olmayan bir değer girerseniz veya İptal'e tıklarsanız, işlem hiçbir eylem olmadan duracaktır. Yalnızca sayı girdiğinizden emin olun ve devam etmeden önce A1 hücresindeki başlangıç değerini iki kez kontrol edin.
4. Tamam düğmesine tıklayın. Makro artık çalışma sayfasını belirtilen sayıda otomatik olarak yazdıracak ve her seferinde A1 hücresindeki sırayı ayarlayacak, böylece her yazdırılan sayfa sırayla numaralandırılacaktır (örneğin, Şirket-001, Şirket-002, Şirket-003,..., girdiğiniz değer ve makrodaki biçimlendirmeye bağlı olarak Şirket-100'e kadar).
Ek notlar ve ipuçları: Kodda, seri numarası için A1 hücresi kullanılmaktadır. A1'de bulunan mevcut içerik, ilk yeni sıra numarası tarafından üzerine yazılacaktır, bu nedenle korumak istediğiniz bilgiler varsa, kodu çalıştırmadan önce bu hücreyi yedekleyin. Varsayılan sayı öneki ("Şirket-00") tercih ettiğiniz seri formatına uygun şekilde VBA kodunda değiştirilebilir; hem metni hem de sayı dolgusunu istediğiniz gibi ayarlayın. Paylaşılan veya korumalı çalışma kitaplarında makro kullanırken dikkatli olun, çünkü makro çalıştırması uygun izinleri gerektirir. Yazıcı yavaşsa, yazdırma kuyruğunu aşırı yüklememek için çok yüksek sayıda kopya ile betiği çalıştırmaktan kaçının.
Yazdırma işi başlamazsa, numaralar doğru şekilde artmazsa veya hücre referanslarıyla ilgili hatalarla karşılaşırsanız, makroların etkin olduğundan ve çalışma sayfanızın korumalı olmadığından emin olun. Kodu çalıştırmadan önce referans hücresini (bu örnekte A1) doğru şekilde ayarladığınızdan emin olun ve istenmeyen veri kaybını önlemek için toplu işlemlerden önce çalışma kitabınızı kaydedin. Daha fazla özelleştirme gerekiyorsa (farklı bir hücre, sayı biçimi veya çalışma sayfası kullanmak gibi), VBA kodundaki hücre referanslarını ve biçimlendirme satırlarını uygun şekilde ayarlayın.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin