Her yazdırmadan sonra hücre değerini otomatik olarak artırmak nasıl sağlanır?
Birçok iş ve idari iş akışında, kayıtları kolayca tutmak ve takip etmek amacıyla her biri benzersiz bir seri numarası veya tanımlayıcıyla etiketlenmiş birden fazla belge, fatura veya çek kopyası basılması gerekebilir. Örneğin, Excel çalışma sayfanızın bir çek ya da makbuz şablonu olarak düzenlendiğini ve A1 hücresinde “Şirket-001” gibi bir çek numarası bulunduğunu düşünün. Bu sayfadan 100 kopya bastığınızda, her çıktının numarasını manuel olarak güncellemek hem yorucu hem de hata yapmaya açık hale gelir. İdeal senaryoda, Excel’in her yazdırma işlemi sonrasında A1 hücresindeki değeri otomatik olarak artırmasını istersiniz—böylece ilk çıktı “Şirket-001”, ikincisi “Şirket-002” olur ve bu şekilde “Şirket-100”’e kadar sıralı olarak devam eder.
Varsayılan olarak Excel’in, her yazdırma işleminden sonra bir hücre değerini otomatik olarak artıran yerleşik bir özelliği bulunmaz. Ancak bu otomasyonu bir VBA makrosuyla kolayca gerçekleştirebilirsiniz. Özellikle seri formlar, biletler, çekler veya yazdırılan her sayfa için benzersiz tanımlayıcılar gereken durumlarda VBA kullanımı, ardışık numaralı çıktıları verimli şekilde üretmenin pratik bir yoludur. Bu yöntem, manuel hataları ortadan kaldırır, zaman kazandırır ve her kopyanın kesinlikle 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 üzere bir VBA yöntemi sunuyoruz. Bu makale ayrıca Excel iş akışınızda Toplu Yazdırma görevlerini etkili şekilde kullanmanıza yardımcı olacak rehberlik, dikkat edilmesi gereken noktalar ve pratik ipuçları içeriyor.
VBA kodu ile her yazdırmadan sonra hücre değerini otomatik artırma
VBA kodu ile her yazdırmadan sonra hücre değerini otomatik artırma
Excel’de her yazdırma işleminden sonra bir hücre değerini otomatik olarak artırmak için doğrudan, yerleşik bir seçenek bulunmamaktadır. Ancak bu süreci otomatikleştirmek amacıyla, A1 hücresinde artan bir tanımlayıcı içeren belirli sayıda kopyayı verimli şekilde bastırmak üzere bir VBA makrosu kullanabilirsiniz. Bu yöntem, özellikle çekler, etiketler veya formlar gibi ardışık numaralı kişiselleştirilmiş kağıt çıktıları oluşturmak için idealdir. Unutmayın: Makroların kullanılması, Excel ortamınızda makroların etkinleştirilmesini gerektirebilir ve VBA kodu dosyanızın güvenlik ayarlarını etkileyebilir. Herhangi bir kodu çalıştırmadan önce mutlaka çalışmalarınızı yedekleyin.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına birlikte basın. VBA’yı ilk kez kullanıyorsanız, Excel Şeridi’nde Geliştirici sekmesini etkinleştirmeniz gerekebilir. Developer tab in your Excel Şeridi.
2. VBA Düzenleyici’de yeni bir modül penceresi açmak için Ekle > Modül seçeneğine tıklayın. Aşağıda verilen VBA kodunu yeni modüle kopyalayıp yapıştırın. Bu betik, aktif çalışma sayfasından bastığınız her kopya için yazdırma numarasını otomatik olarak artıracaktır.
VBA kodu: Her yazdırmadan sonra 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, bastırmak istediğiniz toplam kopya sayısını sorar, her yazdırma döngüsünde 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 temel metni (örneğin "Company-001") içerdiğinden emin olun. Makroyu başlatmak için VBA Düzenleyici’de F5 tuşuna basın veya Çalıştır seçeneğine tıklayın. Kaç kopya bastırmak istediğinizi soran bir iletişim kutusu açılacaktır; istenen sayıyı girin (örneğin, 100) ve girişi onaylayın. Referans için aşağıdaki arayüz 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 şey yapmadan durur. Devam etmeden önce yalnızca sayı girdiğinizden ve A1 hücresindeki başlangıç değerini kontrol ettiğinizden emin olun.
4. Tamam düğmesine tıklayın. Makro artık çalışma sayfasını belirttiğiniz sayıda otomatik olarak bastıracak ve her seferinde A1 hücresindeki sırayı ayarlayarak her yazdırılan sayfanın sırayla numaralandırılmasını sağlayacaktır (örneğin, Şirket-001, Şirket-002, Şirket-003, …; girdiğiniz sayıya ve makrodaki biçime bağlı olarak Şirket-100’e kadar).
Ek notlar ve ipuçları: Kodda, seri numarası için A1hücresi kullanılmaktadır. A1’deki mevcut içerik, ilk yeni Dizi Numarası ile üzerine yazılacaktır; bu nedenle saklamak istediğiniz bilgiler varsa kodu çalıştırmadan önce bu hücreyi yedeklediğinizden emin olun. Varsayılan sayısal önek (")Şirket-00") tercih ettiğiniz seri biçimine uyacak şekilde VBA kodunda ayarlanabilir; hem metni hem de sayısal dolguyu istediğiniz gibi özelleştirebilirsiniz. Paylaşılan veya korumalı çalışma kitaplarında makro kullanırken dikkatli olun; çünkü makro yürütülmesi uygun izinleri gerektirir. Yazıcınız yavaşsa, yazdırma kuyruğunu aşırı yüklememek için çok büyük sayıda kopya ile betiği çalıştırmaktan kaçının.
Yazdırma işleminin başlamaması, sayıların doğru artmaması veya hücre referanslarıyla ilgili hata gibi sorunlarla karşılaşırsanız, makroların etkinleştirildiğinden ve çalışma sayfanızın korumalı olmadığından emin olun. Çalıştırmadan önce referans hücresini (bu örnekte A1) doğru şekilde ayarladığınızdan emin olun ve toplu işlemlerden önce çalışma kitabınızı kaydederek istenmeyen veri kaybını önleyin. Farklı bir hücre, sayı formatı veya çalışma sayfası gibi daha fazla özelleştirme gerekiyorsa, VBA kodundaki hücre referanslarını ve biçimlendirme satırlarını uygun şekilde ayarlayın.
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