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