Learn how to provision tenants, synchronize on-premise Active Directory, implement Single Sign-On, customize Office deployment, and protect your organization with eDiscovery and DLP policies. Only from Platform Scholar.
Course Of The Month
4 days, 13 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Remove Absolute Range
Posted on 2013-12-20
In code it references,
ActiveSheet.Range("$A$1:$A
How can I tell this to RemoveDups on whatever is in column A?
Please advise and thanks. -R-
ActiveSheet.Range("$A$1:$A
How can I tell this to RemoveDups on whatever is in column A?
Please advise and thanks. -R-
Sub ZSHORTV2Step3ReplaceMM17DupsFromNewZSHORTV2()
'
' ZSHORTV2Step3 Macro
'
'
Sheets("MM17NoDups").Select
Columns("A:A").Select
Selection.ClearContents
Sheets("ZSHORTV2DataPrevious").Select
Columns("C:C").Select
Selection.Copy
Sheets("MM17NoDups").Select
Columns("A:A").Select
ActiveSheet.Paste
Selection.ColumnWidth = 15
' Columns("A:A").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveSheet.Range("$A$1:$A$8569").RemoveDuplicates Columns:=1, Header:= _
xlYes
Application.DisplayAlerts = True
Sheets("ZSHORTV2DataCurrent").Select
MsgBox ("MM17NoDups Updated")
Range("A1").Select
End Sub
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3
3-
3
9 Comments
Active today
Change Line 20 to 2 lines as below:
Rob H
i = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Range("$A$1:$A$" & i).RemoveDuplicates Columns:=1, Header:= _
xlYes
Rob H
Active today
Thanks it worked. Can I extend the question just a little? After the process runs it does not have the range of only dups selected on the MM17NoDups... Is there a way to have it finish by selecting the range after the dups are removed? instead of having the total cells looked at hightlighted? -R-
Active today
On the particular sheet, is there data in column B as well?
If not:
Range("A1").Select
CurrentRegion.Select
Should select the data in column A
Thanks
Rob
If not:
Range("A1").Select
CurrentRegion.Select
Should select the data in column A
Thanks
Rob
Active 6 days ago
to select the range once done.
ActiveSheet.Range("A:A").RemoveDuplicates 1, xlYes
Range(Range("A2"), Range("A2").End(xlDown)).Select
Featured Post
Learn how to provision tenants, synchronize on-premise Active Directory, implement Single Sign-On, customize Office deployment, and protect your organization with eDiscovery and DLP policies. Only from Platform Scholar.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
My attempt to use PowerShell and other great resources found online to simplify the deployment of Office 365 ProPlus client components to any workstation that needs it, regardless of existing Office components that may be needing attention.
Ever visit a website where you spotted a really cool looking Font, yet couldn't figure out which font family it belonged to, or how to get a copy of it for your own use? This article explains the process of doing exactly that, as well as showing how…
- Microsoft Applications
- Windows OS
- Fonts Typography
- Web Browsers
- Microsoft Word
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Suggested Courses
Course of the Month4 days, 13 hours left to enroll
687 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.