Kura Çekimi için yardım

[Oner Kurukuz]

Arkadaşlar ecxelde bir kura çekim programı yazmak istiyorum
makro ya da formul her ikisi de olur.

şöyle bişey olacak
12 ay ve 12 kişi adı.
kişinin ismi yazılacak ve excel ona bir ay belirleyecek.
Yani bunu gün yapmak için kullanacağız, kime hangi ay düşecek onu belirleyeceğiz.
benim denediklerim tam istediğimi vermedi,
S_SAYI_ÜRET() formulü ile rastgele sayılar yazıp o sayıları ay sırası ile karşılaştırdım
ama bu formül aynı sayıyı birkaç kez verebiliyor.
tabii bu da farklı kişilere aynı ay seçiyor.

bu formülü veya makroyu tam olarak yazamasak da en azından fikir de verseniz yeter.
şöyle dene , böyle dene gibi...

teşekkürler...

 

[tirvana]

b1-b13 arasına ayları yazın
c1-c13 arasına =S_SAYI_ÜRET()
d1-d13 arasına isimleri yazın


Range("C213").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("F2").Select

bir düğme yada başka bir kontrol ile çalıştırabiliriniz. ekli dosyada var

 

[Oner Kurukuz]

Saoalsın dostum
bu işime yaradı
teşekkürler.

 

[dost]

Sayın Kurukuz,

Ekteki dosyayı inceleriniz.

 

[Necdet]

Sayın Oner Kurukuz,

Eğer kurayı milli piyango toplarıyla çekmek isterseniz aşağıdaki linki inceliyiniz
http://www.excel.web.tr/viewtopic.php?p=54544#54544

 

[mciritci]

Arkadaşlar 1/49 sayılarını aynen sayısal mantığı ile kura çekbilecek formulu yazamadım yardımm lütfn

 

[KuTuKa]

sayısal loto

Sayın mciritci hazır bir program var elimde inceleyin beğeneceksiniz.