Slight Amendment To Recorded Macro

[Dazzawm]

I have the recorded macro below that adjusts columns to where I want them. Problem is when I am half way down the sheet and run it it jumps to the top. What needs adding to it remains where I am once run? Thanks

Sub AdjustColumns()
'
' Macro1 Macro
'

'
    Columns("B:B").ColumnWidth = 1.29
    Columns("C:C").ColumnWidth = 13
    Columns("D:D").ColumnWidth = 1.43
    Columns("E:E").ColumnWidth = 7.29
    Columns("G:G").ColumnWidth = 6
    Columns("H:H").ColumnWidth = 8.71
    Columns("I:I").ColumnWidth = 6.86
    Columns("J:J").ColumnWidth = 5.86
    Columns("K:K").ColumnWidth = 0.08
    Columns("M:M").ColumnWidth = 0.5
    Columns("R:R").ColumnWidth = 0.75
    Columns("S:S").ColumnWidth = 3.57
    Columns("T:AA").Select
    Selection.ColumnWidth = 0.67
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    End Sub

 

[Alex Blakenburg]

Try replacing your 2 lines:-

    Columns("T:AA").Select
    Selection.ColumnWidth = 0.67

with this:-

Columns("T:AA").ColumnWidth = 0.67

I also don't understand what you are trying to achieve with the ScrollColumn lines. I don't think you need them.

 

[Dazzawm]

Try replacing your 2 lines:-

    Columns("T:AA").Select
    Selection.ColumnWidth = 0.67

with this:-

Columns("T:AA").ColumnWidth = 0.67

I also don't understand what you are trying to achieve with the ScrollColumn lines. I don't think you need them.

That was just in the code after the record.

 

[Alex Blakenburg]

That was just in the code after the record.

So I think you can safely delete all the scroll lines.
With that and the suggested change does it now do what you need ?

 

[Dazzawm]

So I think you can safely delete all the scroll lines.
With that and the suggested change does it now do what you need ?

No it still jumps back to top row.

 

[Alex Blakenburg]

I the selected cell, should now stay unchanged, if you started in A1 it should end in A1. If you want to finish somewhere else send a screenshot of how you want to it to look when it finishes.

 

[Dazzawm]

I the selected cell, should now stay unchanged, if you started in A1 it should end in A1. If you want to finish somewhere else send a screenshot of how you want to it to look when it finishes.

Well if I am in cell H10000 for example and I run the code I want it to stay in H10000 and not jump back to the top.

 

[Alex Blakenburg]

That is exactly what it does after the modification.
If its not doing that then the quickest way of resolving it is if you just replace your code in full with the below.

Sub AdjustColumns()
' Macro1 Macro
    Columns("B:B").ColumnWidth = 1.29
    Columns("C:C").ColumnWidth = 13
    Columns("D:D").ColumnWidth = 1.43
    Columns("E:E").ColumnWidth = 7.29
    Columns("G:G").ColumnWidth = 6
    Columns("H:H").ColumnWidth = 8.71
    Columns("I:I").ColumnWidth = 6.86
    Columns("J:J").ColumnWidth = 5.86
    Columns("K:K").ColumnWidth = 0.08
    Columns("M:M").ColumnWidth = 0.5
    Columns("R:R").ColumnWidth = 0.75
    Columns("S:S").ColumnWidth = 3.57
    Columns("T:AA").ColumnWidth = 0.67
End Sub

 

[Dazzawm]

That is exactly what it does after the modification.
If its not doing that then the quickest way of resolving it is if you just replace your code in full with the below.

Sub AdjustColumns()
' Macro1 Macro
    Columns("B:B").ColumnWidth = 1.29
    Columns("C:C").ColumnWidth = 13
    Columns("D:D").ColumnWidth = 1.43
    Columns("E:E").ColumnWidth = 7.29
    Columns("G:G").ColumnWidth = 6
    Columns("H:H").ColumnWidth = 8.71
    Columns("I:I").ColumnWidth = 6.86
    Columns("J:J").ColumnWidth = 5.86
    Columns("K:K").ColumnWidth = 0.08
    Columns("M:M").ColumnWidth = 0.5
    Columns("R:R").ColumnWidth = 0.75
    Columns("S:S").ColumnWidth = 3.57
    Columns("T:AA").ColumnWidth = 0.67
End Sub

That's better, thank you.

 

[Alex Blakenburg]

If you don't mind could you please mark my post with the vba code that you ended up using as the solution.
It helps other volunteers focus on the questions that still need help.