Besten,
ik wil graag de waarde uit 3 checkboxen laten weergeven als Ja-Nee in een sheet. Hiervoor gebruik ik onderstaande code. Hiermee krijg ik wel 'onwaar' te zien in mijn sheet, maar niet 'waar' en al helemaal geen ja-nee. Ik hoop dat iemand me kan vertellen welke stap ik oversla. Alvast bedankt.
ik wil graag de waarde uit 3 checkboxen laten weergeven als Ja-Nee in een sheet. Hiervoor gebruik ik onderstaande code. Hiermee krijg ik wel 'onwaar' te zien in mijn sheet, maar niet 'waar' en al helemaal geen ja-nee. Ik hoop dat iemand me kan vertellen welke stap ik oversla. Alvast bedankt.
Code:
Private Sub chkAutocad_Click()
'aangeven wel / geen kennis van Autocad
If chkAutocad = True Then
chkAutocad.Value = "Ja"
Else
chkAutocad.Value = "Nee"
End If
End Sub
Private Sub chkCadmatic_Click()
'aangeven wel / geen kennis van Cadmatic
If chkCadmatic = True Then
chkCadmatic.Value = "Ja"
Else
chkCadmatic.Value = "Nee"
End If
End Sub
Private Sub chkNX_Click()
'aangeven wel / geen kennis van NX
If chkNX = True Then
chkNX.Value = "Ja"
Else
chkNX.Value = "Nee"
End If
End Sub
Private Sub cmbInvoerOpslaan_Click()
'zoeken naar lege cel in rij jaar en deze activeren
Cells.Find(what:="", After:=Range("D2"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).activate
'invullen van de score
With Sheets("technische kennis CNS")
ActiveCell.Offset(61, 0) = Me.chkAutocad.Value
ActiveCell.Offset(62, 0) = Me.chkCadmatic.Value
ActiveCell.Offset(63, 0) = Me.chkNX.Value
End With