Yuvarlama

[cile34]

Arkadaşlar iyi akşamlar,
şöyle bi sıkıntım var,

Case 70 To 99
Range("F" & Target.Row & ":J" & Target.Row) = "=RANDBETWEEN(15,20)"

bu formülde F den J hücrelerine kadar 15 ile 20 arasında toplamları benim girdiğim değeregöre 5 sayı üretiyor.
( Örneğin ben 95 girdiysem rastgele 18 18 20 19 20)

benim isteğim bu sayıları 5 in katları şeklinde üretmesi


Range("F" & Target.Row & ":J" & Target.Row) = Round("=RANDBETWEEN(15,20)")

deniyorum olmuyor.

R,ca etsem yardım eder misiniz?

 

[ÖmerBey]

Round ondalıklı sayıları yuvarlamak için kullanılır. Şu şekillerde deneyebilirsiniz. (5-25 arası değerler için)
1. Eğer formül kullanmak istiyorsanız.

Range("F" & Target.Row & ":J" & Target.Row) = "=LOOKUP(RANDBETWEEN(1,5),{1,2,3,4,5},{5,10,15,20,25})"

Ya da

Range("F" & Target.Row & ":J" & Target.Row) = "=RANDBETWEEN(1,5)*5"

2. Formüle gerek yoksa;

sayı = Array(5, 10, 15, 20, 25)
For a = 6 To 10
    Cells(Target.Row, a) = sayı(WorksheetFunction.RandBetween(0, 4))
Next