Sort single column

[Michael Koerner]

I would like to be able to sort Column A by it's self from the top to whatever the last cell entry falls, ignoring all the other columns. Is there a macro around that will do that? TIA

 

[Jacob Skaria]

If you are new to macros Set the Security level to low/medium in
(Tools|Macro|Security). 'Launch VBE using short-key Alt+F11. On the left
treeview right click 'This Workbook '. Paste this code and save. Get back to
Workbook.
This will sort Column A everytime you open your workbook.

Private Sub Workbook_Open()
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A:A")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


If this post helps click Yes

 

[Michael Koerner]

Jacob;

Thank you very much. I have a couple of questions.

1. I have a header row can I change xlNo to xlYes?
2. The workbook sheet is 4 and named ItemList Can I use either 4 or ItemList
3. I realize the macro runs every time the workbook is opened. Which is not needed. I presume I can I run it whenever I make changes to that particular sheet?

--

Regards
Michael Koerner


If you are new to macros Set the Security level to low/medium in
(Tools|Macro|Security). 'Launch VBE using short-key Alt+F11. On the left
treeview right click 'This Workbook '. Paste this code and save. Get back to
Workbook.
This will sort Column A everytime you open your workbook.

Private Sub Workbook_Open()
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A:A")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


If this post helps click Yes

 

[Jacob Skaria]

Dear Michael

Please find the below comments. Hope this helps or else postback. Cheers

If this post helps click Yes
---------------
Jacob Skaria

Jacob;

Thank you very much. I have a couple of questions.

1. I have a header row can I change xlNo to xlYes? Yes you can
2. The workbook sheet is 4 and named ItemList Can I use either 4 or ItemList

You can either reference as Worksheets(4). or Worksheets("ItemList").

3. I realize the macro runs every time the workbook is opened. Which is not needed. I presume I can I run it whenever I make changes to that particular sheet?

In VBE (Alt+F11) under the VBA project Treeview double click ThisWorkBook.
Cut and paste the code from _Open to '_SheetChange' or 'Before Save' event as
required...

 

[Michael Koerner]

Jacob;

Thank you very much

--

Regards
Michael Koerner


Dear Michael

Please find the below comments. Hope this helps or else postback. Cheers

If this post helps click Yes
---------------
Jacob Skaria

Jacob;

Thank you very much. I have a couple of questions.

1. I have a header row can I change xlNo to xlYes? Yes you can
2. The workbook sheet is 4 and named ItemList Can I use either 4 or ItemList

You can either reference as Worksheets(4). or Worksheets("ItemList").

3. I realize the macro runs every time the workbook is opened. Which is not needed. I presume I can I run it whenever I make changes to that particular sheet?

In VBE (Alt+F11) under the VBA project Treeview double click ThisWorkBook.
Cut and paste the code from _Open to '_SheetChange' or 'Before Save' event as
required...