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