Re: $$Excel-Macros$$ VBA Comment Box - Copy of
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
Re: $$Excel-Macros$$ VBA Comment Box - Copy of
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.comwrote: 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
Re: $$Excel-Macros$$ VBA Comment Box - Copy of
Hi Is someone able to comment on my problem as below. Tried to contact Daniel with no luck. Thankyou Charlie Harris On Fri, Jul 8, 2011 at 1:13 PM, Cab Boose swch...@gmail.com wrote: Hi Daniel Thanks for code. Have done as you suggest and installed in the Shipments wb. When I run the code it goies thru to var =... and gives a message that ' variable not defined ' . Is there something missding ? Your help appreciated. Thanks Charlie On Fri, Jul 8, 2011 at 3:33 AM, 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. -- -- 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
$$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 Database.xls Description: MS-Excel spreadsheet Shipment-New.xls Description: MS-Excel spreadsheet
RE: $$Excel-Macros$$ VBA Comment Box - Copy of
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
Re: $$Excel-Macros$$ VBA Comment Box - Copy of
Hi Daniel Thanks for code. Have done as you suggest and installed in the Shipments wb. When I run the code it goies thru to var =... and gives a message that ' variable not defined ' . Is there something missding ? Your help appreciated. Thanks Charlie On Fri, Jul 8, 2011 at 3:33 AM, 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. -- -- 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