Checkbox

[xbox360]

Hoi,

ik heb een soort planning lijst voor het onderhoud van onze vrachtwagens

ik gebruik voor controle een checkbox, als ik bij de laatste beurt ben en ik vink die af komt er een tekst in een bepaalde cel te staat

Private Sub CheckBox4_Click()
If CheckBox4.Value Then
Range("CA4").Value = "4"
Range("BG6").Value = "Vergeet de Tachograaf NIET"
Else
Range("CA4").Value = ""
Range("BG6").Value = ""
End If
End Sub

is het misschien mogelijk om in plaats van de tekst "Vergeet de Tachograaf NIET"
de datum neer te zetten van die dag wanneer er een vink wordt gezet in de checkbox :shocked:
Alvast super bedankt

 

[Gijsbert1]

zo?

Private Sub CheckBox4_Click()
If CheckBox4.Value Then
Range("CA4").Value = "4"
[COLOR="#0000FF"]Range("BG6").Value = Date[/COLOR]
Else
Range("CA4").Value = ""
Range("BG6").Value = ""
End If
End Sub

 

[xbox360]

Nou sneller kan niet en werkt perfect :thumb:
dank je wel voor de snelle reactie

 

[HSV]

Kan ook zo geschreven worden.

Private Sub CheckBox4_Click()
 Range("CA4").Value = iif(checkbox4, 4,"")
 Range("BG6").Value = iif(checkbox4, date, "")
End Sub