LinkBack URL
About LinkBacks
Hello....
Does anybody have a developed Macro for a calendar that opens when a cell is selected?
Thanks much
Hello....
Does anybody have a developed Macro for a calendar that opens when a cell is selected?
Thanks much
Hi Latlong
Try the Code in the attached...works on any cell in Column A.
It's non ActiveX so requires no references.
John
If you have issues with Code I've provided, I appreciate your feedback.
In the event Code provided resolves your issue, please mark your Thread as SOLVED.
If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.
Thank you very much John. Works great! Should I decide to move to Column B, is that an easy fix?
Scott
Originally Posted by jaslake
Hi Scott
Right Click on the Target Sheet Tab...Select View Code...Change this Line of Code
Please Login or Register to view this content.
Perfect. Thanks again your help!
Cheers!
Hi Scott
Right Click on the Target Sheet Tab...Select View Code...Change this Line of CodePlease Login or Register to view this content.
You're welcome...glad I could help. Thanks for the Rep.
Hey there Users, can I ask - is there a way to link the date for a new cell in the calendar, to the date in the last entered cell, so that sequential dates can be selected without having to reselect year, month, day again?
Eg, for historical date entries I have to chose each time the year, month & day.
Thanks
Alternatively, can I point to a date on the SS to be used as the reference date for the sheet?
Eg, the calendar always refers to 2018-07-22 as the base date.
Hi AdyHawk
Welcome to the Forum!
Please see Forum Rule #4 above...
You will need to start your own Thread4. Do not post a new help request in an existing thread. (B)
Ah - thanks for the clarification (sorry).
FYI I fixed it so it works for me - by referring to a date cell on the sheet, all subsequent calendar references point to this start date:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Obj As Object
Dim ws As Worksheet
Set ws = ActiveSheet
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 2 Then
If IsDate(Target.Value) Then
myDate = Target.Value
Else
myDate = Range("F5").Value
End If
Set Obj = PassUF()
Obj.Show_Cal
End If
Application.EnableEvents = True
End Sub
So I am entering dates in Column 2, and using the Sheet Date Period cell as the reference (F5).
Hope this helps anyone else looking for this solution!
Last edited by AdyHawk; 11-18-2019 at 01:10 AM.
Administrative Note:
Welcome to the forum.
We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original.
Please see Forum Rule #4 about hijacking and start a new thread for your query.
If you are not familiar with how to start a new thread see the FAQ: How to start a new thread
As this is an old post your help is probably lost to many...
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks