Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

[hassan26]

Selam
Excelde kombinasyon sonucunu sayfalara yazdırabilirmiyiz
örneğin 20 ismin 3 erli kombinasyonu 1140 adet oluyor VBA kodlarıyla veya başka bir yöntemle bu 1140 adet 3 erli ismi sayfaya/sayfalara yazdırabilirmiyiz

 

[hassan26]

Sayın üstadlar sadece böyle bir şey olur veya olmaz deyin de kurtulayım şu aklımı kemiren sorudan

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

2007 versiyon kullanan üyelerimizin aşağıdaki fix düzeltme dosyasını sistemlerinde çalıştırmaları gerekiyor. Aksi halde makro hata vermektedir.

http://download.microsoft.com/downlo...le-x86-glb.exe

 

[Skorpiyon]

Sayın COST_CONTROL,

Tek kelime ile ağzım açık kaldı

Tebrikler, Saygılarımla...

 

[Haluk]

Merhaba;

Ben bir konuyu belirtmek ve ilave yapmak istedim.

Kombinasyon sonuçlarının sayfada listelenmesi konusu forumda daha önceden de bir kaç kere sorulmuştu.

Yazılan kodlar, genellikle orjinal soruya göre hazırlandığı için problemin genelinde pek esnek kalmamaktadır. Yani; 20 adet verinin 3' erli kombinasyonu yukarıda sayın COST_CONTROL'un önerdiği kodlarla çözülmektedir ama, eğer hemen arkasından 5' li veya 8'li kombinasyon istenseydi o zaman oturup yeni kodlar hazırlamak gerekecekti.

Buradan hareket ederek, bu konuyla ilgili olarak .... yani, kodlara esneklik getirmeyi amaçlayarak, sözkonusu kombinasyon türüne göre ilgili kodların run-time (kod çalışma süreci) içerisinde hazırlanması ve bittikten sonra da çalıştırılmalarını sağlayan bir dosya hazırladım.

Çalışma sayfasının Data isimli sayfanın 1nci satırındaki hücrelere yan yana veriler girildikten sonra (ekli örnek dosyada 10 adet), bu sayfadaki butona tıklandığında sonuçlar Kombinasyonlar isimli sayfada listelenecektir.

İlgili dosya ektedir, iyi çalışmalar dilerim.

Not: Office2000 üzeri versiyonlarda, makro güvenlik ayarlarında "VB projelerine erişime güven...." türünde bir seçenek olması gerekir. Bunun seçili olması gerekir.

 

[Haluk]

Bilgi: Dosyada bir hata vardı, düzeltilerek yukarıdaki mesaja eklendi.

 

[Korhan Ayhan]

Selamlar,

Sn. Haluk bey elinize sağlık sizin çözümünüz gerçekten esnek bir çalışma olmuş.

 

[Skorpiyon]

Sayın Haluk,

Sizi de Tebrik ederim. Gerçekten çok güzel bir örnek vermişsiniz. Sizler sayesinde kodlamaya bakış açımız her geçen gün değişiyor ve ufkumuz genişliyor.

Saygılarımla...

 

[Haluk]

Teşekkür ederim beyler.

 

[hassan26]

Konuyu açan kişi olarak ilgi gösteren tüm dostlara teşekkür ederim.
1 Foruma yeni katılıp bu konuyada göz atan arkadaşlara; ben pek cevap geleceğini sanmıyordum ama herzamanki gibi yine yanıldım böylece bu konuda cevaplanmış oldu.
2 Forumda karamsarlığa yer yok ama unutmayın burada her şey gönüllülük esasına dayanır.
Saygılarımla

 

[hassan26]

Sayın Haluk
Mal bulmuş fakir gibi biraz horlayayım dedim şans oyunları geldi aklıma 49 adet sayıyı 6 lı kombinasyon hesapladım 13983816 sonuç çıkıyor bunu yazdırmayı düşündüm excel 65536 ya kadar müsade ettiği için olmadı bu örnekten yola çıkarak satırın bittiği yerde başa dönüp (kullanıcının kaçlı kombinasyon yapacağı bilinmez) ilk boş hücreden aşağı doğru yazdırmaya devam ettirilemezmi eğer aynı sayfada bu mümkün değilse sonraki sayfalara devam etse tabi busefer şu soru ortaya çıkıyor sayfalar otomatikmi oluşacak yoksa kullanıcı baştan yeteri kadar sayfamı oluşturmalı.
Saygılar

 

