sort problem

[joshuafournier]

good morning,

I am trying to sort in a macro. my formula is below. I'm sure I'm running into errors based on the protected hidden sheet. i have allowed 'sort' in the protection. ideally I am trying to sort by date which is in the 'A' column starting at "A3"

'sort internal
Sheets("IQuality Archive").Range("A3:G100").Select
ActiveWorkbook.Worksheets("IQuality Archive").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("IQuality Archive").Sort.SortFields.Add Key:=Range( _
"A3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("IQuality Archive").Sort
.SetRange Range("A3:G15")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select

 

[hiker95]

joshuafournier,

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code
2. Open your NEW workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Sub MyInternalSort()
' hiker95, 09/08/2014, ME804129
With Sheets("IQuality Archive")
  .Range("A3:G100").Sort key1:=.Range("A3"), order1:=1
  .Range("A2").Select
  .Activate
End With
End Sub

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm

Then run the MyInternalSort macro.