SystemsX007
New Member
- Joined
- Jan 17, 2013
- Messages
- 3
Hi,
I created a very basic routine that utilizes a basic form setup with the activation of the calendar object. My VBA code is stored as a public sub routine on sheet 1, where when a user clicks on any cell in columns A, B or C from any row greater than 25, a calendar pops up and upon the user double clicking the day they want, the cell they were on shows the date in excel format.
I created the project in Office/Excel 2K7 but when I email it to a user on Office/Excel 2010, they get an error that the object is not valid on their machine, or object is not configured on this machine error... sorry I don't have the exact error message on hand. I had to use the "Microsoft Calendar Control 2007" Reference for this project... this may be my issue, but couldn't think of another way with compatibility in mind.
I'm using target range row/column defintions for the quadrant that is part of this routine, and everything is public. File was saved as .xlsm.
Any ideas? Thank you!
Calendar Form Macro:
Public Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
CalendarForm1.Hide
End Sub
Sheet1 Selection Change Cell Click Macro
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 25 And Target.Column <= 3 Then
Load CalendarForm1
CalendarForm1.Show
End If
End Sub
I created a very basic routine that utilizes a basic form setup with the activation of the calendar object. My VBA code is stored as a public sub routine on sheet 1, where when a user clicks on any cell in columns A, B or C from any row greater than 25, a calendar pops up and upon the user double clicking the day they want, the cell they were on shows the date in excel format.
I created the project in Office/Excel 2K7 but when I email it to a user on Office/Excel 2010, they get an error that the object is not valid on their machine, or object is not configured on this machine error... sorry I don't have the exact error message on hand. I had to use the "Microsoft Calendar Control 2007" Reference for this project... this may be my issue, but couldn't think of another way with compatibility in mind.
I'm using target range row/column defintions for the quadrant that is part of this routine, and everything is public. File was saved as .xlsm.
Any ideas? Thank you!
Calendar Form Macro:
Public Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
CalendarForm1.Hide
End Sub
Sheet1 Selection Change Cell Click Macro
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 25 And Target.Column <= 3 Then
Load CalendarForm1
CalendarForm1.Show
End If
End Sub