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.

Reply via email to