Selam ve saygılarımı ileterek herkese iyi geceler diliyorum.
Örnekteki çalışmada kaydettiğimde farklı kayıt ve seri numarasının verilmesini istiyorum.
Şimdiden teşekkür eder saygılarımı sunarim.

Ne yapmak istediğinizi tam anlatırmısınız örneğinizde kayıt numarası birde etiket numarası var siz hangisine farklı kayıt seri numarası istiyorsunuz yani kayıt yaparken farklı kayıt numarasımı olsun istiyorsunuz.

İlginizden dolayı teşekkür ederim.
1- kayıt numarası 6 raklamdan oluşur ve başına üç harf gelecek.(herhangi bir harf olabilir) Öeneğin: AAA 000001 - AAA 000002 gibi.

2- Seri veya etiket numarası her veri kaydettiğimde Data3/C2 de gösterdiğim gibi sıra ile birer numara kullanacak. Bu seri bittiğinde ikinci seri numarayı D2 den kullanacak.
Saygılarımla...

Tamam şimdi oldu en kısa zamanda döneceğim şimdilik iyi geceler.

Size de iyi geceler ve iyi sahurlar.

Function Duzenle(ByVal Sayi As Double, ByVal Uzunluk As Long) As String

Parca = Mid(Str(Sayi), 2)

For T = 1 To Uzunluk

    If Len(Parca) <> Uzunluk Then

            Parca = "0" + Parca

    End If

Next T

Duzenle = Parca

End Function

bu kodu denermisiniz .