Write existing short code another way to rule out column shift

[ipbr21054]

Currently using this code below but an odd thing keeps happening & now looking to get it written another way please to avoid it.

I select the POSTAGE sheet & it always scrolls so last row with values are shown, THIS IS FINE.
I like to have the cell in column B of last row with values selected.

Currently the odd thing is the page moves so column B is the firt column i see on the screen meaning column A is off the screen.
I change B in the code for E & it does the same where column E is the first column i see on the screen meaning column A,B,C & D are off the screen.

Dont see why the code cant just stay as it is & have the cell in column B selected.
Changing the Offset values just moves the selected cell down or right etc so maybe not needed but whatever i try its either the same or run time errors

Private Sub Worksheet_Activate()
Application.Goto Sheets("POSTAGE").Range("B" & Rows.count).End(xlUp).Offset(0, 0), True
ActiveWindow.SmallScroll UP:=15
End Sub

 

[Alex Blakenburg]

The "True" at the end of your Goto line tells it to make that cell the top left hand corner of the screen.
Just remove the ", True"

Application.Goto method (Excel)

Office VBA reference topic

learn.microsoft.com

 

[ipbr21054]

Doesnt seem to work for me,code in use is shown below.

I select the first sheet followed by POSTAGE sheet.
Last cell in column B is selected but A is off the page.

I select another sheet then POSTAGE sheet again & this time dont even see the last row.
This seems to be the same pattern as opposed to seeing the last row each time with cell B selected

Private Sub Worksheet_Activate()
Application.Goto Sheets("POSTAGE").Range("B" & Rows.count).End(xlUp).Offset(0, 0)
ActiveWindow.SmallScroll UP:=15
End Sub

 

[ipbr21054]

The issue is that the POSTAGE page doesnt reset itself if that makes sense.
Thus the scroll up then does its job from where the last row shown on screen was at the time then does the scroll part

 

[ipbr21054]

So as a test ive used the code shown below.
Example i have a sheet called INVOICE & POSTAGE.
Currently the last row in view is row 2221
Each time i selectect INVOICE then POSTAGE the rows alter & drcease by .
So now my row in view is 2220
Do the same again & again & i see 2219, 2218, 2217

Without adding any new dtat to rows Shouldnt i come to the sheet POSTAGE & the code runs so i see the same row in view each time without it decreasing ?

Private Sub Worksheet_Activate()
Range("B" & Cells.Rows.count).End(xlUp).Offset(0, 0).Select
ActiveWindow.SmallScroll UP:=1

 

[NoSparks]

For your original request, try this

Private Sub Worksheet_Activate()
' scroll sheet to have specified cell selected and at top left
Application.Goto Sheets("POSTAGE").Range("B" & Rows.Count).End(xlUp).Offset(0, -1), True
' offset from that specified cell to select desired cell
ActiveCell.Offset(, 1).Select
' scroll sheet to position row in view
ActiveWindow.SmallScroll UP:=15
End Sub

 

[ipbr21054]

Perfect sorted & now works as it should.

Many Thanks