oh my I am such a jabroni... lol sorry about that. Here is the code. I figured out that answer, but now I am having something that is way over my head. And I thought I was advance >_<
Sub go_Net()
Set objie = CreateObject("InternetExplorer.Application")
objie.Top = 0
objie.Left = 0
objie.Width = 800
objie.Height = 600
objie.Visible = True
objie.Navigate ("https://www.ksl.com/public/member/signin")
On Error Resume Next
'Range("email").Value
'Range("password").Value
the_start:
Do
DoEvents
If Err.Number < 0 Then
objie.Quit
Set objie = Nothing
GoTo the_start:
End If
Loop Until objie.ReadyState = 4
Email = Range("email").Value 'InputBox("Enter email")
Password = Range("password").Value 'InputBox("Enter password")
Do
DoEvents
If Err.Number < 0 Then
objie.Quit
Set objie = Nothing
GoTo the_start:
End If
Loop Until objie.ReadyState = 4
Call objie.Document.getElementById("memberemail").setAttribute("value", Email)
Call objie.Document.getElementById("memberpassword").setAttribute("value", Password)
Call objie.Document.forms(1).submit
the_start2:
Do
DoEvents
Loop Until objie.ReadyState = 4
If Err.Number < 0 Then
objie.Quit
Set objie = Nothing
GoTo the_start2:
End If
Set allhyperlinks = objie.Document.getElementsByTagName("A")
For Each hyper_link In allhyperlinks
If hyper_link.innerText = "Classifieds" Then
hyper_link.Click
End If
Next
Do
DoEvents
Loop Until objie.ReadyState = 4
Application.Wait (Now + #12:00:03 AM#)
Set allhyperlinks = objie.Document.getElementsByTagName("A")
For Each hyper_link In allhyperlinks
If hyper_link.innerText = "Post an Ad to this section »" Then
hyper_link.Click
End If
Next
Do
DoEvents
Loop Until objie.ReadyState = 4
Application.Wait (Now + #12:00:01 AM#)
y = InputBox("In one word what do you want to post")
Sheets(2).Select
Columns("B:B").Select
Selection.Find(What:=y, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
ActiveCell.Offset(0, -1).Range("A1").Select
y = Selection.Value
objie.Navigate ("https://www.ksl.com/index.php?nid=640&form_3=40&form_4=" & y)
Application.Wait (Now + #12:00:01 AM#)
Do
DoEvents
Loop Until objie.ReadyState = 4
Call objie.Document.getElementById("6").setAttribute("value", "150")
Call objie.Document.getElementById("8").setAttribute("value", "150")
Call objie.Document.getElementById("136").setAttribute("value", "sale")
Call objie.Document.getElementById("135").setAttribute("value", "1")
Call objie.Document.getElementById("9").setAttribute("value", "150")
Call objie.Document.forms(1).submit
Do
DoEvents
Loop Until objie.ReadyState = 4
Application.Wait (Now + #12:00:01 AM#)
Call objie.Document.getElementById("11").setAttribute("value", Range("display").Value)
Call objie.Document.getElementById("12").setAttribute("value", Range("email").Value)
Call objie.Document.getElementById("13").setAttribute("value", Range("email").Value)
Call objie.Document.getElementById("73_a").setAttribute("value", "801")
Call objie.Document.getElementById("73_b").setAttribute("value", "205")
Call objie.Document.getElementById("73_c").setAttribute("value", "2535")
Call objie.Document.forms(1).submit
Do
DoEvents
Loop Until objie.ReadyState = 4
Application.Wait (Now + #12:00:01 AM#)
'Call objie.Document.forms(2).submit
Call objie.Document.getElementById("142").Click
Application.Wait (Now + #12:00:01 AM#)
'****************this section pulls up a window to attach a Picture of the item that is being posted. I need to know how to get that window to populate. it seems to stop my code from running until I pick an option
End Sub