Hi
i have sent with attachment
Try:
Sub test1()
Dim LR As Long, i As Long, j As Long, k As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
If Cells(1, 1).Value <> "" Then Cells(1, 1).EntireRow.Insert
Results = Array("Address :", "Area :", "Pin :", "Phone :")
Columns("A:A").Copy Destination:=Activ
Can some one please provide the VB code or somehitng automationi for all
this processure
On Mon, Jun 20, 2011 at 5:16 PM, Vasant wrote:
> use copy, and then paste special with transpose
>
> On Mon, Jun 20, 2011 at 3:46 PM, kannan excel wrote:
>
>> Hi Guru
>>
>>
>> Pls help me i am waitin
use copy, and then paste special with transpose
On Mon, Jun 20, 2011 at 3:46 PM, kannan excel wrote:
> Hi Guru
>
>
> Pls help me i am waiting for your reply.
>
>
> regards
>
> Kannan V
> 9941077703
> onechennaiproperty.com
>
> --
>
> ---