Sort single column

  • Thread starter Thread starter Michael Koerner
  • Start date Start date
M

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
 
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;

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
 
Dear Michael

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

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


Michael Koerner said:
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
Click to expand...
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?
Click to expand...
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...
 
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


Michael Koerner said:
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
Click to expand...
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?
Click to expand...
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...
 
Back
Top