[Ali]

Kod anlatılmaz yazılır tabiri tam Haluk Hocam için.

Ellerinize ve emeğinize sağlık.

 

[Haluk]

Sayın Ali bey, nezaketiniz için teşekkür ederim.

Sayın hassan26; dosyayı istediğiniz şekilde revize ettim. Yani, kombinasyon sonuçları eğer 65536 adetden fazlaysa, gerekli sayfalar otomatik olarak üretilecektir.

Ben, sayısal loto için 49 adet sayının 6'lı kombinasyonu için kodu denedim.

Kod çalışıyor ancak, 15 -16 sayfa ürettikten sonra PC' nin hafızası yeterli gelmediği için kodun çalışması duruyor.

Revize dosya ektedir.

 

[İdris SERDAR]

Sayın Haluk,

Eminim ki, harika bir çalışma yapmışsınız. Ancak ilk dosyanız ile ikinci dosyanız bende çalışmadı.

Neden çalışmadığını, araştırmaya fırsat bulamadım. Ben de bir hazıra konmak istiyorum.

Hata mesajlı dosya ekte.

Şimdiden teşekkürler.

..

 

[Haluk]

.....
....
..

Not: Office2000 üzeri versiyonlarda, makro güvenlik ayarlarında "VB projelerine erişime güven...." türünde bir seçenek olması gerekir. Bunun seçili olması gerekir.

Sayın yurttas sizde hata vermesinin sebebi; yukarıdaki alıntıda belirttiğim ve 5 No'lu mesajda yer alan not' taki düzenlemeyi yapmanız gerekiyor.

 

[Recep İpek]

Tolls>>Macro>>Security ekranında

Trusted Publishers sekmesinde

Trust Access To Visual Basic Project

bölümünün işaretli olması gerekiyor.

 

[İdris SERDAR]

Sayın yurttas sizde hata vermesinin sebebi; yukarıdaki alıntıda belirttiğim ve 5 No'lu mesajda yer alan not' taki düzenlemeyi yapmanız gerekiyor.

Dikkatsizlik işte.

İşlem tamamdır.

Teşekkürler, Haluk Bey.

Sayın ripek size de teşkkür ederim.

.

 

[excellcan]

Haluk hocam gerçekten istediğimiz gibi bir çalışma olmuş. Beyninize , yüreğinize
ellerinize sağlık. Hocam bu çalışmaya küçük bir ek yapabilirmiyiz acaba ? Şöyle ki ; elde ettiğimiz dağılımları belli bir benzerlik katsayısına göre eleyebilir miyiz ?
Diyelim ki 10 nun 6 lı kombinasyonunu aldığımızda 210 değişik dağılım elde ediyoruz. Bunlardan bazılarının 5 rakamı aynı bazılarının 4 vs. Varsayalım ki bu 210 değişik dağılımdan 5 rakamı aynı olanları elemek istiyoruz. Hocam bunu nasıl yapabiliriz. ? Emeği geçen herkese teşekkürler .

 

[arol11]

selamlar,
evet,böylesi bir problem nasıl çözülür.Ben benzer biçimde -anladıım kadar- yavaş olmakta,vba kodları hazırlanabilir mi. Yani eleme yapabilmek örneğin 4 rakamda aynı olanları yada diyelimki 6 sayılık yada 10 sayılık grup içiden tespit ettiğimiz kurala göre eleme yapmak.Mümkün olur sanırım fakat ustaların biraz kafa yorması gerek sanırım.
hoşçakalın.

 

[antel]

Sayın Ali bey, nezaketiniz için teşekkür ederim.

Sayın hassan26; dosyayı istediğiniz şekilde revize ettim. Yani, kombinasyon sonuçları eğer 65536 adetden fazlaysa, gerekli sayfalar otomatik olarak üretilecektir.

Ben, sayısal loto için 49 adet sayının 6'lı kombinasyonu için kodu denedim.

Kod çalışıyor ancak, 15 -16 sayfa ürettikten sonra PC' nin hafızası yeterli gelmediği için kodun çalışması duruyor.

Revize dosya ektedir.

Sayın Haluk

Herşey için teşekkürler. Yalnız ben dosyayı indiremiyorum. bir kontrol edebilirmisiniz. kaldırılmış olunabilir mi?

teşekkürler