Sort VBA Code

[matthew_ong12]

Hi Mr Excel, would like to ask for your inputs on how to make this code work. I'm encountering an error when running it.

Code:
With ActiveWorkbook.Worksheets("Data Analysis").Sort
.SetRange Range("o3289")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Notes:
The "Data Analysis" is where the numbers are found and is to be sorted. The button is found in another sheet.
The numbers to be sorted are found on the range o3 to o289

Hoping to hear from you soonest

Regards,
Matthew

 

[Caleeco]

What is the error message you are getting?

is O3 the header? or the first line of data?

Caleeco

 

[matthew_ong12]

Hi Sir, its says "method 'sort of object'_worksheet failed"

Hi Mr Excel, would like to ask for your inputs on how to make this code work. I'm encountering an error when running it.

Code:
With ActiveWorkbook.Worksheets("Data Analysis").Sort
.SetRange Range("o3289")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Notes:
The "Data Analysis" is where the numbers are found and is to be sorted. The button is found in another sheet.
The numbers to be sorted are found on the range o3 to o289

Hoping to hear from you soonest

Regards,
Matthew

 

[matthew_ong12]

Hi Sir, it says "method 'sort of object"_worksheet failed"
I'm not sure what it meant but i do have an object/ a button that has an assigned macro code to execute this program.
Hoping to hear from you soonest.

Regards,
Matthew

 

[vcoolio]

Hello Matthew,

You could trim it all down as follows:-

Sub SortIt()

Dim ws As Worksheet
Set ws = Sheets("Data Analysis")

With ws.Range("O3:O289")
      .Sort ws.[O3], 1
End With

End Sub

It will work from any sheet. I'm assuming that O3 is where the data starts and is not a heading.

I hope that this helps.

Cheerio,
vcoolio.

 

[matthew_ong12]

Thank you Sir vcoolio

 

[vcoolio]

You're welcome Matthew.

Cheerio,
vcoolio.