slight adjustment to existing code.

[omairhe]

Hello,

I wanted to adjust the row scroll when the following code runs.

Sub search_a()
   Dim Fnd As Range
   Set Fnd = Range("H:H").Find("b*", , xlValues, xlWhole, , , False, False)
   If Not Fnd Is Nothing Then Cells(Fnd.Row, ActiveCell.Column).Activate
End Sub

the above code will take me to the first instance of a word starting from the letter "b" however, the row will sometimes be down the screen or sometimes on top of the screen and other times at the center. Could someone program it so the searched word is at the center of the screen always.

will appreciate.

Thank u.

 

[Jeffrey Mahoney]

Please try this:

If Not Fnd Is Nothing Then
  Application.Goto Cells(Fnd.Row, ActiveCell.Column), scroll:=True
End If

 

[omairhe]

Please try this:

If Not Fnd Is Nothing Then
  Application.Goto Cells(Fnd.Row, ActiveCell.Column), scroll:=True
End If

scroll:=True seems interesting. Please guide me as to how to use the scroll True for the arrow keys aswell. for instance an arrow down is pressed then scroll true. along with down.

 

[Jeffrey Mahoney]

According to Microsoft

[FONT=&quot]True[/FONT][FONT=&quot] to scroll through the window so that the upper-left corner of the range appears in the upper-left corner of the window. [/FONT][FONT=&quot]False[/FONT][FONT=&quot] to not scroll through the window. The default is [/FONT][FONT=&quot]False[/FONT][FONT=&quot].[/FONT]

 

[Jeffrey Mahoney]

I'm not sure I understand your question regarding the "Arrow keys"

 

[omairhe]

I'm not sure I understand your question regarding the "Arrow keys"

Ok suppose I am at row 1 of column A. I hit the down key and this will take me to row 2 of column A. All good but what I additionally need now is that the first row be scrolled up. and this will make the row 2 be on top of screen window instead of the first row.

does it make any sense? thanks for your time.

 

[Jeffrey Mahoney]

Are you asking to scroll in real time without the code; just normal arrow down in the worksheet? if so, then turn on your SCROLL LOCK temporarily. Or use your mouse wheel.

Normally I wouldn't even select cells in my code unless it was the very last thing I do in the SUB. I reference cells by their address to copy and paste. You can use the same code I provided to GOTO a cell, no matter the distance from the the last selected cell.

Jeff

 

[omairhe]

Are you asking to scroll in real time without the code; just normal arrow down in the worksheet?

Kind of , Yes.

something like...

    ActiveWindow.ScrollRow = Selection.Row
    ActiveWindow.ScrollColumn = Selection.Column