Excel VBA Sort Multiple Tabs (not all tabs)

[jrlop]

Hi guys,
I have an excel file with many tabs. For the most part my data goes from column A5 - H150. I am wanting to sort some tabs (smallest to largest) by column C, some tabs by column E and other tabs by column H. I have the tabs grouped those that need to be sorted by column C, followed by column E and then H sort tabs. I know very little about VBA but this one is pretty advanced for me. I am hoping to be able to create three different Macros (one that sorts column C, column E and Column H) and run each separately. I really do not want to have to sort this manually and I have to create this same report for a total of 4 teams. I greatly appreciate your help. Jorge

 

[ChrisFoster]

You're best off recording a macro of you data sorting the tabs/columns you want. Other than that, you'll need to provide the names of the sheets and which columns within those sheets you want to data sort.

 

[jrlop]

You're best off recording a macro of you data sorting the tabs/columns you want. Other than that, you'll need to provide the names of the sheets and which columns within those sheets you want to data sort.

Ok thanks for the feedback. I was hoping I could automate this.

 

[Trevor G]

Can you provide the sheet names that you want to sort for Column C, E & H

 

[jrlop]

Can you provide the sheet names that you want to sort for Column C, E & H

Ok below are the sheet names I have so far and which column needs to be sorted for the sheet. Once I see how the Macro is written, I can add more any other sheets. The data that needs to be sorted for each sheet starts on A6 and goes through row 200. Tabs that sort on column C go A6 : C200; for column E go A6 : E200 and same for H A6 : H200. I hope this helps. Thank you so much.

P&L Performance Sorted by Clinical KPIs Clinical KPI OBHG Del Column H Clinical KPI OBHG Del % Column H Clinical KPI OSA Del Column H Clinical KPI OSA Del % Column H Clinical KPI NTSV Column H Clinical KPI OBED-Triage Vol Column H Clinical KPI wRVUs Column H Mozart Reports P&L_QoPYQ (ALL) P&L_QoPYQ (SS) P&L_YoY (ALL) P&L_YoY (SS) Churned Programs (SS) P&L_YoY (ALL) YE F & B P&L_YoY (SS) YE F & B P&L_CQ Bud Var TCR Column C P&L_CQ Bud Var ORD Column C P&L_CQ Bud Var PSR Column C P&L_CQ Bud Var TR Column C P&L_CQ Bud Var MM Column C P&L_CQ Bud Var TCS Column C P&L_CQ Bud Var TCoS Column C P&L_CQ Bud Var GP Column C P&L_CY Bud Var TCR Column C P&L_CY Bud Var ORD Column C P&L_CY Bud Var PSR Column C P&L_CY Bud Var TR Column C P&L_CY Bud Var MM Column C P&L_CY Bud Var TCS Column C P&L_CY Bud Var TCoS Column C P&L_CY Bud Var GP Column C P&L_CQ Bud Var TCR (SS) Column C P&L_CQ Bud Var ORD (SS) Column C P&L_CQ Bud Var PSR (SS) Column C P&L_CQ Bud Var TR (SS) Column C P&L_CQ Bud Var MM (SS) Column C P&L_CQ Bud Var TCS (SS) Column C P&L_CQ Bud Var TCoS (SS) Column C P&L_CQ Bud Var GP (SS) Column C P&L_CQ Bud Var GP excl MM (SS) Column C P&L_CY Bud Var TCR (SS) Column C P&L_CY Bud Var ORD (SS) Column C P&L_CY Bud Var PSR (SS) Column C P&L_CY Bud Var TR (SS) Column C P&L_CY Bud Var MM (SS) Column C P&L_CY Bud Var TCS (SS) Column C P&L_CY Bud Var TCoS (SS) Column C P&L_CY Bud Var GP (SS) Column C P&L_CY Bud Var GP excl MM (SS) Column C P&L_YE FB Var TCR Column C P&L_YE FB Var ORD Column C P&L_YE FB Var PSR Column C P&L_YE FB Var TR Column C P&L_YE FB Var MM Column C P&L_YE FB Var TCS Column C P&L_YE FB Var TCoS Column C P&L_YE FB Var GP Column C P&L_YE FB Var TCR (SS) Column C P&L_YE FB Var ORD (SS) Column C P&L_YE FB Var PSR (SS) Column C P&L_YE FB Var TR (SS) Column C P&L_YE FB Var MM (SS) Column C P&L_YE FB Var TCS (SS) Column C P&L_YE FB Var TCoS (SS) Column C P&L_YE FB Var GP (SS) Column C P&L_YE FB Var GP excl MM (SS) Column C P&L_CQoPYQ Act Var TCR Column E P&L_CQoPYQ Act Var ORD Column E P&L_CQoPYQ Act Var PSR Column E P&L_CQoPYQ Act Var TR Column E P&L_CQoPYQ Act Var MM Column E P&L_CQoPYQ Act Var TCS Column E P&L_CQoPYQ Act Var TCoS Column E P&L_CQoPYQ Act Var GP Column E P&L_YOY Act Var TCR Column E P&L_YOY Act Var ORD Column E P&L_YOY Act Var PSR Column E P&L_YOY Act Var TR Column E P&L_YOY Act Var MM Column E P&L_YOY Act Var TCS Column E P&L_YOY Act Var TCoS Column E P&L_YOY Act Var GP Column E P&L_CQoPYQ Act Var TCR (SS) Column E P&L_CQoPYQ Act Var ORD (SS) Column E P&L_CQoPYQ Act Var PSR (SS) Column E P&L_CQoPYQ Act Var TR (SS) Column E P&L_CQoPYQ Act Var MM (SS) Column E P&L_CQoPYQ Act Var TCS (SS) Column E P&L_CQoPYQ Act Var TCoS (SS) Column E P&L_CQoPYQ Act Var GP (SS) Column E P&L_CQoPYQ Act Var GP exMM (SS) Column E P&L_YOY Act Var TCR (SS) Column E P&L_YOY Act Var ORD (SS) Column E P&L_YOY Act Var PSR (SS) Column E P&L_YOY Act Var TR (SS) Column E P&L_YOY Act Var MM (SS) Column E P&L_YOY Act Var TCS (SS) Column E P&L_YOY Act Var TCoS (SS) Column E P&L_YOY Act Var GP (SS) Column E P&L_YOY Act Var GP excl MM (SS) Column E

 

