Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

[tugrul3535]

İyi günler..Bu konudaki eklenmiş dosyaları neden indiremiyorum,acaba?Bir türlü inmiyor..Ve başka sayfaya yönlendiriyor..

 

[tugrul3535]

Pardon,şimdi anladım...rar dosyalarını indirebiliorum ama .zip dosyalarını indiremiyorum..Bu neden oluyor acaba?

 

[suvari1]

Loto da 5 garanti veya 6 garanti tutma kombinasyonu vb olarak arıyorum

 

[Korhan Ayhan]

Merhaba,

Üye olduktan 7 yıl sonra sanırım zengin olmayı kafaya koydunuz.

 

[Necdet]

Merhaba,

Üye olduktan 7 yıl sonra sanırım zengin olmayı kafaya koydunuz.

Yıllar sonra ilk mesaj

 

[Korsy]

Bu konuya google da rastladım ve dosyaları indirip incelemek için üye oldum.Gerçekten çok insanın işine yaramış yorumlardan onları anlayabiliyorum.

Moderatör arkadaşın söylediği gibi zengin olmayı kafaya koydukta geldik

25 sayıyı 6 lı kombinasyon yapıp sonuçlarını listeleyip sonuçları yazdırıp aralarından seçerek oynama planlarıyla gelmiştim.Tabi 40-50 bin sonuç çıkacak hepsini oynayacak değiliz

En hissettiğimiz 10 sayıyı 15 sayıyı seçip oynama planıyla geldik. Nasıl yardım alabiliriz

 

[arucs]

merhaba;
tüm konuyu inceledim ancak sanıyorum bilgisayarım bu excelleri çalıştırmaya yetmiyor. işlem her defasında donuyor.
34 'ün 5'li kombinasyonlarının hazır olduğu bir çalışması olan varsa alabilir miyim?

teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyin.

Dosyada 1-34 arası sayıların 5 li kombinasyonları bulunmaktadır. İstediğiniz satırları seçip kullanabilirsiniz.

 

[arucs]

Sn. Korhan Hocam,
teşekkürler, iyi bir gün diliyorum.

 

[MaDLeY_2005]

merhabalar ben sayısal lotoda şöyle bir şeyi yapabilir miyim acaba. 49 ya da seçiğim kadar sayı içerisinden kesinlikle üç tutturabileceğim kombinasyonların oynanmış kolon halini veren bir program olabilir mi. yani mesela seçtiğim 20 rakamdan kesinlikle üç tuttracağım ve bunun kolonlara yazılmış hali. sayısal lotoda her kolonda üç tutturmak için 20 olasılık oynanmış oluyor[C(6,3)].

 

[simetri.]

Merhabalar

Kodu çalıştırdığım zaman kitaba eklediğim sayfalar siliniyor

Kodu çalıştırmadan önce eklediğim sayfaların silinmemesi için ne yapmalıyım acaba?

Bilen bir arkadaş yardımcı olursa çok iyi olur.

Teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Kodun içindeki aşağıdaki bloğu silip deneyiniz.

    For X = 3 To Sheets.Count
    Application.DisplayAlerts = False
    Sheets(3).Delete
    Application.DisplayAlerts = True
    Next

 

[simetri.]

Merhabalar Sayın Korhan AYHAN,

Çok özür dilerim. Değerli zamanınızı aldığım için. Benim kullandığım

dosya ekte. Belirttiğiniz kod blogu maalesef bu dosyanın içinde yok.

Sizin diğer arkadaşlar için çalıştığınız dosya ya da baktım onda da yok

bu şekil bir kesit. Lütfen dosya üzerinde bakabilirmisiniz ?

Sayın Haluk Bey in en son yüklediği dosyadır kendisi.

 

[Korhan Ayhan]

Pardon. Benim eklediğim dosyadan bahsettiğinizi düşünmüştüm.

Ekli dosyadaki butona ait kodu aşağıdaki gibi düzenleyin.

Private Sub CommandButton1_Click()
    Dim MyCombin As Integer
    Application.VBE.MainWindow.Visible = False
    For Each MyMod In ThisWorkbook.VBProject.VBComponents
        If MyMod.Name = "ModCombin" Then
            ThisWorkbook.VBProject.VBComponents.Remove MyMod
        End If
    Next
    MyCombin = Application.InputBox("Kaçlı kombinasyon istiyorsunuz ?", "Kullanıcının dikkatine!")
    If MyCombin > 0 Then
        Call PrepareCode(MyCombin)
    End If
End Sub

 

[simetri.]

Estağfurullah Hocam.

Yapılan bir hata varsa ortada bana aittir.

Tekrar teşekkür ederim.

Saygılarımla.

 

[sebastianmbl]

COMBİNASYON R2 "out of memory" bildirisi

Arkadaşlar Merhaba,

"combinasyon r2" ile elimde bulunan 81 in 5 li kombinasyonunu yapmaya çalışıyorum. Yalnız excel "out of memory" hatası veriyor. gerçi programda 20 nin 3 lüsünü denesem bile aynı hatayı alıyorum.

Bilgisaray özelliklerinden mi yoksa programla ilgili mi bir problemdir.

81 in 5 li kombinasyonu 25621596 adet yaklaşık 365 sekme(excel 2010) bunun için nasıl bir bilgisaraya ihtiyaç duyulur??

 

[Korhan Ayhan]

