userform neemt getallen uit excelsheet niet over

[willie76]

Forumleden,

In mn userform worden de getallen die in het excel-spreadsheet worden berekend niet overgenomen.
Ik heb al wel in de programmeercode een Private Sub UserForm_Initialize() gezet, maar als ik een waarde aanpas gaat wordt het gemiddelde in de spreadsheet wel opnieuw berekend, maar deze wordt dan niet weergegeven (ververst) in het userform.....

Wie heeft de oplossing ???
Het zal vast weer een ohh jaatje zijn.....

Alvast bedankt voor de hulp

Bijlage van het bestand:
Bekijk bijlage Copy of calibratie seedloader sensor.xlsm

Met groeten,

Willie

 

[alberto10]

willie76,
Is het zoiets wat je bedoeld ?
Zie bijgevoegd bestand.

 

[willie76]

idd, thx so far.
Zoals je waarschijnlijk wel zag is het nog een heel stuk "Work-in-progress", maar dt was tot nu toe een van mn grootste struikelpunten

 

[willie76]

Nu dacht ik toch dat het opgelost was, maar het enige wat ik veranderd heb is dat ik de checkboxen heb gedefinieerd en nu doe ie het weer niet.....
Ik zal wel gek zijn, maar das toch raar ????

enig idee ???

het aangepaste bestand:
Bekijk bijlage Copy of calibratie seedloader sensor.xlsm

 

[alberto10]

willie76,
Plaats onderstaande code bij werkblad Data.

Private Sub Worksheet_Change(ByVal Target As Range)
    UserForm1.TextBox11.Value = WorksheetFunction.Round(Sheets("Data").Range("B4").Value, 3)
    UserForm1.TextBox12.Value = WorksheetFunction.Round(Sheets("Data").Range("B5").Value, 3)
    UserForm1.TextBox13.Value = WorksheetFunction.Round(Sheets("Data").Range("B9").Value, 3)
    UserForm1.TextBox27.Value = WorksheetFunction.Round(Sheets("Data").Range("B13").Value, 3)
    UserForm1.TextBox28.Value = WorksheetFunction.Round(Sheets("Data").Range("B14").Value, 3)
    UserForm1.TextBox15.Value = WorksheetFunction.Round(Sheets("Data").Range("B21").Value, 3)
    UserForm1.TextBox14.Value = WorksheetFunction.Round(Sheets("Data").Range("B22").Value, 3)
    UserForm1.TextBox20.Value = WorksheetFunction.Round(Sheets("Data").Range("B23").Value, 3)
    UserForm1.TextBox24.Value = WorksheetFunction.Round(Sheets("Data").Range("B24").Value, 3)
    UserForm1.TextBox23.Value = WorksheetFunction.Round(Sheets("Data").Range("B25").Value, 3)
    UserForm1.TextBox22.Value = WorksheetFunction.Round(Sheets("Data").Range("B26").Value, 3)
    UserForm1.TextBox21.Value = WorksheetFunction.Round(Sheets("Data").Range("B27").Value, 3)
End Sub