Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 193
  • Last Modified:

Moving to another worksheet, specific locaton and scroll

Folks,
In one worksheet I have a command button that takes me to another worksheet. Here's that code:

Private Sub cmdNumericValues_Click()
Worksheets("Text").Activate
End Sub

Open in new window


Once I get to the other worksheet I have another command button that takes me to a specific location. Here's that code:

Private Sub cmdNumberFormat_Click()
Range("A47").Select
ActiveWindow.ScrollRow = Range("A47").Row

End Sub

Open in new window


These codes work. What I would like to do is combine these to the first command button that eliminates the second command button.
0
Frank Freese
Asked:
Frank Freese
  • 2
2 Solutions
 
Steven HarrisPresidentCommented:
Private Sub cmdNumericValues_Click()
Application.Screenupdating = False
Worksheets("Text").Activate
Range("A47").Select
ActiveWindow.ScrollRow = Range("A47").Row
Application.Screenupdating = True
End Sub

Open in new window

0
 
NorieVBA ExpertCommented:
Try this.
Application.Goto Sheets("Text").Range("A47"), True

Open in new window

0
 
Frank FreeseAuthor Commented:
ThinkSpaceSolutions:
I took this from you:
Worksheets("Text").Activate
Range("A47").Select

It failed looking for an object. I then did this

Worksheets("Text").Activate
Worksheets("Text").Range("A47").Select

leaving the rest of you before and after code as presented and it then worked.

Imnorie - yours worked as presented.

I'd like to share some of the points and thanks to the both of you.
0
 
Frank FreeseAuthor Commented:
Thanks to the both of you. Trying to be fair.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now