Sorun bilgisayarınızın kapasitesiyle alakalıdır. Kullandığınız sistemin özellikleri nedir?

 

[sebastianmbl]

Korhan Bey,

Şu anda kullandığım bilgisayar 32 bit işletim sistemi 4 gb ram ve core 2 duo,
en son teknolojiye göre zayıf ve programı çalıştırmamasını anlıyorum.

Yalnız bu işlemi yapabilmeme için nasıl bir bilgisayara ihtiyaç duyulur?


İlginiz için teşekkürler

 

[Korhan Ayhan]

Bu başlığın #13 nolu mesajını okuyunuz. Dosya sahibi Haluk bey deneme yapmış 15-16 sayfadan sonra kilitlenme yaşanıyor yorumunu yapmış. Bende İ7 işlemcili laptobumda denedim 16 sayfadan sonra hata veriyor.

 

[MaDLeY_2005]

merhabalar ben sayısal lotoda şöyle bir şeyi yapabilir miyim acaba. 49 ya da seçiğim kadar sayı içerisinden kesinlikle üç tutturabileceğim kombinasyonların oynanmış kolon halini veren bir program olabilir mi. yani mesela seçtiğim 20 rakamdan kesinlikle üç tuttracağım ve bunun kolonlara yazılmış hali. sayısal lotoda her kolonda üç tutturmak için 20 olasılık oynanmış oluyor[C(6,3)].

Daha önce yazdığım mesaja cevap vermedi kimse. Söylemek istediğim şeyi bir arkadaşım vba'da yapmaya çalıştı ama tam ve doğru çözüm vermiyor. Foruma dosya ekleyemedim sizlere sorabilmek için. Bana aşağıdaki kodlar ile alakalı yardım olabilecek kimse var mı? Ya da kodu düzeltebilecek. Programın ilk kısmı A sutununa girilen 30 tane sayının dörtlü kombinasyonunu buluyor ve sonrasında bu kombinasyonların hepsini sayısal lotonun altılı kombinasyonlarının içine en az kupon oynayarak yerleştiriyor.

Private Sub CommandButton1_Click()
satır = 0
For i = 1 To 28
For j = i + 1 To 29
For k = j + 1 To 30
satır = satır + 1
'Cells(satır, 4).Select
Cells(satır, 4) = Cells(i, 1)
Cells(satır, 5) = Cells(j, 1)
Cells(satır, 6) = Cells(k, 1)
Next k
Next j
Next i

End Sub
Private Sub CommandButton2_Click()
aynı = 1
bitti = 0
satır = 0
satır2 = 0
Dim dizi(6) As Integer
Dim uclu(3) As Integer

For i = 1 To 4059
If Cells(i, 7) <> 1 Then
For j = 2 To 4060
atla = 0
If aynı > 3 And Cells(j, aynı) = Cells(j - 1, aynı) Then
'Cells(j, aynı).Select
atla = 1
End If
If Cells(j, 7) <> 1 And atla = 0 Then
'Cells(satır2 + 1, 9).Select
dizi(1) = Cells(i, 4)
dizi(2) = Cells(i, 5)
dizi(3) = Cells(i, 6)
dizi(4) = Cells(j, 4)
dizi(5) = Cells(j, 5)
dizi(6) = Cells(j, 6)
'Cells(1, 8) = dizi(1) & dizi(2) & dizi(3) & dizi(4) & dizi(5) & dizi(6)
buldu = 0
For k = 1 To 5
For l = k + 1 To 6
If dizi(k) = dizi(l) Then
buldu = 1
Exit For
End If
Next l
If buldu = 1 Then
Exit For
End If
Next k
If buldu = 0 Then
Cells(satır2 + 1, 9) = dizi(1)
Cells(satır2 + 1, 10) = dizi(2)
Cells(satır2 + 1, 11) = dizi(3)
Cells(satır2 + 1, 12) = dizi(4)
Cells(satır2 + 1, 13) = dizi(5)
Cells(satır2 + 1, 14) = dizi(6)

If satır2 > 0 Then
For satırlar = 1 To satır2
bulma = 0
For k = 1 To 6
If bulma > 2 Then
Exit For
End If
For l = 1 To 6
If dizi(k) = Cells(satırlar, l + 8) Then
bulma = bulma + 1
Exit For
End If
Next l
If bulma > 2 Then
aynı = k
Exit For
End If
Next k
If bulma > 2 Then
Exit For
End If
Next satırlar
End If
If bulma < 3 Then
satır2 = satır2 + 1
For k = 1 To 4
For l = k + 1 To 5
For m = l + 1 To 6
uclu(1) = dizi(k)
uclu(2) = dizi(l)
uclu(3) = dizi(m)
For n = 1 To 4060
If uclu(1) = Cells(n, 4) Or uclu(1) = Cells(n, 5) Or uclu(1) = Cells(n, 6) Then
If uclu(2) = Cells(n, 4) Or uclu(2) = Cells(n, 5) Or uclu(2) = Cells(n, 6) Then
If uclu(3) = Cells(n, 4) Or uclu(3) = Cells(n, 5) Or uclu(3) = Cells(n, 6) Then
'Cells(n, 7).Select
Cells(n, 7) = 1
Exit For
End If
End If
End If
Next n
Next m
Next l
Next k
bitti = 1
End If
End If
If bitti = 1 Then
bitti = 0
Exit For
End If
If aynı = 3 Then
Exit For
End If
End If
Next j
End If
Next i



End Sub