We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
COURSE of the MONTH
10 days, 6 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
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
to select the range once done.
ActiveSheet.Range("A:A").RemoveDuplicates 1, xlYes
Range(Range("A2"), Range("A2").End(xlDown)).Select
Featured Post
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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.
After seeing numerous questions for Dynamic Data Validation I notice that most have used Visual Basic to solve the problem. This suggestion is purely formula based and can be used in multiple rows.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you!
In this Micro Tutorial, you'll learn yo…
- Microsoft Applications
- Windows 10
- Windows OS
- Fonts Typography
- Windows 7, Microsoft Word
Suggested Courses
Course of the Month10 days, 6 hours left to enroll
765 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.