Otomatik sayı üretme

[thecarow]

Hocalarım merhaba;
Ekte bulunan personel bilgi formumdaki textbox1 seçeneğinin otomatik olarak 6 rakamlı random sayı üretmesini istiyorum fakat bununla ilgili bir kod bulamadım.Excel konusunda daha yeni olduğum içinde sitede olan makroları dosyaya uyarlıyamadım.Bu konuda yardımcı olabilirmisiniz veya bu konuda yol gösterebilirmisiniz.
Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu formunuzun kod bölümüne uygulayıp denermisiniz.

Private Sub UserForm_Initialize()
    Dim SAYI As Variant
    
BAŞLA:
    Randomize
    SAYI = Int(Rnd() * (999999 - 100000) + 100000)
    If Len(SAYI) <> 6 Then
        GoTo BAŞLA
    Else
        TextBox1 = SAYI
    End If
End Sub

 

[thecarow]

Hocam mükemmelsiniz.Tam istediğim kod olmuş.Sonsuz teşekkürler.
Saygılarımla.

 

[onurcan1979]

Selamlar,

Aşağıdaki kodu formunuzun kod bölümüne uygulayıp denermisiniz.

Private Sub UserForm_Initialize()
    Dim SAYI As Variant
    
BAŞLA:
    Randomize
    SAYI = Int(Rnd() * (999999 - 100000) + 100000)
    If Len(SAYI) <> 6 Then
        GoTo BAŞLA
    Else
        TextBox1 = SAYI
    End If
End Sub

Merhaba hocam aynı işemin düzenli sayı verme olasılığımız varmı ve sayı düzenli gidecek ama ay ve yıl değişecek şekilde

örnek 0001-06.2011 gibi sayı ürete bilirmiyiz.

 

[onurcan1979]

bu konuda yardımcı olacak arkadaş yokmu!

 

[onurcan1979]

sanırım yardım edecek kimse yok bu konuda

 

[leumruk]

sanırım yardım edecek kimse yok bu konuda

Yardım edecek mutlaka bulunur; ama ne istediğiniz anlaşılmıyor. Düzenli sayı üretmekten kastınız nedir? Rarstgele tarih mi üretilecek? Hangi sütunda veya satırda, nasıl üretilecek? Bunlar cevapsız sorular...
Örnek bir dosya üzerinde isteğinizi açık bir şekilde anlatırsanız, bir şeyler yapılabilir.

 

[onurcan1979]

örnek 0001-06.2011 gibi sayı ürete bilirmiyiz.
İlk kısım düzenli sırayla gidecek yani 0001,0002,0003,..... gibi - den sonra güncel olacak ay ve yıl olarak

 

[onurcan1979]

Selamlar,

Aşağıdaki kodu formunuzun kod bölümüne uygulayıp denermisiniz.

Private Sub UserForm_Initialize()
    Dim SAYI As Variant
    
BAŞLA:
    Randomize
    SAYI = Int(Rnd() * (999999 - 100000) + 100000)
    If Len(SAYI) <> 6 Then
        GoTo BAŞLA
    Else
        TextBox1 = SAYI
    End If
End Sub

Koray hocam yaptığı gibi ama koray hocam düzensiz sayı üretmiş ve ay ve yıl yok ben hem düzenli hemde güncel ay ve yılın olmasını istiyorum

 

[leumruk]

İsteğinizi örnek dosya ile açıklayınız...

 

[onurcan1979]

istediğim şekil ektedir dosya içerisinde ve resimde belirtilmiştir. şimdiden yardımınız için teşekkürler

 

[leumruk]

Merhaba,
Örnek dosyayı inceleyiniz.

 

[onurcan1979]

Merhaba,
Örnek dosyayı inceleyiniz.

Ellerinize emeğinize sağlık tam istediğim gibi olmuş