Sipariş Numarası Oluşturma

[Yasin Boyraz]

Merhaba web sitem için bir sipariş numarası oluşturucu yapıyorum fakat sipariş numarası oluştururken belli şartlar var.
örnek sipariş numarası F35A93589, A21V24862 tarzı olacak. yardım eden herkese şimdiden teşekkürler

 

[veyselemre]

Sorunuz yeterli açıklamaya sahip değil, belli şartlar neler, rastgele mi oluşturulacak belli değil.
Aşağıda ki kod 1 harf + 2 rakam + 1 harf + 5 rakam oluşturur,
Gerisi size kalmış.

Sub test()
    For i = 1 To 100
        Cells(i, 1) = fatNo
    Next i
End Sub
Function fatNo() As String
    fatNo = Chr(sayiUret(65, 90))
    fatNo = fatNo & Format(sayiUret(0, 99), "00")
    fatNo = fatNo & Chr(sayiUret(65, 90))
    fatNo = fatNo & Format(sayiUret(0, 99999), "00000")
End Function
Function sayiUret(bas As Long, son As Long) As Long
    Randomize Timer
10
    sayiUret = CLng((son - bas + 1) * Rnd + bas)
    If sayiUret < bas Or sayiUret > son Then GoTo 10
End Function

 

[Yasin Boyraz]

kusura bakmayın çok teşekkür ederim istemiş olduğum tamda bu