Macro to delete duplicate items -Help please
Solved/Closed
Carlos
-
Aug 11, 2010 at 10:41 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Aug 20, 2010 at 08:05 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Aug 20, 2010 at 08:05 AM
Related:
- Macro to delete duplicate items -Help please
- How to delete whatsapp account without login - Guide
- How to delete whatsapp account without phone - Guide
- All items in little alchemy - Guide
- How to delete snapchat account - Guide
- How to delete icloud tabs - Guide
4 responses
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Aug 17, 2010 at 10:41 PM
Aug 17, 2010 at 10:41 PM
Could you please upload a sample EXCEL file WITH sample data, macro, formula , conditional formatting etc on some shared site like https://authentification.site , http://docs.google.com, http://wikisend.com/ , http://www.editgrid.com etc and post back here the link to allow better understanding of how it is now and how you foresee. Based on the sample book, could you re-explain your problem too
This is the link with a sample for better undertanding.
Thank you so much rizvisa1!!!
https://authentification.site/files/23862781/USAcx.xls
Thank you so much rizvisa1!!!
https://authentification.site/files/23862781/USAcx.xls
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Aug 19, 2010 at 05:53 AM
Aug 19, 2010 at 05:53 AM
Sub removedup() Dim lLastRow As Long Dim vLPos As Variant Dim vRPos As Variant Application.ScreenUpdating = False lLastRow = Cells(Rows.Count, "A").End(xlUp).Row Do While lLastRow > 0 vLPos = InStr(1, Cells(lLastRow, "A"), "/") If vLPos > 0 Then vRPos = InStrRev(Cells(lLastRow, "A"), "/") If ((vRPos > 0) And (vRPos > vLPos)) Then If (Left(Cells(lLastRow, "A"), vLPos - 1) = Mid(Cells(lLastRow, "A"), vRPos + 1)) Then Cells(lLastRow, "A").Delete shift:=xlUp End If End If End If lLastRow = lLastRow - 1 Loop Application.ScreenUpdating = True End Sub
rizvisa1,
This macro works great!!! It's so useful to me.
Thank you for your time and patience.
Carlos
This macro works great!!! It's so useful to me.
Thank you for your time and patience.
Carlos
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Aug 20, 2010 at 08:05 AM
Aug 20, 2010 at 08:05 AM
Glad it worked out for you.