CheckBox does not save value

[Tdp]

I have the following code
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Me.TextBox10.Value = Worksheets("Sheet4").Range("E9")
Else
Me.TextBox10.Value = 0
End If
End Sub

The problem I am having is that when I close the UserForm, the values in the
textbox do not save. It seems to default to random number, in this case 74!!??

Can any one hepl?

 

[Jim Thomlinson]

So why close the form. Just hide it...

userform1.hide
or
me.hide

 

[Tdp]

Brilliant Jim.
So simple.......did'nt think of that.
Many thanks

 

[Tdp]

Spoke too soon.
Iv added a bitton to hide the form, but I close the folder and open it again
it does'nt save the values. Still reverts to the value of 74?

 

[ShaneDevenshire]

Hi,

If you weren't closing the file you could store the value by defining a
global variable, which would survive until you closed the spreadsheet.
However, the easiest way if you are going to close the file is to store the
value in a cell in the spreadsheet:

Sheet1!A1=Me.TextBox10

(don't need the Value argument)

Now to get that value back into the textbox add the following code to the
user form:

Private Sub UserForm_Initialize()
Me.TextBox10 = Sheets("Sheet1").Range("A1")
End Sub

A recommendation - give your user form controls names such as txtDate.

 

[Tdp]

Thanks Shane,
I worked out now. Did something the same as you but my codes are alittle
longer but does the job.
I'v used:
Me.TextBox10.Value = Worksheets("Sheet4").Range("E19").Value

Worksheets("Sheet4").Range("E19") = TextBox10.Value
Seems to work ok!