Hi,

Paste this Code For Save Button.

 

 

Private Sub CommandButton1_Click()

On Error Resume Next

    Dim wb As Workbook

    Dim acwb As Workbook

    Set acwb = ActiveWorkbook

    Set wb = Workbooks("Book2")

    If wb Is Nothing Then

    Set wb = Workbooks.Open(Filename:="D:\Book2.xls")

    End If

    acwb.Sheets(1).Range("C1:D1").Copy
wb.Sheets("Sheet1").Range("A30").End(xlUp).Offset(1, 0)

    wb.Activate

    Application.CutCopyMode = False

    acwb.Activate

End Sub

 

 

From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Indrajit $nai
Sent: Monday, May 30, 2011 3:12 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Requesting for a small help in vba coding....

 

Hi All,

 

I need a small help in vba coding, I have attached two files; in save.xls it
has a command button named "save", when I press this button it will copy
data from d1:d1 and paste in the file Book2.xls in the range a1:b1 then
a2:b2 onward. But somehow this macro is not working properly. It is working
when I am saving the data in the same excel file i.e. save.xls, but it is
not saving the data in the different excel file i.e. Book2.xls. Please vba
gurus I need your help to solve this problem.

 

Thanks in advance.


-- 
Indrajit

Disclaimer:
This electronic message and any files transmitted with it are confidential
and intended solely for the use of the individual or entity to whom they are
addressed. If you are not the intended recipient you are hereby notified
that any disclosure, copying, distribution or taking any action in reliance
on the contents of this information is strictly prohibited and may be
unlawful.

 

-- 
----------------------------------------------------------------------------
------
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