Excell'de rasgele seri numarası üretme

[rauben]

Merhaba Arkadaşlar,

İşyerinde satışı yapılan ürünlerin takibini yapmak için her bir ürün için ilk başlangıcı harf geri kalan 8 hanesi rakam olmak üzere seri numarası üretmem gerekiyor. Excell'de bu işlemi nasıl yapabilirim. üretilen seri numaralarının excell'de liste olarak tutulmasıda gerekiyor ki sonradan takibini yapabileyim.

Şimdiden teşekkürler

 

[Murat OSMA]

Deneyiniz;

Sub Şifrele()
    Dim Rky As String, i As Integer, a As Integer
    Randomize
    For i = 1 To 10
        For a = 1 To 8
            Rky = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Rky & Int((9 * Rnd) + 1)
        Next a
        Cells(i, "A") = Mid(Rky, 8, 9)
        Rky = ""
    Next i
    Rky = "": i = Empty: a = Empty
End Sub

 

[rauben]

Çok teşekkür ederim. Peki seri numarasının, sadece S harfi ile başlaması ve geri kalan 8 rakam'ın değişken olmasını nasıl sağlayabiliriz.

 

[Murat OSMA]

İlgili satırı buy şekilde değiştirebilirsiniz;

Rky = Chr(83) & Rky & Int((9 * Rnd) + 1)

 

[rauben]

Elinize sağlık teşekkürler

 

[Murat OSMA]

S ya da başka bir harf girmek istediğinizde Chr(83) yerine "S" ya da "A" - "B" -"C" gibi harfler girerek seri numarası oluşturabilirsiniz...

İyi günler.

 

[Murat OSMA]

Alternatif olarak bu formülü de kullanabilirsiniz; ="S" & TAMSAYI(S_SAYI_ÜRET()*99999999+1)

 

[rauben]

Teşekkür ederim işimi fazlasıyla gördü

 

[rauben]

Arkadaşlar merhaba, bu konuda biraz daha gelişmiş bir şeye ihtiyacım var. seri numarası S13 ile başlayacak ve sonraki iki rakam maksimum 52'ye kadar olacak ve ondan sonraki 4 hanede rasgele olacak. bu işlemi nasıl yapabiliriz. Yani toplam 9 hane olacak ilk 5 hanede yukarıda belirttiğim kurallar olacak.

Yardımlarınız için teşekkürler