VBA - Sort table by data ascending

[MrTreasury]

Hello forum,

I hope you're all well.

I'm in need of help as I've just not been able to figure this out. I'm looking to sort a table out through a macro.

The table's range is B2:F30, where B2 is the table's headers. Column F contains the dates I require sorting.

I did record a macro and attempt to adapt it and copy it into the main piece of code I'm writing but seem to get numerous errors whenever I tweak it.

I had initially tried:

ws.Range("B3:F30").Sort key1:=Range("F3"), Order1:=xlAscending, Header:=xlNo, DataOption1:=xlSortNormal

I use range B3:F30 purely as I just wanted the code to work on the area I wanted rather than the table itself hence the ranges and header being contrary to the start of my post.

Anyone have any tips/pointers or solutions?

Kind regards,

MrT

 

[Fluff]

How about

ws.Range("B3:F30").Sort key1:=[COLOR=#ff0000]ws.[/COLOR]Range("F3"), Order1:=xlAscending, Header:=xlNo, DataOption1:=xlSortNormal

 

[MrTreasury]

How about

ws.Range("B3:F30").Sort key1:=[COLOR=#ff0000]ws.[/COLOR]Range("F3"), Order1:=xlAscending, Header:=xlNo, DataOption1:=xlSortNormal

Hi Fluff,

this hasn't worked unfortunately. Any other ideas?

 

[shg]

The code is golden.

Protected sheet, merged cells, is variable ws assigned, are you looking at the right sheet?

 

[MrTreasury]

The code is golden.

Protected sheet, merged cells, is variable ws assigned, are you looking at the right sheet?

No, no, yes and yes.

 

[MrTreasury]

How about

ws.Range("B3:F30").Sort key1:=[COLOR=#ff0000]ws.[/COLOR]Range("F3"), Order1:=xlAscending, Header:=xlNo, DataOption1:=xlSortNormal

The code is golden.

Protected sheet, merged cells, is variable ws assigned, are you looking at the right sheet?

All fixed, the range was a table - once I converted to range, ran the code it all worked.

Thanks for your help guys

 

[Fluff]

Glad you sorted it & thanks for the feedback