[ChrisFoster]

This code should get you started, it will data sort sheet Clinical KPI OBHG Del by column H.

Worksheets("Clinical KPI OBHG Del").Activate
Range("A5:H150").Sort Key1:=Range("H1"), Order1:=xlAscending, Header:=xlYes

 

[Fluff]

Do you need separate macros, or would you be happy with just one macro?
Also Is the list of sheet names & the column to be sorted by in a sheet within that workbook?

 

[jrlop]

Do you need separate macros, or would you be happy with just one macro?
Also Is the list of sheet names & the column to be sorted by in a sheet within that workbook?

If it can be done all in one macro, that would be wonderful but I am not done building out the data sheets- will it be easy to update. Yes I have the sheets listed in the very first tab in the file- tab name is "KutoolsforExcel" Column A is the tab name and column B is the column I want to sort the sheet by. Not all tabs need to be sorted. Man this would be some great magic if you can pull this off I love excel but this is higher power excel! LOL I appreciate everyone's help!! Let me know if you need anything else.

 

[jrlop]

If it can be done all in one macro, that would be wonderful but I am not done building out the data sheets- will it be easy to update. Yes I have the sheets listed in the very first tab in the file- tab name is "KutoolsforExcel" Column A is the tab name and column B is the column I want to sort the sheet by. Not all tabs need to be sorted. Man this would be some great magic if you can pull this off I love excel but this is higher power excel! LOL I appreciate everyone's help!! Let me know if you need anything else.

In column B (the sort by column), should I enter "column H" or "H"
Thanks!

 

[Fluff]

Just put the column letter & then you could use

Sub jrlop()
   Dim Rng As Range, Cl As Range
   
   With Sheets("KutoolsforExcel")
      Set Rng = .Range("A2", .Range("B" & Rows.Count).End(xlUp))
   End With
   For Each Cl In Rng
      If Cl.Offset(, 1) <> "" Then
         With Sheets(Cl.Value)
            .Range("A5:" & Cl.Offset(, 1) & "200").Sort key1:=.Range(Cl.Offset(, 1) & "5"), order1:=xlAscending, Header:=xlYes
         End With
      End If
   Next Cl
End Sub

The sheet names in col A must be an exact match for the actual name of the sheet.