Pesquisar na Comunidade

Prezados, Por gentileza, alguém poderia me ajudar no VBA abaixo? O código envolve list box para escolher a UF (state) radiobox para marcar sim ou não para contribuinte icms e text box para digitar o código do produto (produto code) clicar no botão avançar e trazer a consulta para outra planilha da mesma pasta de trabalho e de possível fazer condultas em lote. Quando cheguei nessa parte do código não consiga clicar para avançar IE.Document.all("submit")("Avançar").Click Até agora conseguir fazer com que a macro marcasse a radiobox com a opção sim para icms, mas não conseguir fazer a selecionar a UF nem clicar no botao avançar. Segue código : 'Inclui referência ao Microsoft Internet Controls Sub lReferenciaIE() Dim ObRef On Error Resume Next ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1 End Sub Sub lConsultaMDA() 'Inclui a referência se não houver lReferenciaIE Dim IE As InternetExplorer Dim ICódigoMDA As String Dim lAddPolygon2 As String Dim lUltimaLinhaAtiva As Long Dim lContador As Long 'Identifica a última célula ativa da lista lUltimaLinhaAtiva = Worksheets("Coordenadas").Cells(Worksheets("Coordenadas").Rows.Count, 1).End(xlUp).Row 'Cria um objeto Internet Explorer Set IE = New InternetExplorer 'Torna o objeto visível IE.Visible = True 'Faz um loop por todas as linhas da planilha For lContador = 2 To lUltimaLinhaAtiva 'Navega ao site do MDA IE.Navigate "http://portal.mda.gov.br/portal/saf/maisalimentos/" 'Identifica se a página já foi totalmente carregada While IE.ReadyState <> READYSTATE_COMPLETE Wend sng = Timer Do While sng + 1 > Timer Loop 'Carrega os dados de cidade de origem e destino que serão preenchidos na página lCódigoMDA = Range("D" & lContador).Value lAddPolygo2 = Range("E" & lContador).Value 'Identifica se a página já foi totalmente carregada While IE.ReadyState <> READYSTATE_COMPLETE Wend sng = Timer Do While sng + 1 > Timer Loop 'Seleciona a UF que será preenchidos na página IE.Document.all("state").Value = "DF" 'Estado While IE.ReadyState <> READYSTATE_COMPLETE Wend sng = Timer Do While sng + 1 > Timer Loop 'Seleciona sim para ICMS IE.Document.all("taxpayer").Item(0).Checked = True While IE.ReadyState <> READYSTATE_COMPLETE Wend sng = Timer Do While sng + 3 > Timer Loop 'Carrega os dados de cidade de origem e destino na página e submente os dados do formulário IE.Document.all("product_code").Value = lCódigoMDA IE.Document.all("submit")("Avançar").Click 'Identifica se a página já foi totalmente carregada While IE.ReadyState <> READYSTATE_COMPLETE Wend 'For Each i In IE.Document.body.getElementsById("pontos") 'If InStr(i.innertext, "textarea") > 0 Then 'For Each l In i.getElementsById("input") 'If InStr(l.innertext, lAddPolygon2) Then Range("E" & lContador).Value = l.getElementsByTagName("Add Polygon 2")(1).innertext 'End If 'Next l 'End If 'Next i Next lContador MsgBox "Concluído!" End Sub Agradeço desde já!