rasgele sayı bulmak

[cihankacar]

merhaba elimde 7 hücreli bir tablo var her hücre kendi içinde bir puanı gösteriyor.örn:a1 10p d1 40 puan bunların toplamı ise g1 hücresini verecek şekilde toplam formülü yazdım. benim istediğim g1 hücresine bulmak istediğim değeri yazıp diğer hücrelerin kendi değerleri sınırları arasında rastgele seçimler yaparak l1 hücresindeki değeri bulmasıdır. böyle birşey mümkün müdür
a1 b1 c1 d1 e1 f1 g1 toplam
10 10 10 40 10 10 10 100
10 10 10 25 10 10 10 85
10 8 5 20 7 10 X 60

 

[Muhammet Okumuş]

Merhaba,

Sub Dağıt()
Application.ScreenUpdating = False
son = Cells(Rows.Count, "G").End(3).Row
For i = 2 To son
Range("A" & i & ":F" & i) = Range("A1:F1").Value
20
If WorksheetFunction.Sum(Range("A" & i & ":F" & i)) = Range("G" & i) Then GoTo 10
5
Randomize
a = Int(Rnd() * 6 + 1)
If Cells(i, a) = 0 Then GoTo 5
Cells(i, a) = Cells(i, a) - 1
GoTo 20
10
Next
End Sub

kodu deneyiniz.