select case yardım edin sorun var

[60ilhami60]

Select Case Target
Case Is > 100
MsgBox "100 den büyük değer girdiniz !" & Chr(10) & "İşleminiz iptal edilmiştir !", vbCritical, "Dikkat !"
Target.ClearContents
Target.Select
GoTo Son
Case 100
Range("B" & Target.Row & ":H" & Target.Row).Value = Range("B1:H1").Value
Case 70 To 99
Range("B" & Target.Row & ":H" & Target.Row) = "=RANDBETWEEN(10,B1)"
Case 40 To 69
Range("B" & Target.Row & ":H" & Target.Row) = "=RANDBETWEEN(5,10)"
Case 20 To 39
Range("B" & Target.Row & ":H" & Target.Row) = "=RANDBETWEEN(1,10)"
Case 8 To 19
Range("B" & Target.Row & ":H" & Target.Row) = "=RANDBETWEEN(1,5)"
Case Is = 7
Range("B" & Target.Row & ":H" & Target.Row) = 1
Case Is < 7
MsgBox "7 den küçük değer girdiniz !" & Chr(10) & "İşleminiz iptal edilmiştir !", vbCritical, "Dikkat !"
Target.ClearContents
Target.Select
GoTo Son
End Select

Ben RANDBETWEEN ("5-10") olduğunda 6,7,8,9 vermesini istemiyorum 5,10 gibi 5 in katlarını versin istiyorum ne yapmalıyım tşk.

 

[60ilhami60]

BULDUM---> "=RANDBETWEEN ("1,3")*5" oluyor. nihayet başardım