Hi Folks,

I have written a VBA code to fill HTML form however after changing drop down list the dependent data is not showing but if i do this manually the same is coming.

Example: In drop down i have "A", "B" & "C"

Dependent Data: For "A" is "1", for "B" id "2" & for "C" is 3

So suppose i am selecting "A" through VBA then it should display "1" automatically which is not happening.

**Note "1", "2" & "3" is dependent on drop down selection & they are hidden.

VBA Code:

Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
 Sub Smart_Assist()

 Dim MyHTML_Element As IHTMLElement
 Dim MyURL As String
 On Error GoTo Err_Clear
 MyURL = "" 'Sorry can't share the exact URL
 Set MyBrowser = New InternetExplorer
 MyBrowser.Silent = True
 MyBrowser.navigate MyURL
 MyBrowser.Visible = True
 Do
 Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
 Set HTMLDoc = MyBrowser.document
 HTMLDoc.all.UserName.Value = "" 'username
 HTMLDoc.all.Password.Value = "" 'password
 For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
 If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
 Next
Err_Clear:
 If Err <> 0 Then
 Err.Clear
 Resume Next
 End If
 
Call button
 
 End Sub
 
 
 
Sub button()
 
 HTMLDoc.all.addnewbutton.Click
 
 Call ldap
 
 End Sub
 

 
 Sub ldap()
 
 
 HTMLDoc.getElementById("ID").Value = ActiveWorkbook.Sheets(1).Range("A2").Value
  
 
 Call profile
 
 End Sub

Sub profile()


HTMLDoc.getElementById("profile").selectedIndex = ActiveWorkbook.Sheets(1).Range("B2").Value

Call avaya

End Sub
  
Sub avaya()

HTMLDoc.all.avayaid.Value = ActiveWorkbook.Sheets(1).Range("C2").Value

Call teamname

End Sub
  
Sub teamname()

HTMLDoc.all.teamname.Value = ActiveWorkbook.Sheets(1).Range("D2").Value

Call role
End Sub
  
Sub role()

HTMLDoc.getElementById("role").selectedIndex = ActiveWorkbook.Sheets(1).Range("E2").Value

Call rnuser

End Sub
 
Sub rnuser()

HTMLDoc.all.rnuserid.Value = ActiveWorkbook.Sheets(1).Range("F2").Value

Call org

End Sub
 
Sub org()

HTMLDoc.getElementById("organization").selectedIndex = ActiveWorkbook.Sheets(1).Range("g2").Value


End Sub