ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Moving to a cell from a button (https://www.excelbanter.com/excel-programming/374184-moving-cell-button.html)

JT

Moving to a cell from a button
 
Hi...

I want to move to a certain cell by clicking a button, Ive used the macro
tool but it always adds the moves. I want to just jump from anywere on the
sheet to the cell by pushing the button.

heres what I have now.. but each time I push the button, it moves down 60
more rows....

Sub magneticsection()
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=60
Range("D76").Select
Application.ScreenUpdating = True
End Sub
--
Thanks JT

moon[_7_]

Moving to a cell from a button
 
Hi,

Sometimes macro recorder records too much...
Try this one.


Sub magneticsection()
Cells(76, 4).Select
End Sub



"JT" schreef in bericht
...
Hi...

I want to move to a certain cell by clicking a button, Ive used the macro
tool but it always adds the moves. I want to just jump from anywere on the
sheet to the cell by pushing the button.

heres what I have now.. but each time I push the button, it moves down 60
more rows....

Sub magneticsection()
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=60
Range("D76").Select
Application.ScreenUpdating = True
End Sub
--
Thanks JT




JT

Moving to a cell from a button
 
Thanks ... worked fine... been a few years since I played with excel...

--
Thanks JT


"moon" wrote:

Hi,

Sometimes macro recorder records too much...
Try this one.


Sub magneticsection()
Cells(76, 4).Select
End Sub



"JT" schreef in bericht
...
Hi...

I want to move to a certain cell by clicking a button, Ive used the macro
tool but it always adds the moves. I want to just jump from anywere on the
sheet to the cell by pushing the button.

heres what I have now.. but each time I push the button, it moves down 60
more rows....

Sub magneticsection()
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=60
Range("D76").Select
Application.ScreenUpdating = True
End Sub
--
Thanks JT






All times are GMT +1. The time now is 06:15 AM.

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