hücreye otomatik döküman no verme

[üveyin]

arkadaşlar excel taslağımdaki hücrede her çıktı alışımda farklı bir döküman nosu çıkmasını istiyorum yardımcı olurmusunuz.
dosyamı ekledim.

 

[YUSUF44]

Aşağıdaki kodları dosyanızın kod böllümünde ThisWorkbook/BuÇalışmaKitabı kısmına yapıştırın.

Yazdırma yaptığınızda C7 hücresini 1 arttırır:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "1" Then
    If IsNumeric([C7]) Then
        [C7] = [C7] + 1
    Else
        [C7] = 1
    End If
End If
End Sub

 

[uzmanamele]

Merhaba

Bu Kodu deneyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("1").Range("C7") = Sheets("1").Range("C7") + 1
End Sub

 

[üveyin]

tşk ederim sayı atıyor ama ben aynı zamanda istediğim numaradan başlatabilirmiyim. yada 5 rakamlı olacak şekilde 00001 den başlayarak.
birde aynı sutun 20 satırdada 7 ci satırdaki kodu atmalı.

 

[YUSUF44]

tşk ederim sayı atıyor ama ben aynı zamanda istediğim numaradan başlatabilirmiyim. yada 5 rakamlı olacak şekilde 00001 den başlayarak.
birde aynı sutun 20 satırdada 7 ci satırdaki kodu atmalı.

C7'ye başlangıç numarası girerseniz yazdırmadan önce o rakama göre artış yapar. Örneğin C7'ye 100 yazarsanız yazdırma sırasında 101 yapar.

00001 şeklinde görünmesi için hücrenin sayı biçimini isteğe uyarlanmıştan "00000" olarak ayarlamanız gerekir, hücrede 101 yazıyorsa 00101 olarak görünür.

C20'hücresine =C7 formülünü yazarsanız C7 değiştiğinde C20 de değişir, hücre biçimini de ayarlamanız gerekir tabi ki.

Bu arada "ama şöyle şöyle de olsun" dediğinizde sanki daha önce istenmiş ama yapılmamış gibi anlaşılıyor. Onun yerine "önceden belirtmeyi unuttum, şunları da ilave edebilir miyiz?" demeniz daha uygun olur.

 

[üveyin]

çok tşk ederim oldu. sizden bu dosya için birsey daha istesem her seferinde yazdır tuşuna basınca buradaki kod değişiyor ama yazarken kopya sayısını artırdığımda aynı rakamları yazıyor buna bir çözüm varmıdır.

 

[YUSUF44]

Doğru anladıysam yazdırmak için aşağıdaki makroyu kullanın. Makroyu çalıştırdığınızda toplam kaç etiket yazdırılacağını sorar, girdiğiniz sayı kadar numarayı birer arttırır ve yazdırır. Önceki kodları iptal etmeyi unutmayın:

Sub yazdir()
Set s1 = Sheets("1")
bas = s1.[C7]
10:
adet = InputBox("Toplam kaç etiket bastırılacak?", vbInformation)
If IsNumeric(adet) Then
    For i = bas + 1 To bas + adet
        s1.[C7] = i
        s1.PrintOut
    Next
Else
    MsgBox "Lütfen sayı giriniz!", vbCritical
    GoTo 10
End If
End Sub