Rastgele Sayı Üretme!

[Atoll]

Güzel bir paylaşım...
Bir sakin kafayla nufus etmek lazım...

 

[bekir38]

arkadaşlar baktım ama bulamadım,,,
ekli dosyada örnek mevcut, şunu yapmak istiyorum tam olarak,,,

21 sayı yazma hakkım olsa (ben içerisine 15 de yazabilirim)
6 lı kombinasyon kurarak (mutlaka 6 lı olmalı veya 5 yazıyorsa 5 li türetebilmeli)
banko kısmında da 4 yazıyorsa

örnek;
15 sayı yazdım, 6 lı kombine etmeli, 4 garanti diyorsa, o 4 sayı kombinasyon içerisinde mutlaka olacak şekilde kombinasyon kuran bir çalışma olmalı,,,

böyle birşey varmıdır? yada yapılabilir mi?

örnek dosya ekte,

teşekkürler,,,

 

[Huseyinkis]

arkadaşlar baktım ama bulamadım,,,
ekli dosyada örnek mevcut, şunu yapmak istiyorum tam olarak,,,

21 sayı yazma hakkım olsa (ben içerisine 15 de yazabilirim)
6 lı kombinasyon kurarak (mutlaka 6 lı olmalı veya 5 yazıyorsa 5 li türetebilmeli)
banko kısmında da 4 yazıyorsa

örnek;
15 sayı yazdım, 6 lı kombine etmeli, 4 garanti diyorsa, o 4 sayı kombinasyon içerisinde mutlaka olacak şekilde kombinasyon kuran bir çalışma olmalı,,,

böyle birşey varmıdır? yada yapılabilir mi?

örnek dosya ekte,

teşekkürler,,,

Ekli Dosyayı incelermisiniz.

 

[bekir38]

Ekli Dosyayı incelermisiniz.

çok teşekkürler üstat, tam istediğim gibi olmuş, emeklerine sağlık,,,

 

[bekir38]

sn. Huseyinkis tarafından hazırlanan, tarafımdan görsel hale getirilen sayısal loto larda kullanılabilecek kombinasyon dosyası ektedir.

bol şanslar,,,

 

[Eraskan]

Merhaba arkadaslar, siteye yeni üyeyim. Excel e -bilgiye- açım.
Aklıma gelen şöyle bir deneme var:

Şartlar:

1. 1-49 a kadar sayı seçicem.ama 1 ve 49 olmayacak. yani 2-48 arasında 6 adet sayı rastgele seçicem.
2. Sayılar ardışık olmayacak. 2 li, 3 lü 4 lü ardışık sayılar olmayacak.
3. 6 sayı birbirinden farklı olacak.
4. Sayıların hepsi tek veya hepsi çift olmayacak.

Formülle işe giriştim. Ama maalesef bilgim çok az.
şöyle yaptım. 2-48 arası sayıları A6 ile A52 arasına yazdım. yan tarafa yanyana 6 kutucuk işaretledim.( C4 ile H4 arası)
Bu arada Makro kodlarını hiç anlamıyorum.

1. soru için ilk kutuya =Randombetween( $A$6:$A$52) dedim.Sayıları üretiyor.

2. Soru için türkçesi "olmayacak" diye bir formül var mı? yani D4 de yine randombetween olacak ama çıkan sonuç C4, E4, F4, G4 ve H4 hücreleri ile aynı sonucu vermeyecek?

3. Örnegin C4 ile D4 ün ardışık olmasını istemiyorsak. O zaman hem C4=D4 OLMAYACAK. Hem de C4=D4+-1 OLMAYACAK.Bunu formüle nasıl giydireceğiz?

4. Sayıların hepsi çift ve tek sorusunun çözümünü ben hayal bile edemiyorum. ama en azından şu üç sorumun basit bir cevabını veren hayırsever bir arkadasa müteşekkir oluruz.

saygılar.

 

[çözüm.xls]

Rastgele sayı üretme

Merhaba arkadaşlar;
Sayın Mustafa Altun'un çalışmasından alıntı yaparak oluşturduğum örnek dosyamın 2.ci sayfasında bir sorum var yardımcı olursanız sevinirim.Şimdiden teşekkürler.

 

[Muhammet Okumuş]

Merhaba,
Dosyayı inceleyiniz.

 

[çözüm.xls]

Muhammet Bey ilginize teşekkür ederim. Dosyayı inceledim bazı yerlerde eksikler var dosya içinde açıkladım.

 

[Muhammet Okumuş]

Ben kendi sütunu içinde benzersiz olarak anlamışım.

Sub RASTGELE_SAYI()
If Range("F32") <> "" Then Exit Sub
süt = WorksheetFunction.Count(Range("B32:F32")) * 2 + 2
10
Randomize
x = Int(Rnd() * 90 + 1)
If WorksheetFunction.CountIf(Range("B3:F32"), x) = 1 Then GoTo 10
Range("H15") = x
son = Cells(Rows.Count, süt).End(3).Row + 1
Cells(son, süt) = x
End Sub

kodu deneyiniz.

 

[çözüm.xls]

teşekkürler Muhammet Bey

 

[çözüm.xls]

Muhammet Bey merhaba,
Bu dosyaya ek olarak sütunları bir defada silmek için çalışma sayfasına eklediğim "sil" butonunu kullanabilirmiyim.

 

[Muhammet Okumuş]

Sub sil()
Range("B3:H32") = ""
End Sub
Bu kodları modüle kopyalayıp makroya atayınız.

 

[çözüm.xls]

teşekkür ederim.