PLEASE PLEASE HELP

[oscarr]

I Have an emergency... I deleted a macro !!!
I have 60 rows with checkboxes on cells A1 trough A60 that
automatically as checked were inserting current dates on the cell next
to it.
for some reason a disaster happened and the macro was deleted or messed
up.
I tried searching for help in these groups, but none so far. I found
one, but it is not a macro besides when I use that function all the
other previous dates keep changing when other checkboxes are checked
on in different days of the week.
If you can please guide me to the right answer I will appreciated. Hope
I made sense with my explanation
Thank you so very much.
Oscar

 

[Dave Peterson]

First, do you have an older copy of the workbook where you could copy the code?

If not, I put several checkboxes from the Forms toolbar on a worksheet.

I assigned this macro to each of them:

Option Explicit
Sub testme01()
Dim myCBX As CheckBox
Set myCBX = ActiveSheet.CheckBoxes(Application.Caller)

If myCBX.Value = xlOn Then
With myCBX.TopLeftCell.Offset(0, 1)
.Value = Date
.NumberFormat = "mm/dd/yyyy"
End With
Else
myCBX.TopLeftCell.Offset(0, 1).Value = ""
End If
End Sub


If the checkbox is checked, it puts the date. If it's not checked, it clears
that cell.

 

[oscarr]

It works !...It works !...It works !...It works !...
Thank you thank you thank you...
I love you ... I love you and I love you.... thank you thank you you
rescued me BIG TIME

 

[Dave Peterson]

So are you saying you got it to work??? <vbg>

It works !...It works !...It works !...It works !...
Thank you thank you thank you...
I love you ... I love you and I love you.... thank you thank you you
rescued me BIG TIME

 

[oscarr]

Yes. Thanks to you...
people like you that help others should have the best luck for the rest
of their life... kinda like karma. today for me, tomorrow for you

 

[CLR]

Sometimes being late is a good thing.........<g>

Vaya con Dios,
Chuck, CABGx3