*Nice solution Dave.............. :)* * * *Vinod,* *I hope that would help you......... *
Thanks & Regards, Harmeet Singh Sent via BlackBerry Wireless On Wed, Dec 23, 2009 at 12:40 PM, Dave Bonallack <davebonall...@hotmail.com>wrote: > Hi Vinod, > The attached shows how to create an instantly updated unique list from a > list with duplicates, using a single line ov VBA. It doesn't matter what > kind of data is in the original list, or how long it is, or whether data is > added later. The second line of code alphabetizes the unique list and > removes any blanks that may have been present in the original list. > Hope you find this useful. > Regards - Dave. > > ------------------------------ > Date: Wed, 23 Dec 2009 03:28:52 +0530 > Subject: $$Excel-Macros$$ GetUnique_Collection - to capture numeric values > From: nvino...@gmail.com > To: excel-macros@googlegroups.com > > > Hi Excel Gurus, > > The following macros complies a unique list from the Range("c21:c3020") and > populated in Cell J3. However, it does not capture numerical values in the > said range. > > Please help in modifiying the following macro where it can populate numeric > as well as alphanumeric unique list > > > Sub GetUnique_Collection() > > 'Using the Collection object > Dim SourceRng As Range > Dim UniqColl As New Collection > Set SourceRng = Range("c21:c3020") > On Error Resume Next > For Each cell In SourceRng.Cells > UniqColl.Add cell.Value, cell.Value > Next > On Error GoTo 0 > ReDim UniqArray(1 To UniqColl.Count) > For i = 1 To UniqColl.Count > UniqArray(i) = UniqColl(i) > Next > 'Optional sort routine can be inserted here > Range("j3").Resize(UniqColl.Count, 1).Value = > WorksheetFunction.Transpose(UniqArray) > End Sub > > -- > Thanks and Regards > > Vinod N > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at > http://www.excelitems.com > 2. Excel tutorials at http://www.excel-macros.blogspot.com > 3. Learn VBA Macros at http://www.vbamacros.blogspot.com > 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > > To post to this group, send email to excel-macros@googlegroups.com > If you find any spam message in the group, please send an email to: > Ayush Jain @ jainayus...@gmail.com or > Ashish Jain @ 26may.1...@gmail.com > <><><><><><><><><><><><><><><><><><><><><><> > HELP US GROW !! > > We reach over 6,500 subscribers worldwide and receive many nice notes about > the learning and support from the group. Our goal is to have 10,000 > subscribers by the end of 2009. Let friends and co-workers know they can > subscribe to group at > http://groups.google.com/group/excel-macros/subscribe > ------------------------------ > Check out Domain Radar NOW! A world FIRST in property search has > arrived!<http://clk.atdmt.com/NMN/go/157631292/direct/01/> > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at > http://www.excelitems.com > 2. Excel tutorials at http://www.excel-macros.blogspot.com > 3. Learn VBA Macros at http://www.vbamacros.blogspot.com > 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > > To post to this group, send email to excel-macros@googlegroups.com > If you find any spam message in the group, please send an email to: > Ayush Jain @ jainayus...@gmail.com or > Ashish Jain @ 26may.1...@gmail.com > <><><><><><><><><><><><><><><><><><><><><><> > HELP US GROW !! > > We reach over 6,500 subscribers worldwide and receive many nice notes about > the learning and support from the group. Our goal is to have 10,000 > subscribers by the end of 2009. Let friends and co-workers know they can > subscribe to group at > http://groups.google.com/group/excel-macros/subscribe > -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,500 subscribers worldwide and receive many nice notes about the learning and support from the group. Our goal is to have 10,000 subscribers by the end of 2009. Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe