Click on number, which pastes that number in another cell

[Nordicrx8]

Hey all!

I scoured the internet and I'm either not finding how to achieve this, or I'm describing my need incorrectly. Hopefully someone can help here!

Basically I created a calendar in excel. I want to be able to click on a date, and have that date appear in another cell. Is this possible? I tried hyperlinks, but I don't think it will work they way I'm looking for.

Any help/thoughts would be greatly appreciated!

thanks all!

 

[mumps]

What is the cell where you want the date to appear?

 

[Nordicrx8]

What is the cell where you want the date to appear?

Any cell will work!

 

[mumps]

I don't know how you designed your calendar so if you click here you can download a sample file. The calendar will pop up if you click on any cell in column A. When you click a date in the calendar, that date will be inserted in the selected cell. You can change the range from column A to suit your needs. To make a change, right click the tab name for Sheet1 and click "View Code". Change the target range ("A:A") to whatever you like.

 

[Nordicrx8]

I don't know how you designed your calendar so if you click here you can download a sample file. The calendar will pop up if you click on any cell in column A. When you click a date in the calendar, that date will be inserted in the selected cell. You can change the range from column A to suit your needs. To make a change, right click the tab name for Sheet1 and click "View Code". Change the target range ("A:A") to whatever you like.

Thank you! I was hoping for an always visible calendar, but I can make this work. A couple questions though:

It's kicking me to debug mode when I click on the cell where the calendar is located. It's highlighting "CalendarFrm.Show" when I run debug. Any ideas? (It works on your workbook)

Also, is there any way to do some conditional formatting to highlight a date in the calendar based on a cell value? EX: If A2 >50, highlight day in red.

Thanks again for all your help!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
CalendarFrm.Show
Application.ScreenUpdating = True
End Sub

 

[mumps]

Did you copy the CalendarFrm from the sample file to your actual file?

 

[Nordicrx8]

I copied the code below. Do I need to copy something else?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
CalendarFrm.Show
Application.ScreenUpdating = True
End Sub

 

[Nordicrx8]

Oh, I just found the form! Trying to figure out how to add it now thanks again! any thoughts on the conditional formatting by chance?

 

[mumps]

You are very welcome, You can easily copy the form simply by dragging and dropping it from one file to the other in the Visual Basic Editor in the left hand pane. I'm not sure about the conditional formatting.

 

[Nordicrx8]

Got it to work! Thanks so much!! Also found a workaround for the conditional formatting. I'm new to VBA, so it looked a bit too complicated for this go around. maybe next time! Thanks again for all your help!