try this Sub CopyComments() ' code by daniel Dim Rg As Range, C As Comment Dim Sh As Worksheet, x As Range Set Sh = Workbooks("Database.xls").Sheets("Sheet1") With ThisWorkbook.Sheets("Sheet1")
For Each Rg In .Range("j12 :j" & .Range("j65356").End(xlUp).Row) Set x = Sh.Range("J:J").Find(Rg.Value, , , xlWhole) If Not x Is Nothing Then Set Var = x.Offset(, 1) x.Offset(, 1).Copy Rg.Offset(, 2).PasteSpecial Paste:=xlPasteComments End If Next Rg End With End Sub On Tue, Jul 12, 2011 at 12:25 PM, Cab Boose <swch...@gmail.com> wrote: > Hi Ashish > > Thanks for tht. However it is not what I need. It is great for the photo > selection and I will use it for that. What I want here is to copy the > Comments Box thru to another sheet. > > Daniels code appears to be exactly what I want but a small error at the > moment. If I can get Daniels code to work that would be great. > Thankyou > > Charlie > > On Tue, Jul 12, 2011 at 4:08 PM, ashish koul <koul.ash...@gmail.com>wrote: > >> >> try this attachment >> >> run the macro it will open dialog box and choose the database file >> >> >> >> >> On Thu, Jul 7, 2011 at 3:17 PM, Daniel <dcolarde...@free.fr> wrote: >> >>> Hello :**** >>> >>> ** ** >>> >>> Note that the macro should be in the Shipment-New.xls workbook :**** >>> >>> ** ** >>> >>> Sub CopyComments()**** >>> >>> Dim Rg As Range, C As Comment**** >>> >>> Dim Sh As Worksheet, x As Range**** >>> >>> Set Sh = Workbooks("Database.xls").Sheets("Sheet1")**** >>> >>> With Sheets("Sheet1")**** >>> >>> For Each Rg In .Range(.[J12], .Cells(.Rows.Count, 10).End(xlUp))**** >>> >>> Set x = Sh.[J:J].Find(Rg.Value, , , xlWhole)**** >>> >>> If Not x Is Nothing Then**** >>> >>> Set Var = x.Offset(, 1)**** >>> >>> x.Offset(, 1).Copy**** >>> >>> Rg.Offset(, 2).PasteSpecial Paste:=xlPasteComments**** >>> >>> End If**** >>> >>> Next Rg**** >>> >>> End With**** >>> >>> End Sub**** >>> >>> ** ** >>> >>> Regards.**** >>> >>> Daniel**** >>> >>> ** ** >>> >>> *De :* excel-macros@googlegroups.com [mailto: >>> excel-macros@googlegroups.com] *De la part de* Cab Boose >>> *Envoyé :* jeudi 7 juillet 2011 08:56 >>> *À :* excel-macros@googlegroups.com >>> *Objet :* $$Excel-Macros$$ VBA Comment Box - Copy of**** >>> >>> ** ** >>> >>> Hi **** >>> >>> Have a photo in a comments box in Database.xls. Also have a vlookup in >>> another workbook Shipment-New.xls to bring forward the text from the >>> cell into >>> the wb. This works great. I also want to bring forward the comment box >>> in the same cell from Database.xls into Shipment-New.xls. **** >>> >>> Would like to use vlookup function but I believe not possible. Is a >>> vba event better, and do I use vba copy/paste special macro, or is >>> there a better >>> method. **** >>> >>> Thanks **** >>> >>> Charlie **** >>> >>> >>> **** >>> >>> -- >>> >>> ---------------------------------------------------------------------------------- >>> 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 >>> >> >> >> >> -- >> *Regards* >> * * >> *Ashish Koul* >> *akoul*.*blogspot*.com <http://akoul.blogspot.com/> >> http://akoul.posterous.com/ >> *akoul*.wordpress.com <http://akoul.wordpress.com/> >> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830> >> >> >> P Before printing, think about the environment. >> >> >> >> >> >> -- >> *Regards* >> * * >> *Ashish Koul* >> *akoul*.*blogspot*.com <http://akoul.blogspot.com/> >> http://akoul.posterous.com/ >> *akoul*.wordpress.com <http://akoul.wordpress.com/> >> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830> >> >> >> P Before printing, think about the environment. >> >> >> -- >> >> ---------------------------------------------------------------------------------- >> 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 > -- *Regards* * * *Ashish Koul* *akoul*.*blogspot*.com <http://akoul.blogspot.com/> http://akoul.posterous.com/ *akoul*.wordpress.com <http://akoul.wordpress.com/> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830> P Before printing, think about the environment. -- ---------------------------------------------------------------------------------- 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