rastgele hücreleri seçme

[birey111]

Selam. Ben aşağıdaki gibi bir kod uygulamaya çalıştım;



If Target = 96 Then
For X = 4 To 23
Cells(Target.Row, X) = Cells(1, X)
Next

SAYI = Int((23 * Rnd) + 4)
Cells(Target.Row, SAYI) = (Range("W1") - 1)
SAYI = Int((23 * Rnd) + 4)
Cells(Target.Row, SAYI) = (Range("U1") - 1)
SAYI = Int((23 * Rnd) + 4)
Cells(Target.Row, SAYI) = (Range("T1") - 1)
SAYI = Int((23 * Rnd) + 4)
Cells(Target.Row, SAYI) = (Range("S1") - 1)

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
GoTo Son
End If


Burada yapmak istediğim; önce tüm hücreleri 5 yapıyor, sayıya göre rastgele seçtiği hücreleri 4 yapıyor. Bu böylece her sayı için uzayıp gidiyor, Bunu tek satırda ya da daha kolay nasıl yapabilirim? Her hücre için ayrı ayrı sayı üretmek uzun sürüyor. Her sayı için if kullanabilirim. Örneğin tek bir kerede 95 yazınca herhangi 5 hücreyi seçip onlara 4 yazsın. 94 seçince herhangi 6 hücreye 4 yazsın gibi.
Teşekkür ederim.

 

[birey111]

yokmu bir çözüm?

 

[Korhan Ayhan]

Merhaba,

Çözümü elbetteki vardır. Fakat ben buradaki amacı anlamadım. Daha açıklayıcı bilgi verirmisiniz. Hatta örnek dosya üzerinde açıklarsanız daha faydalı olur.

 

[birey111]

Merhaba,

Çözümü elbetteki vardır. Fakat ben buradaki amacı anlamadım. Daha açıklayıcı bilgi verirmisiniz. Hatta örnek dosya üzerinde açıklarsanız daha faydalı olur.

dosyayı ekliyorum, Kodları yine bu siteden aldım. 85 üstü çok yavaş çalışıyordu, o yüzden böyle bir kısıtlama yapmak istedim kendi çapımda bunu da yazması uzun sürüyor. Daha nasıl kısaltabilirim. İşlemin 96-99 arasındaki gibi rastgele hücreleri seçerek 4 yazmasını isitiyorum.

 

[birey111]

Yok mu bir yardım eden?

Korhan Bey formül sizin... Sizyardımcı olabilirmisiniz?


Ya da şunu nasıl bir formülle yapabiliriz? ;
Bir Satırda 4. hücreile 23. hücre arasından farklı 5 hücreyi seçme.....

 

[birey111]

Sadece alltaki soruyu cevaplayın yeter....

 

[birey111]

bakan çok , yardım eden yok.... Güzel.