rastgele sayıları üretme

[birey111]

Selam. B12 ye bir rakam yazacam. Mesela 80, b1 den b11 kadar 1 den 5 e kadar dolduracak. Olabilir mi? örnekte daha iyi açıklamaya çalıştım.

 

[f_desat]

http://www.excel.web.tr/f142/rastgele-sayy-retme-t58558.html

 

[birey111]

o zaman ekteki dosyaya bakabilirmisiniz. Makroyu buldum kendime göre birşeyler yaptım ama 80-99 arası değerlerde çok yavaş yada kitleniyor. Bize de en çok o değerler gerekli. Bunu nasıl hızlandırabiliriz.

If WorksheetFunction.CountA(Range("D" & Target.Row & ":W" & Target.Row)) <= 20 And _

değeri 19 vb yazarsak hızlı ama bu sefer toplam tutmuyor.