• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

İyi günler..Bu konudaki eklenmiş dosyaları neden indiremiyorum,acaba?Bir türlü inmiyor..Ve başka sayfaya yönlendiriyor..
 
Pardon,şimdi anladım...rar dosyalarını indirebiliorum ama .zip dosyalarını indiremiyorum..Bu neden oluyor acaba?
 
Merhaba,

Üye olduktan 7 yıl sonra sanırım zengin olmayı kafaya koydunuz.
 
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 :)
 
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.
 
Merhaba,

Ekteki örnek dosyayı inceleyin.

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

Ekli dosyalar

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)].
 
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.
 
Merhaba,

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

Kod: 
    For X = 3 To Sheets.Count
    Application.DisplayAlerts = False
    Sheets(3).Delete
    Application.DisplayAlerts = True
    Next
 
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.
 

Ekli dosyalar

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

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

Kod: 
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
 
Estağfurullah Hocam.

Yapılan bir hata varsa ortada bana aittir.

Tekrar teşekkür ederim.

Saygılarımla.
 
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??
 
Sorun bilgisayarınızın kapasitesiyle alakalıdır. Kullandığınız sistemin özellikleri nedir?
 
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
 
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' Alıntı:
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)].
Genişletmek için tıkla ...

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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst