just a little modif:

Private Sub CommandButton1_Click()
   Dim R As Long
*   R = Cells(Rows.Count, 1).End(xlUp).Row + 1*
   Cells(R, 1) = Cells(1, 3)
   Cells(R, 2) = Cells(1, 4)
End Sub




On Sat, May 7, 2011 at 11:38 AM, rajan verma <rajanverma1...@gmail.com>wrote:

> It macro will not work properly if these is any blank row between the
> Data.. It will all time replace existing Data..
>
> On Sat, May 7, 2011 at 8:56 AM, STDEV(i) <setiyowati.d...@gmail.com>wrote:
>
>> Dear Indrajit
>> please try this code
>>
>> Private Sub CommandButton1_Click()
>>    ' siti Vi / jakarta, May 07, 2011
>>    Dim R As Long
>>    R = WorksheetFunction.CountA(Range("A:A")) + 1
>>    Cells(R, 1) = Cells(1, 3)
>>    Cells(R, 2) = Cells(1, 4)
>> End Sub
>>
>>
>> On Sat, May 7, 2011 at 3:26 AM, Indrajit $nai <talk2indra...@gmail.com>wrote:
>>
>>> Hi All,
>>>
>>> I have a little query in vba coding, please see the attached file. In the
>>> excel file there is a "Save" command button, whenever I press the button it
>>> will copy the data from cell no. c1:d1 and paste in the cell a1:b1, now my
>>> query is, if the data is already in the cell no. a1:b1 it will be saved in
>>> the next cell no. means a2:b2 then a3:b3 just going on like this, can anyone
>>> help me in that coding how do I create that loop?
>>>
>>> Thanks in advance.
>>> --
>>> Indrajit
>>>
>>>  --
>>
>> ----------------------------------------------------------------------------------
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 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
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>
>
> --
> Regards
> Rajan verma
> +91 9158998701
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 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
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
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

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to