Birdy01962
New Member
- Joined
- Jun 27, 2016
- Messages
- 26
I have a golf spreadsheet with hole numbers(row 3) and associated scores(row 5) which dynamically change weekly. These scores are totalled in column J, Scores are columns K - T.
I have a mousehover function on Column J (totals). When I hover mouse over Column J I would like to see Columns K - T detailed with associated Hole Number (rows 1 and row 7). At moment I have tested the hover function with Show Msgbox and Clear Msgbox works fine.
This seems similar to the Hyperlink function to access other files or Web pages but I only want a temporary display of hole and scores while I hover with mouse.
Code so far - (just to display the data from selected columns) which I have gleaned from various web sites, don't fully understand.
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
showf9scores
End Sub
Sub showf9scores()
'MsgBox "abc"
With Sheet2.Shapes("cbbestgross").Visible = msoCTrue ' cbbestgross is named cell in column 8
If Range("k10").Value = "38" Then
Range("l10:u10").Visible = msoCTrue
Else
End If
End With
End Sub
View attachment 63945
Any help would be appreciated
I have a mousehover function on Column J (totals). When I hover mouse over Column J I would like to see Columns K - T detailed with associated Hole Number (rows 1 and row 7). At moment I have tested the hover function with Show Msgbox and Clear Msgbox works fine.
This seems similar to the Hyperlink function to access other files or Web pages but I only want a temporary display of hole and scores while I hover with mouse.
Code so far - (just to display the data from selected columns) which I have gleaned from various web sites, don't fully understand.
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
showf9scores
End Sub
Sub showf9scores()
'MsgBox "abc"
With Sheet2.Shapes("cbbestgross").Visible = msoCTrue ' cbbestgross is named cell in column 8
If Range("k10").Value = "38" Then
Range("l10:u10").Visible = msoCTrue
Else
End If
End With
End Sub
View attachment 63945
Any help would be appreciated