Thanks so much! On Mar 12, 7:50 pm, Ashish Jain <26may.1...@gmail.com> wrote: > Hi Mike > > Here is your Solution: > > Sub Login_Website() > 'Requires Reference to "Microsoft Internet Controls" > 'Declare Reference to InternetExplorer Object > Dim MyBrowser As SHDocVw.InternetExplorer > 'Set Reference to InternetExplorer Object > Set MyBrowser = New SHDocVw.InternetExplorer > With MyBrowser > 'Make the Browser visible > .Visible = True > ' Open Ebay.com with Active Cell Value > .Navigate "http://search.half.ebay.com/"; & > ActiveCell.value > End With > End Sub > > Rest Solution > -http://www.excelitems.com/2009/03/access-search-engines-on-browser.html > > For more tips, tricks, downloads and problem solutions: visit > -->http://www.excelitems.com > ------------------------------------------------------------------------ > Regards > *Ashish **Jain* > Analyst, CSC Australia > Microsoft Certified Application (Excel) Specialist > Technical Trainer - Excel and VBA > Author ->www.excelitems.com > +91-9999-40-48-43 > ---------------------------------------------------------------------------------------------------------------------------- > ---------------------------------------------------------------------------------------------------------------------------- > On Mar 13, 4:33 am, Mike C <js2k...@yahoo.com> wrote: > > > > > Someone gave the the below macro (using Microsoft Internet Controls > > via Code Editor > Tools > References) for taking the active cell in > > Excel and then automatically placing it in a search box in a new > > Explorer Webpage, and then in effect, hitting ENTER. > > > It works with the website provided,www.ebay.com. But I am trying to > > change it to work with another website. I am trying to do it > > withhttp://www.half.ebay.com/. > > > Does anyone know how I can change alter the below code, or even any > > new code, to produce the same effect athttp://www.half.ebay.com/ > > > Sub Login_Website() > > 'Requires Reference to "Microsoft Internet Controls" > > 'Declare Reference to InternetExplorer Object > > Dim MyBrowser As SHDocVw.InternetExplorer > > 'Set Reference to InternetExplorer Object > > Set MyBrowser = New SHDocVw.InternetExplorer > > With MyBrowser > > 'Make the Browser visible > > .Visible = True > > ' Open Ebay.com with Active Cell Value > > .Navigate "http://shop.ebay.com/? > > _from=R40&_trksid=m38.l1313&_nkw=" _ > > & ActiveCell.Value & "&_sacat=See-All- > > Categories" > > End With > > > End Sub > > > Any suggestions are deeply appreciated!- Hide quoted text - > > - Show quoted text -
--~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
