Get Macro to Scroll to Specific Row

[DougRobertson]

Hello,

If:

Cell C1 = "Sunday",
Cell C2 = "Monday",
Cell C3 = "Tuesday",
Cell C4 = "Wednesday" etc;

and iDay = "Wednesday",

is there a way to have a macro scroll to where Row 4 would be at the top of my screen?

Thanks in advance,

~ Doug

 

[VoG]

Try like this

Sub test3()
Const iDay As String = "Wednesday"
Dim Found As Range
Set Found = Columns("C").Find(what:=iDay, LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then Application.Goto Found, True
End Sub

 

[JackDanIce]

Depending on how you're defining iDay, maybe something like:

Sub scrollme()
 
Dim iDay As String
Dim i As Long, j As Long
 
iDay = InputBox("Enter value you want to scroll to:")
 
i = Range("C" & Rows.Count).End(xlUp).row
 
On Error GoTo Notfound
 
j = Range("C1:C" & i).Find(what:=iDay, after:=Range("C1")).row
ActiveWindow.ScrollRow = j
Exit Sub
 
Notfound:
MsgBox "Your value is not found, macro exiting"
 
End Sub

 

[DougRobertson]

A thousand thanks, guys!

I'll try it out as soon as I can.


~ Doug

 

[DougRobertson]

Hi guys,

I happy to report that both programs worked quite nicely. One for having the exact cell show up in the top left hand corner, and the other for just having the row brought to the top of the screen.

Nicely done! I appreciate you sharing your knowledge on things Excel.


~ Doug

 

[JackDanIce]

You're welcome