i have just add loop
Sub rr()
For i = 3 To 78
Cells(4, i).Select
Selection.Delete Shift:=xlUp
Cells(4, i).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Cells(3, i), Cells(2028, i)).RemoveDuplicates Columns:=1,
Header:=xlYes
Next
End Sub
.........................
Enjoy
Team XLS
On Mon, Nov 18, 2013 at 3:38 PM, Amit Desai (MERU)
<amit.de...@merucabs.com>wrote:
> Dear All,
>
>
>
> Please Help..
>
>
>
> I have just recorded a Macro & wants to do repeated steps in each columns
> starting from C to BZ. I have done pasting of few raws 2 more times.. but
> that will take long time to reach to last column.. do we have any shortcut
> or formula or Loop command...
>
>
>
> Range("C4").Select
>
> Selection.Delete Shift:=xlUp
>
> Range("C4").Select
>
> Range(Selection, Selection.End(xlDown)).Select
>
> ActiveSheet.Range("$D$3:$D$2028").RemoveDuplicates Columns:=1,
> Header:= _
>
> xlYes”
>
> =======================================================================
>
> Sub ToGetCabListwithDefects()
>
> '
>
> ' ToGetCabListwithDefects Macro
>
> ' Removes Dupplicate
>
> '
>
> ' Keyboard Shortcut: Ctrl+Shift+R
>
> '
>
> Range("C4").Select
>
> Range(Selection, Selection.End(xlDown)).Select
>
> ActiveSheet.Range("$C$3:$C$2028").RemoveDuplicates Columns:=1,
> Header:= _
>
> xlYes
>
> Range("C4").Select
>
> Selection.Delete Shift:=xlUp
>
> Range("C4").Select
>
> Range(Selection, Selection.End(xlDown)).Select
>
> ActiveSheet.Range("$D$3:$D$2028").RemoveDuplicates Columns:=1,
> Header:= _
>
> xlYes
>
> Range("D4").Select
>
> Selection.Delete Shift:=xlUp
>
> Range("C4").Select
>
> Range(Selection, Selection.End(xlDown)).Select
>
> ActiveSheet.Range("$E$3:$E$2028").RemoveDuplicates Columns:=1,
> Header:= _
>
> xlYes
>
> Range("E4").Select
>
> Selection.Delete Shift:=xlUp
>
> End Sub
>
> ======================================================================
>
> Regards,
>
> *Amit Desai *– MIS Manager
>
> M: +91 9867232534
>
>
>
> [image: Description: C:\Users\Krushna.garkhede\Desktop\Sig
> 1p.jpg]<http://www.merucabs.com/mobile/>
>
> [image: Description: C:\Users\Krushna.garkhede\Desktop\Sig
> 2p.jpg]<http://goo.gl/gHTB5E>[image:
> Description: C:\Users\Krushna.garkhede\Desktop\Sig
> 3p.jpg]<http://goo.gl/QNQP51>
>
>
>
> ------------------------------
> Disclaimer: This message and its attachments contain confidential
> information and may also contain legally privileged information. This
> message is intended solely for the named addressee. If you are not the
> addressee indicated in this message (or authorized to receive for
> addressee), you may not copy or deliver any part of this message or its
> attachments to anyone or use any part of this message or its attachments.
> Rather, you should permanently delete this message and its attachments (and
> all copies) from your system and kindly notify the sender by reply e-mail.
> Any content of this message and its attachments that does not relate to the
> official business of Meru Cab Company Pvt. Ltd. must be taken not to have
> been sent or endorsed by any of them. Email communications are not private
> and no warranty is made that e-mail communications are timely, secure or
> free from computer virus or other defect.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
<<image002.jpg>>
<<image003.jpg>>
<<image001.jpg>>
