Soru Artık İşin İçinden Çıkamıyorum:-(

[halit3]

Bu dosyada tanımlamaları ThisWorkbook sayfasına yaptım

 

[yesimgurol]

Halit bey'in 77 nolu mesajındaki şekliyle sonuçlar aktarıldı. Böylece aktar1 içerisinde 64, aktar2 içerisinde şimdilik 20 tane daha olasılık ekledim ve çalıştırdığımda sonuçlar aktarıldı. aktar2 de dolunca aynı mantık ile aktar3 ile devam edeceğim. O kadar karıştı ki , sonuçların doğruluklarını kontrol edemedim. Aktarma yaptığına göre Ve Halit Hocam da kodların yaratıcısı olduğu için sonuçların doğruluğuna eminim.
Halit bey, çok teşekkür ederim.

 

[halit3]

Bu dosyada eklemek daha kolay oldu aktar4 de ekledim kendiniz de daha sonradan eklemelerde yapabilirsiniz.

 

[yesimgurol]

Haluk bey, 78 nolu mesajınızdaki dosyayı da denedim şimdi oradaki kodlarda yaklaşık 45 adet olasılık bulunmaktaydı. O hali ile evet çalışıyor aslında fakat 45 olasılığı 80 adet yaptığımda uyarı aldım İlginize çok teşekkür ederim. Şİmdilik Halit bey'in düzenlemesi ile devam edeceğim.

 

[yesimgurol]

Halit bey , çok ama çok teşekkür ederim gerçekten. Nasıl teşekkür edeceğimi bilemiyorum inanın...

Küçük bir sorum olacaktı öğrenmek adına yalnızca.. Şİmdi değerlerim 17.satıra kadar ya , geçenlerde 20.satıra aynı değerleri yazdım kodu çalıştırdım onlarıda değerlendirdi maşaallah. Olur ya ilerde eklemeler yapabilirim diye sormak istedim. Şimdilik sorun teşkil etmiyor. 20.satıra kadar kısıtlamak mümkün mü? Yada belli bir sınır koyma durumu olması için hangi değeri dikkate almak gerek.

 

[halit3]

sınırlamalar burada

Range(Cells(3, 13), Cells(17, 14)).ClearContents


For i = 3 To Cells(Rows.Count, 1).End(3).Row

veya

Range(Cells(3, 13), Cells(20, 14)).ClearContents


For i = 3 To 20

 

[halit3]

birde burası var

For i = 3 To Cells(Rows.Count, .cocuk1).End(3).Row

veya

For i = 3 To 20

 

[yesimgurol]

Çok teşekkür ederim Halit bey, artık istediğim kadar olasılık yazabileceğim

 

[halit3]

bu dosyada ThisWorkbook sayfasında 17 yazan yeri bulun orayı değiştirin

son_satır = 17

 

[yesimgurol]

Şimdi her şey çok daha kolay oldu ve daha da hakim oldum. Neyi nasıl yapacağımı en azından biliyorum. İyiki varsınız Halit bey..