How to populate date within same cell as checkbox when checked

[kmsprague]

Hi all,
I've exhausted my google searches to find answers and am hoping you can help! I'm wanting to use checkboxes to show when each step of a process has been completed, and when the person completes the task and checks the box the date populates within the same cell. Every instruction I've found has shown how to populate the date in the following cell, but not the same cell as the checkbox. Do you happen to know a way to make this happen? Here's what I'm hoping for:

Any help is greatly appreciated! Thank you!

 

[kevin9999]

Try assigning the following macro to your checkboxes:

Sub Change_Check_Boxes()
    Dim c As Excel.CheckBox, r As Range
    Set c = ActiveSheet.CheckBoxes(Application.Caller)
    Set r = c.TopLeftCell
    If c.Value = xlOn Then r.Value = Format(Date, "mm/dd/yyyy") Else r = ""
End Sub

 

[kmsprague]

Try assigning the following macro to your checkboxes:

Sub Change_Check_Boxes()
    Dim c As Excel.CheckBox, r As Range
    Set c = ActiveSheet.CheckBoxes(Application.Caller)
    Set r = c.TopLeftCell
    If c.Value = xlOn Then r.Value = Format(Date, "mm/dd/yyyy") Else r = ""
End Sub

Hi kevin9999!

This is SO close to working! It's putting the date in the cell above the checkbox instead of within the cell with the checkbox. Thoughts on what to change? I'm still learning code.

 

[kevin9999]

That'll be because your checkbox top left corner will be in the cell above where it sits - right-click on the checkbox & you'll see what I mean (it's based on the larger/outer square).
Either, you can increase your row height until the top left corner sits on the same row, or if that's not an option, use the following code instead:

Sub Change_Check_Boxes()
    Dim c As Excel.CheckBox, r As Range
    Set c = ActiveSheet.CheckBoxes(Application.Caller)
    Set r = c.TopLeftCell
    If c.Value = xlOn Then r.Offset(1) = Format(Date, "mm/dd/yyyy") Else r.Offset(1) = ""
End Sub

 

[kmsprague]

That'll be because your checkbox top left corner will be in the cell above where it sits - right-click on the checkbox & you'll see what I mean (it's based on the larger/outer square).
Either, you can increase your row height until the top left corner sits on the same row, or if that's not an option, use the following code instead:

Sub Change_Check_Boxes()
    Dim c As Excel.CheckBox, r As Range
    Set c = ActiveSheet.CheckBoxes(Application.Caller)
    Set r = c.TopLeftCell
    If c.Value = xlOn Then r.Offset(1) = Format(Date, "mm/dd/yyyy") Else r.Offset(1) = ""
End Sub

I didn't realize my checkbox was above the cell. Thank you so very much! This worked!

 

[kevin9999]

You're welcome, and thanks for the feedback