Sayısal loto-6/49

[Orion1]

Merhaba.
6/49 sayısal loto.
Bol şanslar.
Dosya ektedir.:cool:

Kod: [Seç]

Sub sayisal_loto_59()
'coder evrengizlen@hotmail.com
Dim col As Collection, s As Integer, i As Integer
Randomize Timer
Set col = New Collection
For i = 1 To 49
    col.Add i
Next
For i = 1 To 6
    s = Int(Rnd() * col.Count) + 1
    Cells(i, "A").Value = col(s)
    col.Remove (s)
Next
Range("A1:A6").Sort Range("A1")
End Sub


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Elinize sağlık Evren Bey. 

[Orion1]

Teşekkür ederim.Bülent bey. 

[Puletin]

Evrenbey Tutturma garantisi veriyormusunuz. 

Paylaşım için teşekkürler

[Orion1]

Evrenbey Tutturma garantisi veriyormusunuz. 

Paylaşım için teşekkürler

Maalesef böyle bir garantiveremiyorum.
Tamamen şansa kalmış.