thanks Ashish,, will try the codes and if anything come back to you thanks once again Gohar
On Thu, Mar 19, 2009 at 7:29 AM, Ashish Jain <26may.1...@gmail.com> wrote: > > --------------------------------------------------------------------------- > > Hi Gohar, > > Try this code, This will Select all the duplicates in your selection > and will tell you their count too. > > 1. Press Alt+F11 > 2. Paste the code below in code window. > > Sub SelectDuplicateValues() > Dim MyCell As Range > Dim rNew As Range > Dim rFind As Range > Dim iSecRange As Range > For Each MyCell In Selection.Cells > If Not IsEmpty(MyCell.Value) Then > For Each ncell In Selection.Cells > If Intersect(MyCell, ncell) Is Nothing Then > If iSecRange Is Nothing Then > Set iSecRange = ncell > Else > Set iSecRange = Union(ncell, iSecRange) > End If > End If > Next > Set rFind = iSecRange.Find(MyCell.Value, LookIn:=xlValues, > LookAt:=xlWhole, MatchCase:=True) > If Not rFind Is Nothing Then > If rNew Is Nothing Then > Set rNew = MyCell > Else > Set rNew = Union(rNew, MyCell) > End If > End If > End If > Set iSecRange = Nothing > Next > If Not rNew Is Nothing Then > rNew.Select > End If > Msgbox Selection.cells.count & " Duplicate Cells Found." > End Sub > > 3. Press Alt+Q. > 4. Press Alt+F8. > 5. Run the macro - Select Duplicate Values. > > > > > ------------------------------------------------------------------------ > For more tips, tricks, downloads and problem solutions: visit --> > http://www.excelitems.com > ------------------------------------------------------------------------ > Regards > *Ashish **Jain* > Analyst, CSC Australia > Microsoft Certified Application (Excel) Specialist > Technical Trainer - Excel and VBA > Author -> www.excelitems.com > +91-9999-40-48-43 > --------------------------------------------------------------------------- > --------------------------------------------------------------------------- > On Mar 19, 7:47 am, tariq 78692 <tariq.78...@gmail.com> wrote: > > repleated value find some type - > > > > conditional formating > > logical value by if condition. > > > > On 17/03/2009, Harmeet Singh <harmeet.hew...@gmail.com> wrote: > > > > > See attached file. > > > > > On Tue, Mar 17, 2009 at 12:34 PM, Gohar <goh....@gmail.com> wrote: > > > > >> Dear All > > >> How to find out repleated value in a column. > > > > >> Thanks > > >> Gohar > > > > > -- > > > Thanks & Regards, > > > > > Harmeet Singh > > > --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- 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 ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
