assuming that the both workbooks are openned
Sub CanSomeOneHelp()
Dim RgDest As Range
With Workbooks("Anodize.xls").Sheets(1)
.Unprotect
Set RgDest = .Cells(1).CurrentRegion
End With
Set RgDest = RgDest.Cells(RgDest.Rows.Count + 1, 1)
Workbooks("Quote.xls").Sheets(1).Cells(1).CurrentRegion.Copy RgDest
RgDest.Parent.Protect
Application.CutCopyMode = False
RgFrom.ClearContents
End Sub
On Tue, Apr 19, 2011 at 7:02 AM, Dick <bobde...@yahoo.com> wrote:
> Can someone help with the following: In one workbook named (Quote) I
> would like to copy the contents of Columns A and B to another workbook
> named (Anodize). Where the copied contents from (Quote) would be
> placed on the next available blank row in Sheet1 Columns A and B. I
> know how to place a Command button on the (Quote) workbook. I just
> don't know how to code it. Once command button is clicked:
> 1.)Copy contents from Column A and B from (Quote) Workbook Sheet1
> 2.)Clear contents from Column A and B from (Quote) Workbook Sheet1
> 3.)Unprotect Workbook from (Anodize) Sheet1
> 4.)Paste contents from Column A and B from (Quote) Workbook Sheet1 TO
> (Anodize) Sheet1 Column A and B NEXT AVAILABLE(EMPTY) ROW.
> 5.) Protect Workbook (Anodize) Sheet1
> Thanks so much for any help!!!
>
> --
>
> ----------------------------------------------------------------------------------
> 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
