Display cell data in target cell upon single-click?

[hybridmoments82]

Hello Forum,

Not very well-versed in Excel but I figured as an IT professional I'd be able to wrap my head around the logic. Here's my question:

I created a nifty looking calendar in Excel for purposes of keeping track of tasks done per-day on a months-long project, however the formatting of the cell shapes/sizes in traditional calendar style only displays 4-6 words clearly before being cut off, and each day has quite a list of sentences within it. I did notice that when I click on the cell, I can see much more of the sentences within the formula bar. What I'd like to do is to create that same functionality but display the data of a "day" cell I click on in a "Notes" cell (D15) at the bottom of the calendar which I made relatively larger than the others. Exactly similar to how the formula bar functions, but inside of the workbook.

Is this possible?

I didn't search this first prior to asking and I am aware that's not very good forum etiquette, so if this has been asked before, please link me and accept my apologies. Just had no idea what keywords to use in this instance.

 

[Jeffrey Mahoney]

Too bad I can't share my screen. I am not sure why this site won't let me paste an image.

 

[hybridmoments82]

Are those to Subs you listed above in the same sheet module? If they are you will need to move one of them to the other Month Sheet.

They are in the same sheet module, but the months and the whole calendar are also in the same sheet.

 

[Jeffrey Mahoney]

Blend the two together

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Dim i As Range
  
  Set i = Intersect(Target, Range("March"))
  If Not i Is Nothing Then
    If i.Count = 1 Then
      Range("Comment1") = i.Value
    Else
      Range("Comment1") = ""
    End If
  Else
    Range("Comment1") = ""
  End If
  
  Set i = Intersect(Target, Range("April"))
  If Not i Is Nothing Then
    If i.Count = 1 Then
      Range("Comment2") = i.Value
    Else
      Range("Comment2") = ""
    End If
  Else
    Range("Comment2") = ""
  End If
  
End Sub

 

[Jeffrey Mahoney]

Basically, you can't have two SUBS that are named the same.