distrubuting amounts from textbox on user form to column inside sheet

[abdo meghari]

Hi guys,
I search for procedure to distributing amounts from textbox1 on userform to column D inside the sheet .

aq Microsoft Excel .xlsx
	A	B	C	D	E
4	ITEM	BRAND	QTY	UNIT PRICE	TOTAL
5	1	BS 1200R20 G580 JAP	5.00	1,880.00	9,400.00
6	2	BS 1200R20 G580 THI	10.00	2,200.00	22,000.00
7	3	BS 1400R20 VSJ JAP	20.00	4,300.00	86,000.00
8					0.00
9					0.00
10					0.00
11					0.00
12	TOTAL		35.00		117,400.00
we

Cell Formulas
Range	Formula
C12,E12	C12	=SUM(C5:C11)
E5:E11	E5	=C5*D5

when write amount in textbox1 =10,000.00 then should divide on last value in column C like this 10,000.00/35.00=285.7143
and the value 285.7143 should add to column D for unit price for each item like this
285.7143+1,880.00=2,165.71
285.7143 +2,200.00=2,485.71
285.7143+4,300.00=4,585.71

final result

aq Microsoft Excel .xlsx
	A	B	C	D	E
4	ITEM	BRAND	QTY	UNIT PRICE	TOTAL
5	1	BS 1200R20 G580 JAP	5.00	2,165.71	10,828.55
6	2	BS 1200R20 G580 THI	10.00	2,485.71	24,857.10
7	3	BS 1400R20 VSJ JAP	20.00	4,585.71	91,714.20
8					0.00
9					0.00
10					0.00
11					0.00
12	TOTAL		35.00		127,399.85
we

Cell Formulas
Range	Formula
C12,E12	C12	=SUM(C5:C11)
E5:E11	E5	=C5*D5

 

[DanteAmor]

Try this:

Private Sub CommandButton1_Click()
  Dim distamount As Double
  Dim i As Long
  
  With TextBox1
    If .Value = "" Or Not IsNumeric(.Value) Then
      MsgBox "Enter value"
      .SetFocus
      Exit Sub
    End If
    distamount = .Value / Range("C" & Rows.Count).End(3).Value
  End With
  
  i = 5
  Do While Range("D" & i).Value <> ""
    Range("D" & i).Value = Range("d" & i).Value + distamount
    i = i + 1
  Loop
End Sub

 

[abdo meghari]

many thanks ,Dante !