PDA

View Full Version : Solved: CheckBox



jammer6_9
04-27-2007, 11:44 PM
Hi all,

How can I change the Checkbox value "True or False" into "Yes or No" and to be saved in the worksheet.


Private Sub chkFeasibilityYes_Click()
If chkFeasibilityYes.Value = True Then
chkFeasibilityYes.Value = "Yes"
End If
End Sub

Private Sub chkFeasibilityNo_Click()
If chkFeasibilityNo.Value = True Then
chkFeasibilityNo.Value = "No"
End If
End Sub

Private Sub cmdProceed_Click()

Set c = Range("a65536").End(xlUp).Offset(1, 0)
Application.ScreenUpdating = False
c.Value = Me.cmbCountry.Value
c.Offset(0, 1).Value = Me.chkFeasibilityYes.Value '<-- checkbox

Application.ScreenUpdating = True
End Sub

shasur
04-28-2007, 12:04 AM
Here you have it

'Private Sub chkFeasibilityYes_Click()
' If chkFeasibilityYes.Value = True Then
' chkFeasibilityYes.Value = "Yes"
' End If
'End Sub
'
'Private Sub chkFeasibilityNo_Click()
' If chkFeasibilityNo.Value = True Then
' chkFeasibilityNo.Value = "No"
' End If
'End Sub

Private Sub cmdProceed_Click()

Set c = Range("a65536").End(xlUp).Offset(1, 0)
Application.ScreenUpdating = False
c.Value = 1 ' Me.cmbCountry.Value
c.Offset(0, 1).Value = IIf(Me.chkFeasibilityYes.Value, "Yes", "No") '<-- checkbox

Application.ScreenUpdating = True
End Sub


Please not: I have commented the check box events also

jammer6_9
04-28-2007, 01:20 AM
Thanks...

mdmackillop
04-28-2007, 03:36 AM
Hi Shasur,
Welcome to VBAX
When you post code, select it and click the VBA button to format it as shown. It makes it more readable.
Regards
MD

shasur
04-28-2007, 07:57 PM
Thanks for your information MD

I will do the VBA formatting