Sorting specific Rang of Cell in Multiple sheets of a Workbook having same Formate, Rows and Columns

[Qazi Sharifullah]

Good Morning,
I have 338 Sheets in a workbook and Having different data but the heading row is same in all sheets A8.
I want to Sort Data in All sheets from A9 to AR18 on the basis of Column AD (Heading AD8). I need Help about this As It spend Hours when I Sort individually each sheet.



Thanks
Regards: Qazi Sharifullah

 

[r1998]

Hello Qazi Sharifullah Bhai,
try this

Option Explicit
Sub hi()
Dim i, lastrow As Long
For i = 1 To Worksheets.Count
lastrow = Worksheets(i).Cells(Cells.Rows.Count, "AD").End(xlUp).Row
Worksheets(i).Range("A9:AR18" & lastrow).Sort key1:=Worksheets(i).Range("AD9" & lastrow), order1:=xlAscending, Header:=xlNo
Next
End Sub

Best of Luck

 

[Fluff]

Maybe

Sub Quazi()
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      Ws.Range("A8:AR18").Sort key1:=Ws.Range("AD8"), order1:=xlAscending, Header:=xlYes
   Next Ws
End Sub

 

[Qazi Sharifullah]

Thanks but its not working.

 

[Fluff]

Which code are you talking about & in what way "its not working"?

 

[MARK858]

@Qazi Sharifullah, Do you have formulas or constants in the cells?

 

[Qazi Sharifullah]

Dear it work in descending order and also effects all the rows in the sheets. but My desire is to sort only A9 TO AR18.

 

[Qazi Sharifullah]

Its not run i mean it not works on a single sheets.

 

[Qazi Sharifullah]

Yes i have formula in this cell (sum formula)

 

[MARK858]

Yes i have formula in this cell (sum formula)

Then you will probably find it is recalculating the formula after the sort as both codes sort ascending from AD9 (and yes I have tested them although the first code has an issue with the last cell in the range).

On a copy of of your workbook copy/paste as values column AD and test.