Thanks Ajay. On Fri, Mar 26, 2010 at 5:45 PM, Ajay Varshney <ajayvarshney21...@gmail.com>wrote:
> Here are the codes for your first five objectives: > > 'Objective 1 > Sub Delete_rows_above_headings() > Rows("1:12").Select > Range("A1").Activate > Selection.Delete Shift:=xlUp > Range("A1").Select > End Sub > 'Objective 2 > Sub Delete_Blank_Columns() > Range("A1").Select > i = 1 > a = WorksheetFunction.CountA(ActiveSheet.Rows(1)) > For i = i To a > Columns(i).Select > If WorksheetFunction.CountA(ActiveSheet.Columns(i)) = 0 Then > Selection.Delete Shift:=xlToLeft > i = i - 1 > End If > Next > Range("A1").Select > End Sub > > 'Objective 3 > Sub Concatenate_Row1_Row2() > Range("C1").Value = Trim(Range("C1").Value) & " " & > Trim(Range("C2").Value) > Range("D1").Value = Trim(Range("D1").Value) & " " & > Trim(Range("D2").Value) > Range("E1").Value = Trim(Range("E1").Value) & " " & > Trim(Range("E2").Value) > End Sub > > 'Objective 4 > Sub Delete_RowsBetweenHeadingAndData() > Rows("2:3").Select > Selection.Delete Shift:=xlUp > Range("A1").Select > End Sub > > 'Objective 5 > Sub Change_AccountNumber() > Range("A1").Select > Selection.End(xlDown).Select > a = ActiveCell.Row() > Range("F2").Select > ActiveCell.FormulaR1C1 = "=INT(RIGHT(RC[-5],8))" > Range("F" & a).Select > Range(Selection, Selection.End(xlUp)).Select > Selection.FillDown > Selection.Copy > Range("A2").Select > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, > SkipBlanks _ > :=False, Transpose:=False > Application.CutCopyMode = False > Columns(6).Clear > Range("A1").Select > End Sub > > > On Fri, Mar 19, 2010 at 10:45 AM, C.G.Kumar > <kumar.bemlmum...@gmail.com>wrote: > >> Dear Masters, >> >> >> File attached for your kind consideration and support.Please let me know >> whether the objective from Sl No.6 onwards is possible to achieve or not. >> >> >> Regards, >> >> C.G.Kumar >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our Facebook Group @ >> http://www.facebook.com/group.php?gid=287779555678 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to excel-macros@googlegroups.com >> >> <><><><><><><><><><><><><><><><><><><><><><> >> HELP US GROW !! >> >> We reach over 6,800 subscribers worldwide and receive many nice notes >> about the learning and support from the group.Let friends and co-workers >> know they can subscribe to group at >> http://groups.google.com/group/excel-macros/subscribe >> >> To unsubscribe from this group, send email to excel-macros+ >> unsubscribegooglegroups.com or reply to this email with the words "REMOVE >> ME" as the subject. >> > > > > -- > Regards, > Ajay Varshney > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our Facebook Group @ > http://www.facebook.com/group.php?gid=287779555678 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > HELP US GROW !! > > We reach over 6,800 subscribers worldwide and receive many nice notes about > the learning and support from the group.Let friends and co-workers know they > can subscribe to group at > http://groups.google.com/group/excel-macros/subscribe > > To unsubscribe from this group, send email to excel-macros+ > unsubscribegooglegroups.com or reply to this email with the words "REMOVE > ME" as the subject. > -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,800 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe To unsubscribe from this group, send email to excel-macros+unsubscribegooglegroups.com or reply to this email with the words "REMOVE ME" as the subject.