Less is more - consolidate 3 similar macros.

[Eviltauro]

Any tips for streamlining the following 3 macros into 1 tidy macro please: -

Sub priorforecastsOTL()
Dim current
current = Sheet5.Range("H3")
Sheet3.Select
Range("J3", current).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Selection.EntireColumn.Hidden = True
Sheet3.Range("B3").Select
End Sub


Sub priorforecastsSUPP()
Dim current
current = Sheet5.Range("I3")
Sheet1.Select
Range("M3", current).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Selection.EntireColumn.Hidden = True
Sheet1.Range("B3").Select
End Sub


Sub priorforecastsCONTJRN()
Dim current
current = Sheet5.Range("J3")
Sheet6.Select
Range("I3", current).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Selection.EntireColumn.Hidden = True
Sheet6.Range("B3").Select
End Sub

Many thanks

 

[Joe4]

When/how are these run?
If you can list out what they are supposed to do, and when they are supposed to run, we can probably help you consolidate them.

 

[Eviltauro]

When/how are these run?
If you can list out what they are supposed to do, and when they are supposed to run, we can probably help you consolidate them.

Hi Joe4

Apologies for my lack of context, end of a long day

Each sub routine is being "called" from another sub.

They basically take a value from the front summary sheet5 (which is adjusting the reporting period) and using that value as the end column in another sheet which defines the range of cells to be cleared.

It then returns the selection to a neutral point in the sheet (my OCD showing).

So each of the 3 subs do the same thing but to different sheets and I am looking to tidy it up.

Regards
Mark

 

[Joe4]

Can you walk me through a simple example?
Like, what do the values in H3:I3 look like?
I am trying to recreate your scenario here, because not only can the codes can be combined, they can also be cleaned up a little (you usually do not need Selects in your code).

 

[Joe4]

See if this does what you want:

Sub priorforecasts()
    
    Dim current
    Dim rng As Range
    Dim sh() As Variant
    Dim c As Long
    Dim i As Long

    Application.ScreenUpdating = False

'   Set sheet indexes to loop through
    sh = Array(3, 1, 6)

'   Loop through columns H-J
    For c = 8 To 10
        current = Sheet5.Cells(3, c)
        Sheets(sh(8 - c)).Select
        Set rng = Range("I3", current)
        With Range(rng, rng.End(xlDown))
            .ClearContents
            .EntireColumn.Hidden = True
        End With
        Sheets(sh(8 - c)).Range("B3").Select
    Next c
    
    Application.ScreenUpdating = True
    
End Sub

If not, please let me know what values are in H3:J3, and give you an example of how sheets 6,1,3 are structured so I can try to recreate it on my side.