sort all sheets

[bigmac1]

hello all, can you help please , I want to sort all my data on my sheets , if I put a filter on row 5 for example and sort by a-z on the "totals" sheet (10 columns on each sheet) this works ok but I want to get it to do the same on all sheets, and not have to open each sheet and do a sort a-z (all sheets exactly the same setup )

 

[DanteAmor]

Try this

Sub Macro1()
  Dim sh As Worksheet
  For Each sh In Sheets
    sh.Range("A5:Z" & sh.Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=sh.Range("A5"), order1:=xlAscending, Header:=xlYes
  Next
End Sub

 

[bigmac1]

hello DanteAmor thank you for your reply, I have tried this code and it filters the A column on the first sheet but it reverses the sort on column B to P , so it shows column A sorted low to high [A6 = 1, A7 = 2 A7 = 3 etc] but the corresponding values in all other rows B to P are now in the bottom of the rows, so the value that should show in B6 is now shown in row B110, also all the other sheets are showing all results at the bottom rows not the top , any ides please

 

[DanteAmor]

The macro sorts all rows in columns A through Z based on column A.
What do you need?
You could give examples of what you have and what you expect from the result.

 

[bigmac1]

The macro sorts all rows in columns A through Z based on column A.
What do you need?
You could give examples of what you have and what you expect from the result.

hi I cannot attach a sheet to this thread , can I send you a link to a dropbox link?

 

[DanteAmor]

hi I cannot attach a sheet to this thread , can I send you a link to a dropbox link?

Yes please.
If the workbook contains confidential information, you could replace it with generic data.

 

[bigmac1]

https://www.dropbox.com/s/hjvxfi6o3dqujqd/master 2.xlsm?dl=0
please note I have left a comment box at 12 Q

for you to look at just download it​

 

[DanteAmor]

Then you just need to order the "totals" sheet.
Try this

Sub Macro1()
  Dim sh As Worksheet
  Set sh = Sheets("Totals")
  sh.Range("A5:P" & sh.Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=sh.Range("A5"), order1:=xlAscending, Header:=xlYes
End Sub

 

[bigmac1]

Then you just need to order the "totals" sheet.
Try this

Sub Macro1()
  Dim sh As Worksheet
  Set sh = Sheets("Totals")
  sh.Range("A5:P" & sh.Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=sh.Range("A5"), order1:=xlAscending, Header:=xlYes
End Sub

I have tried this and it works on "totals" sheet, but it does not move the data in all other sheets to the correct rows, if I put a new welder ID in the totals sheet [P123]and open sheet template 2 and place data on the P123 row and do a sort as you have shown then the data in template 2 stays in the same row (the P123 moves to its new position but not the data for that welder.

 

[DanteAmor]

But in the "Template (2)" sheet In column A you have the formula =totals!A11
But in column B there are no formulas.
Then it is not to sort the data. I believe that you must regenerate all the data on the sheets based on the data in column A.
Or, put formulas on the sheets (eg, vlookup)