placing checkbox value into sheet via userform

[keithkemble]

I am trying to put the value of the checkbox (1 if true, 0 if false) into a cell in the sheet.

The first sub does yield the correct values while running, but when I get to the writedata sub it has lost its value despite being Publi.

Can any one advise how to hold on to the value. All subs are in the same Userform module.
The name of the checkbox is checkbox1

Public Sub checkBox1_Click()
Dim Chk1 As Variant
If CheckBox1.Value = True Then
Chk1 = 1
Else: Chk1 = 0
End If

End Sub'
Sub WriteData(dbRow As Integer)
Dim i As Integer, fieldValue As Variant

' Enter data in fields
'
For i = 1 To totalFields
fieldValue = textBoxes(textboxNames(i - 1)).Text
Cells(dbRow, i).Offset(0, 4).Value = fieldValue
Next 'i

Cells(dbRow, i).Offset(0, 0).Value = Chk1
Cells(dbRow, i).Offset(0, 1).Value = Chk2
'
' Select first cell in record
'
' Cells(dbRow, 1).Select
End Sub

Thanks

 

[rikrak]

hi,

Put "Dim Chk1 As Variant" in Thisworkbook-> general->declaration

 

[keithkemble]

I gave it a go but it does not work.

I put a watch on the variable. During the click routine the variable holds 1 but when it get to the write routine it is empty.

 

[rikrak]

Why don't you set the value in the WriteData routine?

if sheets(1).CheckBox1.value then Cells(dbRow, i).Offset(0, 0).Value = 1

 

[keithkemble]

The checkbox is on a userform (not a sheet) and therefore I have to carry the value in a variable.

The rest of the routine (the other text is placed correctly in the list)
MY problem is I am Losing the stored value.

 

[rikrak]

On 2002-09-16 08:57, keithkemble wrote:
The checkbox is on a userform (not a sheet) and therefore I have to carry the value in a variable.

The rest of the routine (the other text is placed correctly in the list)
MY problem is I am Losing the stored value.

Try this
"Public Chk1 As Variant" in Module-> general->declaration