type.
Asa
-Original Message-
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Asa Rossoff
Sent: Sunday, January 08, 2012 12:13 AM
To: excel-macros@googlegroups.com
Subject: RE: $$Excel-Macros$$ Sorted Stacks in VBA
Chip Pearson has an in-place arr
Chip Pearson has an in-place array sorting routine for download at
http://www.cpearson.com/excel/SortingArrays.aspx.
You might use a two-dimensional array to couple your related data, and check
if his QSort routine needs any modifications to just sort by the integer
value in that situation.
Here'
Hi
Try this
Sub kTest()
Dim r As Range
Set r = Range("a2:a6")
SortAlphaNums r
End Sub
Sub SortAlphaNums(ByRef r As Range)
Dim a
With r
a = "'" & .Parent.Name & "'!" & .Address
.Value = Evaluate("=IF(ISNUMBER(--LEFT(" & a & ",FIN
If desired, send me your file dguillett1 @gmail.com with code and complete
explanation.
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: christoph404
Sent: Saturday, January 07, 2012 9:10 AM
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ Sorted
Hey Don,
Your answer is very much appreciated. However, as I stated at the end
of my post, I'm trying to avoids doing this action in the spreadsheet
but instead keep it in the code completely. Still, thanks!
Christoph
On Jan 7, 8:45 am, "dguillett1" wrote:
> One way is to just have a macro crea
One way is to just have a macro create a helper column>sort by that>delete
the helper column. Here is one I did for someone that you can modify to
suit.
Option Explicit
Sub MakeReportSAS()
Dim lr As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("P2:p" &
