Extra functie door userform laten doen

[Avalondra]

Beste geïnteresseerden ik heb een userform hervormt van een excel bestand dat ik een aantal jaren geleden heb gemaakt.
Ik nadien bijna niet meer met excel gewerkt en kom er dus even niet meer uit.

mijn vraag is dus nu om in deze userform (de macro ervan) hetgeen hij nu doet gewoon telaten maar voordat hij die waardes plaatst moet hij eerst nog in de regel erboven een som maken van de 2 regels daarboven.

dus simpel gezegd zet hij nu bijvoorbeeld in A5 de waardes maar die moet hij dan in A6 zetten en in A5 moet hij dan de som zetten van A3:A4


kan iemand mij misschien helpen? zo ja bij voorbaat dank.

ps. macro staat hieronder en excel bestand met userform is ook bijgevoegd.

Private Sub cmdVul_In_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Blad1")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
  .End(xlUp).Offset(1, 0).Row



'copy the data to the database
Range("A3").Select
    Application.ScreenUpdating = False
    Do

            ActiveCell.Offset(1, 0).Activate

    Loop Until ActiveCell = Empty
    Application.ScreenUpdating = True
    
ws.Cells(iRow, 1).Value = Me.TextBox111.Value
ws.Cells(iRow, 2).Value = Me.TextBox1.Value
ws.Cells(iRow, 3).Value = Me.TextBox2.Value
ws.Cells(iRow, 4).Value = Me.TextBox3.Value
ws.Cells(iRow, 5).Value = Me.TextBox4.Value
ws.Cells(iRow, 6).Value = Me.TextBox5.Value
ws.Cells(iRow, 7).Value = Me.TextBox6.Value
ws.Cells(iRow, 8).Value = Me.TextBox7.Value
ws.Cells(iRow, 9).Value = Me.TextBox8.Value
ws.Cells(iRow, 10).Value = Me.TextBox9.Value
ws.Cells(iRow, 11).Value = Me.TextBox10.Value

'clear the data
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox11.SetFocus

End Sub

 

[Niels28]

Private Sub CommandButton1_Click()

Dim iRow As Long
Dim i As Integer
Dim ws As Worksheet
Set ws = Worksheets("Blad1")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
  .End(xlUp).Offset(1, 0).Row

'copy the data to the database
Range("A3").Select
    Application.ScreenUpdating = False
    Do

            ActiveCell.Offset(1, 0).Activate

    Loop Until ActiveCell = Empty
    Application.ScreenUpdating = True
    
ws.Cells(iRow, 1).Value = CDate(TextBox11.Value)
ws.Range(Cells(iRow, 2), Cells(iRow, 11)).FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
ws.Cells(iRow + 1, 2).Resize(, 10).Value = Array(Me.TextBox1.Value, Me.TextBox2.Value, Me.TextBox3.Value, Me.TextBox4.Value, Me.TextBox5.Value, Me.TextBox6.Value, Me.TextBox7.Value, Me.TextBox8.Value, Me.TextBox9.Value, Me.TextBox10.Value)


'clear the data
For i = 1 To 11
Controls("TextBox" & i).Value = ""
Next

Me.TextBox11.SetFocus

End Sub

Niels

 

[Avalondra]

sorry niels maar dit is niet wat ik bedoel dit is gewoon mijn macro die ik had anders geschreven.

Ik moet bij die macro nog hebben dat voordat hij alles uit de userform gaat plaatsen hij eerst in de eerste vrije regel de som zet van de 2 regels erboven, dus bijvoorbeeld in A5 zou hij de eerste vrije regel hebben waar dus niet de waarde van textbox 1 moet zetten maar eerst dus de som van
A3 en A4 en dus in A6 pas de waardes in textbox 1. mijn vraag is hoe kan ik dat nu zo maken dat hij ook die som telkens mee verschuift naar onderen.

met vriendelijke groet, Roel

 

[Niels28]

sorry maar heb je hem wel getest,
volgens mij doe hij precies wat je vraagt.

Bekijk bijlage Onderhoud (1).xlsm

Niels

 

[Avalondra]

beste niels,

Mijn exuses ik heb hem inderdaad niet getest gehad ik heb hem alleen gelezen inderdaad srry hiervoor.

hij deed inderdaad wat ik gevraagd had bedankt hiervoor.


met vriendelijke groet, Roel