ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Command Button Always Visible in window (https://www.excelbanter.com/excel-discussion-misc-queries/64366-command-button-always-visible-window.html)

avveerkar

Command Button Always Visible in window
 

Help. How do I place Command Button on a sheet so that it is always
visible in the window and does not go out when the page is scrolled?


--
avveerkar
------------------------------------------------------------------------
avveerkar's Profile: http://www.excelforum.com/member.php...o&userid=30338
View this thread: http://www.excelforum.com/showthread...hreadid=500030


ScottO

Command Button Always Visible in window
 
Use WindowFreeze Panes to create an area which will always be
visible, then plonk your Button in there.
Rgds,
ScottO

"avveerkar"
wrote in message
...
|
| Help. How do I place Command Button on a sheet so that it is always
| visible in the window and does not go out when the page is
scrolled?
|
|
| --
| avveerkar
| -------------------------------------------------------------------
-----
| avveerkar's Profile:
http://www.excelforum.com/member.php...o&userid=30338
| View this thread:
http://www.excelforum.com/showthread...hreadid=500030
|



Jack Sons

Command Button Always Visible in window
 
Avveerkar,

What you need is the macro below. Put it in the sheet module.
No need to freeze panes. When you have scrolled and the original Command
Button is out of sight, another one will appear in the upper left corner of
the visible part of your worksheet when you click on any visible cell.

I got this macro from one of the very helpful people in this NG; I am happy
to pass it on.

HTH

Jack Sons
The Netherlands

---------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If ActiveCell.Column 16 Then

Dim myShape As Shape

Set myShape = Me.Shapes("historie") '<== change the text between "" into
the name of your Command Button

With Me.Cells(1, ActiveWindow.ScrollColumn)
myShape.Top = 30 '.Top
myShape.Left = .Left
End With

End If
End Sub
-----------------------------------------------------------------------------------
"avveerkar" schreef
in bericht ...

Help. How do I place Command Button on a sheet so that it is always
visible in the window and does not go out when the page is scrolled?


--
avveerkar
------------------------------------------------------------------------
avveerkar's Profile:
http://www.excelforum.com/member.php...o&userid=30338
View this thread: http://www.excelforum.com/showthread...hreadid=500030





All times are GMT +1. The time now is 10:23 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com