benzersiz kod üretme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

benzersiz kod üretme

İleti#1)  millerblack » 02 Arl 2019 13:25

excelde başında istediğimiz sayıda harf olan devamında 6 basamaklı sayı olan benzersiz kod nasıl üretebilirim
selamlar
Kullanıcı avatarı
millerblack
Yeni Başlamış
 
Adı Soyadı:miller black
Kayıt: 28 Mar 2013 08:30
İleti: 32
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: abd

Cevap: benzersiz kod üretme

İleti#2)  Ali ÖZ » 02 Arl 2019 14:00

Bu şekilde işinizi görür mü ?

Kod: Tümünü seç
Private Sub CommandButton1_Click()
    Set obje = CreateObject("Scriptlet.TypeLib")
    inkod = Left(obje.GUID, Len(obje.GUID) - 2)
    If Not IncludeHyphens Then
        inkod = Replace(inkod, "-", vbNullString, Compare:=vbTextCompare)
    End If
    If Not IncludeBraces Then
        inkod = Replace(inkod, "{", vbNullString, Compare:=vbTextCompare)
        inkod = Replace(inkod, "}", vbNullString, Compare:=vbTextCompare)
    End If
    Range("a1") = inkod
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9956
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: benzersiz kod üretme

İleti#3)  erseldemirel2 » 02 Arl 2019 14:28

Bende ilave kod ekledim. bende vardı. 6 haneli kod bu. sayı ve büyük latin harfi karışık. ve 0 ile başlamaz thy nin biletlerdeki kullandığı kodlara yakın.

Kod: Tümünü seç
Sub Random()
'rakamMi = CBool(WorksheetFunction.RandBetween(0, 3))
'3=0,25 LETTER - 0,75 NUMERIC
'1=0,75 LETTER - 0,25 NUMERIC
'0=1,00 LETTER - 0,00 NUMERIC
    For ii = 1 To 100
10      kod = ""
        For i = 1 To 6
20          rakamMi = CBool(WorksheetFunction.RandBetween(0, 1))
            If rakamMi Then
                ekle = WorksheetFunction.RandBetween(0, 9)
            Else
                ekle = Chr(WorksheetFunction.RandBetween(65, 90))
            End If
            If InStr(kod, ekle) > 0 Then GoTo 20
            kod = kod & ekle
        Next i
        If kod Like ("0*") Or IsNumeric(kod) Then GoTo 10
        msgbox kod
    Next ii
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 570
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: benzersiz kod üretme

İleti#4)  millerblack » 02 Arl 2019 15:28

6 haneli sadece sayı olanı nasıl yapılır
ve en önemlisi bunların benzeri olmayan(yani aynı kodu birdaha üretmemesi gerekir)kod üretiyor mu?
Kullanıcı avatarı
millerblack
Yeni Başlamış
 
Adı Soyadı:miller black
Kayıt: 28 Mar 2013 08:30
İleti: 32
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: abd

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: benzersiz kod üretme

İleti#5)  Erkan Akayay » 03 Arl 2019 16:32

Neye göre benzersiz olacak. Benzersiz kaç kod istiyorsunuz? Tek kod istiyorsanız ney göre benzersiz.

Parametreler eksikken kod yazmayın arkadaşlar :)
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 49
İleti: 4059
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe