Forgot about the dups. Use this instead
Sub CustomSortNumbersAndTextSAS()
Application.ScreenUpdating = False
'Range("c1:c15").Copy Range("a1")'for testing
Range("b1") = Range("a1")
With Range("b2:b15")
.Formula = "=text(a2,""@"")"
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
orderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
With Range("b1:b15")
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("a1"), Unique:=True
.Clear
End With
Application.ScreenUpdating = True
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
-----Original Message-----
From: dguillett1
Sent: Saturday, October 15, 2011 10:44 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Formula Sorting Data (Alpha + Numeric)
Just make sure col B not being used or select another blank column
Sub CustomSortNumbersAndTextSAS()
With Range("b2:b15")
Application.ScreenUpdating = False
.Formula = "=text(a2,""@"")"
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
orderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = False
.Cut Destination:=Range("a2")
Range("a2").Select
End With
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
-----Original Message-----
From: B Sharma
Sent: Thursday, October 13, 2011 10:13 PM
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ Formula Sorting Data (Alpha + Numeric)
Dear Don & other experts....
Coloumn A has raw data and column B have sorted data
Before After
52 193
86 195
92C 52
94B 86
94B 87
195 92C
193 94B
ABC 94C
XYZ 94J
87 94K
94J ABC
94B XYZ
94K
94C
Hope that you can understand...
Thanks 7 Regards,
BS
On Oct 13, 9:01 pm, "dguillett1" <dguille...@gmail.com> wrote:
What would the AFTER look like
Don Guillett
SalesAid Software
dguille...@gmail.com
-----Original Message-----
From: B Sharma
Sent: Thursday, October 13, 2011 8:46 AM
To: MS EXCEL AND VBA MACROS
Cc: rajanverma1...@gmail.com
Subject: $$Excel-Macros$$ Formula Sorting Data (Alpha + Numeric)
Dear Excel Experts .... (and to my friends who have answered to my
earlier queries)
From a long time, I am searching for a formula which can sort the list
and represent the unique datas only
for Example , In column 1 I have the following data
52
86
92C
94B
94B
195
193
ABC
XYZ
87
94J
94B
94K
94C
like this...
I want a output in column B where it will ignore the duplicate items
and sorted figures.
I think its quiet difficult.... but please try this ...
Thanks & Regards,
B. Sharma
--
---------------------------------------------------------------------------
-------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links
:http://twitter.com/exceldailytip
2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials athttp://www.excel-macros.blogspot.com
4. Learn VBA Macros athttp://www.quickvba.blogspot.com
5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below
linkhttp://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
