kombinasyon listesi yapma

[Asri]

vba yla ilgili bilgim yoktu bende bilgi edinmeye çalışıyordum eklediğiniz dosyayı indirdim denedim sonuç oluştur a tıkladım işlem tamamlandı dediği halde başlangıç numarası değişmedi

Programı çalıştırdığınız klasörde sonuc.txt dosyası oluşuyor.

"Ekli dosya bulunduğu yere sonuc.txt olarak kombinasyonu oluşturur. "

Excel deki çok fazla veride yavaşlama ve donmalar gibi problemler yaşanmasın diye veriler txt dosyasına yazıldı.
Dosya her defasında yeniden oluşmaktadır.

 

[Blacklion27]

Buraya mı yani herhangi bir şey oluşturmuyor

 

[Asri]

Buraya mı yani herhangi bir şey oluşturmuyor

C: \deneme klasörü oluşturun.
programı onun içine taşıyın.
oradan çalıştırıp deneyin

 

[Blacklion27]

Çok teşekkürler kardeşim başarılı kombinler birebir bana 15 li sıra lazım ama onu yapar mısın veya gösterir misin?

 

[Asri]

Çok teşekkürler kardeşim başarılı kombinler birebir bana 15 li sıra lazım ama onu yapar mısın veya gösterir misin?

0-0-0-0 olan hücrede 0 ları arttırın.
rakamları değiştirmek isterseniz '012 yazan yeri değiştirin

Gerisini program yapacaktır.

 

[Blacklion27]

Teşekkürler kardeşim tam da istediğim gibi olmuş ellerine sağlık Not defterine çıkardım bana lazım olan bilgileri 424 MB Bunu 1 milyon küsür olarak excel e 5 sütunda yapıştırmamın kolay bir yolu var mı?

 

[Asri]

Teşekkürler kardeşim tam da istediğim gibi olmuş ellerine sağlık Not defterine çıkardım bana lazım olan bilgileri 424 MB Bunu 1 milyon küsür olarak excel e 5 sütunda yapıştırmamın kolay bir yolu var mı?

Dosya ve kodlar güncellendi.

Menu sayfasında A9 a kaç satır olarak bölmek istediğinizi yazın.
Liste sayfasında kolonlara bölünecektir.

 

[Blacklion27]

Çok teşekkürler kardeşim bakalım yapıştıracak mı acaba 10 dk oldu yanıt vermiyor diyor bakalım çok uzun sürdü ama olmucak gibi

 

[Asri]

Sabır en iyi ilaçtır

 

[Blacklion27]

Aynen kardeşim oldu çok teşekkürler Benimde en kısa sürede makro öğrenmem şart

 

[Asri]

Tiresiz kullanmak için 0-0-0 yerine '000 şeklinde yazın.

Excel e aktarım sırasında tiresizlerde sorun olmaması için kod bölümünde Listeyukle içindeki aşağıdaki satırı bu şekilde değiştirin.
Sheets("Liste").Cells(satir, sutun) = "'" & veri

Nasıl yapılacağı konusunda biraz araştırma iyi olur.

Excel sayfasında iken alt+F11 e basın Modul1 i çift tıklayın. En üste gelin listeyukle nin içindeki kodu bulup güncelleyip kaydedin.

 

[Blacklion27]

Teşekkürler kardeşim sayende yaptım biraz takılayım bunda geliştirmeyi düşünüyorum yardımın için teşekkürler

 

[Saki7263e]

Merhaba 30 un 3 lü kombinasyonunu bana cevap olarak degilde normal olarak atar misiniz 4060 ediyor. Lutfen araştiriyorum bi turlu bulamiyorum.