Text box that moves when scrolling

[glad_ir]

Hello everybody,

I’m hoping for some help please. I’d like to achieve a text box or text in a row that centres on the screen as the user scrolls horizontally but moves with the row when they scroll vertically.
Is this even achievable? Any thoughts much appreciated.

thank you, Iain

 

[glad_ir]

Hi - thank you for your patience.....it is now working now I've fixed my incompetence (had left myself in design mode)!! I have done some very basic VBA coding but nothing of this complexity. I'm discovering ActiveX controls for the first time.....lots to learn. Thank you very much for your help. I really appreciate it

Hi - I am not going to tick the solution found check box as really hoping for a scroll solution where the textbox stays in the same row but thanks again for your help and patience.

 

[My Aswer Is This]

Hi - thank you for your patience.....it is now working now I've fixed my incompetence (had left myself in design mode)!! I have done some very basic VBA coding but nothing of this complexity. I'm discovering ActiveX controls for the first time.....lots to learn. Thank you very much for your help. I really appreciate it

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[My Aswer Is This]

Not sure why you want the Texbox seen at all times.
But would a Userform work for you.
A Userform can be seen at all times in the center of the screen with Text on the Userform.
Would something like this work?
Do you know what a UserForm is?
What do you use the Textbox for?
And you can still work on your sheet with the userform visible

 

[glad_ir]

Hi, I've not used a userforms before.
I'll try to explain what I'm trying to achieve.....I have a sheet which contains a number of series of objects. Series 1 contains objects and formula in cells C5 to FG15 with the title for the series in cell C5. As the user scrolls right they lose the title. I'd like the title for the series to be visible in row 5 as the user scrolls. I have considered putting the title on a frozen pane to the left by some of the titles are big and I don't want a large frozen pane taking up space. I may be asking too much here?

 

[glad_ir]

Hi, I've not used a userforms before.
I'll try to explain what I'm trying to achieve.....I have a sheet which contains a number of series of objects. Series 1 contains objects and formula in cells C5 to FG15 with the title for the series in cell C5. As the user scrolls right they lose the title. I'd like the title for the series to be visible in row 5 as the user scrolls. I have considered putting the title on a frozen pane to the left by some of the titles are big and I don't want a large frozen pane taking up space. I may be asking too much here?

Is there a way in the formula you sent previously of moving the message box horizontally based on where the user selects cells but fixing it's horizontal position.....i.e. getting it to move left and right but not up and down? that could work. Thanks

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified  11/24/2020  3:05:59 AM  EST

    TextBox1.Top = ActiveCell.Top
    TextBox1.Left = ActiveCell.Offset(, 2).Left
    
End Sub

 

[My Aswer Is This]

Lets try this we need to keep TextBox to Right of active cell so it does not get hidden as you go to the right

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified  11/24/2020  3:16:31 AM  EST
If ActiveCell.Column > 3 Then TextBox1.Top = ActiveCell.Top
 If ActiveCell.Column > 3 Then TextBox1.Left = ActiveCell.Offset(, -2).Left
TextBox1.Value = Range("C5").Value
End Sub

 

[glad_ir]

Lets try this we need to keep TextBox to Right of active cell so it does not get hidden as you go to the right

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified  11/24/2020  3:16:31 AM  EST
If ActiveCell.Column > 3 Then TextBox1.Top = ActiveCell.Top
If ActiveCell.Column > 3 Then TextBox1.Left = ActiveCell.Offset(, -2).Left
TextBox1.Value = Range("C5").Value
End Sub

Hi - thank you for this. This is keeping the box to the left of the cursor as you say. Is there any way to keep the Text box in say row 5 but directly above the cell selected by the user in the range C5:FG15? e.g. if the user selects any cell between C6 and C15 the Text box will move to cell C5, then if they select anywhere between H6 and H15 the Text box will move to H5 etc?

 

[My Aswer Is This]

Are you sure this is correct?
You said:
C5:FG15

 

[glad_ir]

Hi, yes each series is shallow and wide. Many of the rows are auto hidden based on user inputs but it’s still pretty wide and the title, whether on the left, right or in the middle gets left behind with the inevitable horizontal scrolling.