Userform'daki TextBox'a Benzersiz Ürün Kodu Oluşturması

[sekhil]

Merhabalar,
Userform'daki TextBox'a Benzersiz Ürün Kodu Oluşturmasını istiyorum aşağıdaki kod ile deniyorum fakat bazen hücredeki aynı kodları üretebiliyor.

Private Sub UserForm_Initialize()
txtUrunKodu = Int(Rnd * 10000000000000#)
End Sub

Tam olarak istediğim Örneğin bu ürün kodlarını Excel'de "D" sütunumda listeletiyorum. Burada olmayan ürün kodundan bulup textboxa yazmasını istiyorum.

Fakat 20bine yakın ürün olduğundan bir döngüye sokulması yanlış olur diye forumlarda okudum. Bunu başka en kısa yoldan nasıl yapabilirim?

 

[Korhan Ayhan]

Bence artan sırada ürün kodu kullanın.. Böylece en sonra kaçta kaldıysanız üzerine 1 ekleyerek devam edersiniz.

 

[sekhil]

bu kodu bulup kullanmıştım UserForm_Initialize() dizinine yazdım hersey normal ilerliyor örneğin: EAL000001 , 2 , 3 ilerliyor ama ben aradan EAL000002 yi sildiğim zaman sıralamayı sapıtıyor

On Error Resume Next
Last_Row = Sheets("StokGirisleri").Cells(Rows.Count, "a").End(xlUp).Row
sayi = Split(Sheets("StokGirisleri").Range("D2"), "A")(1)
txtUrunKodu = "EAL" & Format(sayi + 1, "#000000")

 

[Korhan Ayhan]

O zaman bir yerde sildiğiniz ürün numaralarını arşivleyin. İlk yeni üründe bu bölümdeki numaraları kullanırsınız.