I was hoping for a bar numbering days 1-17. Beneath the bar a curser or similar that when moved left to right will display a different text message depending on where in the timeline the curser is.
Sub scrollbar1_change()
Dim scbval As Long
scbval = ActiveSheet.Shapes("Scroll Bar 1").ControlFormat.Value
Range("J3") = Range("G1").Offset(scbval + 2, 0) 'change J3 to whatever cell you want to show message, even can be on another sheet.
End Sub
Then right click the actual scrollbar and assign macro to scrollbar1.
Use scrollbar and see dynamic messages based on scrollbar value.
We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel
Which adblocker are you using?
Disable AdBlock
Follow these easy steps to disable AdBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the icon in the browser’s toolbar. 2)Click on the "Pause on this site" option.
Go back
Disable AdBlock Plus
Follow these easy steps to disable AdBlock Plus
1)Click on the icon in the browser’s toolbar. 2)Click on the toggle to disable it for "mrexcel.com".
Go back
Disable uBlock Origin
Follow these easy steps to disable uBlock Origin
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.
Go back
Disable uBlock
Follow these easy steps to disable uBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.