ıd oluşturmak.

[excel_ance]

TC2755DAXXTVICN9X9AEEXTZZ87EE95791E7 merhaba arkadaşlar başta vermiş olduğum harf ve rakamlardan oluşan 36 hanelik bir Id oluşturmak istiyorum hafr olarak ABCDEFGHIJKLMNOPQRSTUVXWYZ rakam olarak da 0 ile 9 arası rakamları kullanılarak B sütununa kayıt yaptırmak istiyorum. Makro ile ıd üretmemiz mümkün mü?
https://yadi.sk/i/fGV49oTfzxw9m

 

[Asri]

Aşağıdaki KTF yi dosyanızın vba bölümüne yada personel makro dosyasına kopyalayın.

36 oluşacak uzunluk ve karakter dizisi değişken olabilir.

Kullanımı : =RSH(36,"ABCDEFGHIJKLMNOPQRSTUVXWYZ0123456789")

Function RSH(say As Integer, dizi As String)
 Dim i As Integer
 For i = 1 To say
    Randomize
    sira = Int((Len(dizi) * Rnd) + 1)
    RSH = RSH & Mid(dizi, sira, 1)
 Next i
End Function

 

[excel_ance]

ıd oluşturma

Aşağıdaki KTF yi dosyanızın vba bölümüne yada personel makro dosyasına kopyalayın.

36 oluşacak uzunluk ve karakter dizisi değişken olabilir.

Kullanımı : =RSH(36,"ABCDEFGHIJKLMNOPQRSTUVXWYZ0123456789")

Function RSH(say As Integer, dizi As String)
 Dim i As Integer
 For i = 1 To say
    Randomize
    sira = Int((Len(dizi) * Rnd) + 1)
    RSH = RSH & Mid(dizi, sira, 1)
 Next i
End Function

hocam teşekkür ederim. gayet güzel çalışıyor ellerinize sağlık.