ASelectTussen met Som

[EKunst]

Goedenavond,

Ik ben opzoek naar een formule waar ik random getallen kan genereren die bij elkaar op een bepaald (vast) getal uitkomen.

Als voorbeeld:
Het vaste getal is 20. Er moeten random getallen worden gegenereerd die daar op uit komen. Dat kan dus zijn:
1 2 3 14 maar ook 8 7 3 2

Met ASelectTussen kan wel een begin getal worden gesteld en een max. Maar kom er niet uit hoe deze bij elkaar opgeteld 1 vast getal vormt.

Alvast bedankt!

 

[Cobbe]

Deze macro schudt er zo maar even 500 reeksen uit zijn chip.

Sub cobbe()
y = 1
For Each cl In Range("A1:A500")

While Cells(y, "E") <> 20
  Calculate
    Cells(y, "E") = Cells(y, 1) + Cells(y, 2) + Cells(y, 3) + Cells(y, 4)
     If Cells(y, "E") = 20 Then
       Range("A" & y & ":E" & y).Copy
         Cells(y, "A").PasteSpecial Paste:=xlValues
           y = y + 1
    End If
Wend
Next
End Sub

 

[EKunst]

Bedankt Cobbe!

Nog 1 probleempje. Cel A-D moeten bij elkaar opgeteld het getal wat in E staat vormen.
Nu krijg ik nog het volgende:
A: 17
B: 15
C: 16
D: 11
E: 20 (het getal wat ik zelf ik wil kunnen vullen, de vorige getallen moeten random worden ingevuld en dit getal vormen)

Dus
A: 7
B: 8
C: 3
D: 2
E: 20 (zou wel kunnen)

 

[HSV]

Met in cel A5 het getal.

Sub hsv()
Dim i As Long
  For i = 1 To 4
   Cells(i, 1) = IIf(i <> 4, Int(Range("A5") / 2 * Rnd), Range("A5") - WorksheetFunction.Sum(Range("A1:A3")))
  Next i
End Sub

 

[EKunst]

Goedenavond HSV,

Bedankt voor uw reactie!
Deze klopt zoals ik hem wil hebben.
Alleen dit is verticaal. Als ik de range verander naar horizontaal, dan krijg ik een foutmelding.
Is dit ook mogelijk?

Met vriendelijke groet,
Egbert

 

[HSV]

Laat eens een voorbeeldbestandje zien zodat ik niet weer hoef te gokken.

 

[EKunst]

Goedenavond HSV,

Bijgevoegd een voorbeeldbestandje.
Bekijk bijlage Test getallen.xlsx

Bedankt voor de moeite!

Groet,
Egbert

 

[HSV]

Goedenavond.

Zoiets.

 

[EKunst]

Bedankt HSV!

Dit was precies wat ik nodig had.

Met vriendelijke groet,
Egbert

 

[sylvester-ponte]

Harry en Egbert
deze oplossing (zie post 8) produceert bij mij ook af en toe negatieve getallen.
is dat de bedoeling?

groet sylvester