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

Reply via email to