ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Goto Button (https://www.excelbanter.com/excel-programming/340056-goto-button.html)

Optitron[_6_]

Goto Button
 

I need a button to go to the cell containing what ever I type into A1 on
the same sheet. For example if I type in AF-1 and click the button, it
scrolls jumps to that cell.


--
Optitron
------------------------------------------------------------------------
Optitron's Profile: http://www.excelforum.com/member.php...o&userid=26729
View this thread: http://www.excelforum.com/showthread...hreadid=467544


dominicb[_124_]

Goto Button
 

Goo afternoon Optitron

Sub Jump()
a = Range("A1").Value
Range(a).Activate
End Sub

Type the code above into an empty macro module. Once done, draw
button using the forms bar, assign the macro Jump to the button an
that will do the trick. But use the syntax AF1, not AF-1.

HTH

Dominic

--
dominic
-----------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...fo&userid=1893
View this thread: http://www.excelforum.com/showthread.php?threadid=46754


Optitron[_7_]

Goto Button
 

Whoops...I meant to say "AF-1" as in; that's the contents of the cell I
want to go to, not cell AF1. Basically I'm trying to get to the name of
a toolbox on a list of 3000 rows without scrolling there.


--
Optitron
------------------------------------------------------------------------
Optitron's Profile: http://www.excelforum.com/member.php...o&userid=26729
View this thread: http://www.excelforum.com/showthread...hreadid=467544


dominicb[_125_]

Goto Button
 

Hi Optitron

OK. Take two...!

Sub TryThisInstead()
a = Range("A1").Value
Cells.Find(What:=a).Activate
End Sub

HTH

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=467544


Jim Thomlinson[_4_]

Goto Button
 
Public Sub FindValue()
Dim wks As Worksheet

Set wks = ActiveSheet

wks.Cells.Find(wks.Range("A1").Value, wks.Range("A1")).Select
End Sub

--
HTH...

Jim Thomlinson


"Optitron" wrote:


Whoops...I meant to say "AF-1" as in; that's the contents of the cell I
want to go to, not cell AF1. Basically I'm trying to get to the name of
a toolbox on a list of 3000 rows without scrolling there.


--
Optitron
------------------------------------------------------------------------
Optitron's Profile: http://www.excelforum.com/member.php...o&userid=26729
View this thread: http://www.excelforum.com/showthread...hreadid=467544



Optitron[_8_]

Goto Button
 

That did it, thanks dominicb

--
Optitro
-----------------------------------------------------------------------
Optitron's Profile: http://www.excelforum.com/member.php...fo&userid=2672
View this thread: http://www.excelforum.com/showthread.php?threadid=46754



All times are GMT +1. The time now is 09:04 PM.

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