Rasgele Sayı Üretimi ( Tarihi Tersten Yazarak)

[Kübra Sarıkaya]

Merhaba,

Forumu inceledim fakat bulamadım S_SAYI_URET diye bişey buldum fakat o da 0 ile 1 arasında sayı üretiyomuş.

Benim istediğim günün tarihini tersten yazıp mümkünse tire çekip 2 haneli sayı ilevesi yapması (otomatik proforma numarası vermede kullanıcam)

Mesela bugün 08.12.2012 ya :

20121208-04..... gibi

bir butonada bağlanabilir. fakat benim derdim bunu fonksiyonla yapmak mümkün mğ değilse nasıl bir makro yazmak lazım.

 

[Merhum İdris SERDAR]

.

=TEXT(TODAY();"yyyyaagg")&"-"&INT(RAND()*100)

=METNEÇEVİR(BUGÜN();"yyyyaagg")&"-"&TAMSAYI(S_SAYI_ÜRET()*100)

F9'a basarak deneyin.

.

 

[Necdet]

Merhaba,

Hangi hücre ya da hücreler grubuna uygulanacağını söylememişsiniz. Örnek olması açısından Tüm A sütununda herhangi bir hücrede çift taklıdığınızda istediğiniz yapan kodlar aşağıda.

Kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Randomize
    Target.Value = Format(Date, "yyyymmdd") & "-" & Int((99 * Rnd) + 1)
    
End Sub

 

[dEdE]

Merhaba,
Ben de birşeyler karalamıştım. Alternatif olsun.
2 haneli sayı ve bir butona bağlanması isteğinizi dikkate alarak hazırladığım kod aşağıdadır.

Sub Tarih_sayi()
    Randomize
    sayi = Int(Rnd * 99)
    If Len(sayi) < 2 Then sayi = "0" & sayi
    [A1] = Format(Date, "yyyymmdd") & "-" & sayi
End Sub

 

[Orion1]

sanırım 0-99 aralığında bir sayı istiyor.

 

[Kübra Sarıkaya]

çok teşekkürler gerçekten... hepsi çok güzel... elinize sağlık..