Can these 44 VBA lines be replaced by One or Removed ?

[mstuf]

I recorded a Macro -- My Recorded Code has Several of these groups in it.

Range("AZ1").Select
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select


I Guessing that there is One Line that can Replace 43 of the 44 Lines - Or are they even needed between Range("XX").Select commands ??

Thanks

 

[GTO]

Greetings,

While the recorder is a neat deal, and can be used to record some steps you took, scrolling around the sheet is not something you want to watch everytime your code runs. You can delete all those.

After a bit of studying help and/or threads/examples, you will see that Select, Activate, Selection, ActiveCell are rarely needed. For instance, let's say that after you selected AZ1, you put 45 in it. Then you went to A1 and entered '=AZ1 + 55'

A recording could result in:

    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.SmallScroll ToRight:=45
    Range("AZ1").Select
    ActiveCell.FormulaR1C1 = "45"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RC[51]+55"
    Range("A2").Select

but can be repplaced with:

    Range("AZ1").Value = 45
    Range("A1").Formula = "=AZ1 + 55"

Hope that helps,

Mark

 

[mstuf]

Outstanding -- I Learn something new every day -- Thank you



I notice in your example code

FormulaR1C1

My code has it too

Where does that Reference come from and what does it refer to ??

If you were writing code from scratch is it something you would add ?? and why ?

Thanks