Numaratör

[zorro14]

Sayın evren gizlen hocam yapmış olduğunuz bu numaratör programını biraz değiştirebilirmiyiz. Bana böyle bir program lazım.Forumu arattım işime yarayabilecek şekilde bu hazırlamış olduğununz örneği buldum.

Yapacağımız değişiklik şöyle olacak Numarayı tamam butonuna bastığımızda her bir arttırdığında her sayıyı bir alt satıra yazacak. bilmem anlatabildim mi sizin yapmış olduğunuz örnek içinide nasıl olması gerektiğini anlatmaya çalıştım. Yardımlarınız için şimdiden teşekkür ederim.

 

[mustafaine1]

selamlar,

Private Sub CommandButton1_Click()
For k = 1 To UBound(dizi)
    Cells(k, 1).Select
    Cells(k, 1).Value = dizi(k) * 1
Next
If Range("B1").Value = 999999 And sayi_verildi = 0 Then
    Cells(Cells(65536, "A").End(xlUp).Row + 1, 1) = 1
End If
a = [b65536].End(xlUp).Row + 1
Cells(a, "B").Value = sayi * 1
Range("B1").NumberFormat = "000000"
Range("D1").Value = TextBox1.Value
Call sira_no
End Sub

Sub sira_no()
Dim sonsat As Single, no As Single, i As Single, k As Single
Dim y As Integer, harfler As String, s As Single
harf = Array(harf, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "Y", "Z")
sonsat = Cells(65536, "A").End(xlUp).Row
sayi_verildi = 0
ReDim dizi(1 To sonsat)
For i = 1 To sonsat
    dizi(i) = Cells(i, 1).Value
Next i
Range("A1").Select
If Range("B1").Value < 999999 Then
    sayi = [b65536].End(3).Value + 1
    GoTo Numaragoster
End If
If Range("B1").Value = 999999 Then
    sayi = 1
    For k = 1 To UBound(dizi)
        If dizi(k) < 23 Then
            dizi(k) = dizi(k) + 1
            sayi_verildi = 1
            Exit For
        End If
    Next k
    If sayi_verildi = 1 And UBound(dizi) - 1 > 1 Then
        For v = 1 To k - 1
            If dizi(v) = 23 Then
                dizi(v) = 1
            End If
        Next v
    End If
    If sayi_verildi = 0 Then
        For s = 1 To UBound(dizi)
            dizi(s) = 1
        Next
    End If
End If
Numaragoster:
For y = 1 To UBound(dizi)
    harfler = harf(dizi(y)) & harfler
Next y
If Range("B1").Value = 999999 And sayi_verildi = 0 Then
    harfler = "A" & harfler
End If
TextBox1.Value = harfler & Format(sayi, "000000")
End Sub

bu iki bolumdeki kodlari degistirip denermisiniz lutfen..

 

[zorro14]

teşekkürler ellerinize ve bilginize sağlık

 

[mustafaine1]

Rica ederim kucuk bir edit sadece tesekkurleriniz evren beye gitsin tekrar..

 

[ugomor]

Üstadlarım kolay gelsin,
Bir fatura formatında template im var. Bu template e numaratör (fatura numarası gibi) eklemek istiyorum. Nasıl yapabilirim?

Saygılarımla

 

[ugomor]

Bu arada bir başka arkadaşımız aşağıdaki kodu göndermiş, bu kod çalışıyor ve tekrar tekrar numaratör artıyor ama template dosyasında bir değişiklik yaptığımda vb kod çalışmıyor. kodun devamlılığını nasıl sağlarım?

kod:
Private Sub Workbook_Open()
If Cells(1, 2) = "" Then
sakla = ActiveWorkbook.Name
Workbooks.Open "c:\numarator.xls"
Workbooks(sakla).Activate
Workbooks("numarator.xls").Sheets(1).Cells(1, 3) = Workbooks("numarator.xls").Sheets(1).Cells(1, 3) + 1
Cells(1, 2) = Workbooks("numarator.xls").Sheets(1).Cells(1, 2) & "-" & Workbooks("numarator.xls").Sheets(1).Cells(1, 3)
Workbooks("numarator.xls").Save
Workbooks("numarator.xls").Close
End If
End Sub