Macro to get time stamp in a cell next to it

[sturnusek]

Hi,

I have been trying for a while now, but I can't seem to be able to get over this.

I'm looking for a macro/formula, which will be based on a Check box to return time. Once it's ticked, I want the time of the tick to be placed in a cell next to it.

Any ideas?

Thanks

 

[Logit]

.

Option Explicit


Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Me.Range("C3").Value = Time
    Else
        Me.Range("C3").Value = ""
    End If
End Sub

 

[sturnusek]

Thank you for your reply and your time.

I tried to use the code provided, but everytime it's assigned to a Checkbox and clicked, VBA returns compile error. Any idea? Thank you

 

[Logit]

.
Make certain your checkbox is named Checkbox1 .. or .. change the name of the checkbox in the macro code to match the name of your
actual checkbox.

Secondly, do not use a UserForm checkbox. Use an ActiveX checkbox.

 

[sturnusek]

Logit,

I have tried everything that you listed and still had no joy. I recently updated to Office 365 and just noticed that most of my formulas are not functioning properly, could that be the case?

Thanks

 

[sturnusek]

I have managed to do it now, all I had to do is to change the value from Time to NOW()

I have a question though, is there anyway to edit this code so it's going to be a bit more flexible? I want to have over 5000 tick boxes in each row and it'd be time consuming to correct the codes in all of them. Could it be working like on a code you did for me previously, where a time is being generated below of the one that is already entered?

Thanks

 

[My Aswer Is This]

I can never see any reason why someone would need 5000 checkbox's in their sheet.
If you want the current time entered in column A when you click a checkbox.

Why not double click on the cell in column 1 and the time can be entered with no need for checkboxes.

This type script would have about four lines of code that would work on all 5000 rows or more.

Would not something like this work.