yendorxt

Boa Noite Pessoal! Gostaria da ajuda de vocês na adaptação de um código vba excel 2010 que acesse o seguinte o site do Sistema Presença que informa a Frequência do Bolsa Família/ MEC. Com o seguinte código abaixo: Sub lsLogin() Dim IE As Internet Explorer Dim lNis As Long Dim lUltimaLinhaAtiva As Long lUltimaLinhaAtiva = Worksheets("Plan1").Cells(Worksheets("Plan1").Rows.Count Set IE= New InternetExplorer IE.Visible= True For 1contador = 2 To UltimaLinhaAtiva IE.Navigate "http://frequenciaescolarpbf.mec.gov.br/presenca/controller/login/efetuarLogin.php" While IE.ReadyState <> READYSTATE_COMPLETE sng = Timer Do While sng + 5 > Timer Loop While IE.ReadyState <> READYSTATE_COMPLETE DoEvents: Wend Document.all("formLogin".Click Document.getElementById("strCpf").Focus Document.getElementById("strCpf").Value = "47901210231" Document.getElementById("strPassword").Focus Document.getElementById("strPassword").Value = "senha" Document.all("Entrar").Click Document.all("MENU").Click For Each i In IE.Document.body.getElementsByTagName("NIS do aluno") If InStr(i.innertext,"NIS) > 0 Then For Each 1 In i.getElementsByTagName("tr") If InStr(1.innertext, 1Nis) Then Range('B" & 1contador).Value = 1.getElementsByTagName("td")(1).innertext End If Next 1 End If Next i Next 1contador MsgBox "Concluído!" End Sub Pelo Código fonte do site encontrei os ids respectivos, porém não consigo verificar se funciona pois não consigo que o código clique em ACESSAR SISTEMA para inserir os dados para logar, já tentei de inúmeras formas com: Internet.Document.getElementsByName("id").Item.Click Document.getElementsbyId("id").Click Document.getElementsByTagName("id").Click utilizando (Acessar Sistema, Acessar, #acesso, login, acesso-sistema, formLogin, login span3, efetuarLogin.php#acesso) mas não obtive êxito em nenhum deles. Gostaria que me ajudassem ao menos nessa parte para fazer o clique em ACESSAR SISTEMA, para que eu possa verificar se o resto do código está funcional. Desde já agradeço. Bolsa Família.rar

Boa tarde Pessoal! Venho solicitar novamente a ajuda de vocês para escrever uma instrução de código VBA para o Excel 2010 que ao selecionar uma opção de declaração no dropdown (caixa de combinação - controle de formulário) Exemplo: Bolsa Família/Frequência fosse gerado a porcentagem da frequência daquele referido aluno exemplo Fev e Março; Abril e Maio; Jun e Jul; Ago e Set; Out e Nov; Contendo 5 Option Button ou 5 CheckBox e para cada Option Botton ou CheckBox fosse gerado a porcentagem referente a esses 2 meses. Lembrando que basta digitar o nome do aluno na célula F12, que a fórmula de pesquisa inversa (ÍNDICE + CORRESP) preenche os dados solicitados. E que ao Selecionar na caixa de combinação com a opção central de matrícula e transferência fosse preenchido a partir da célula F3 os dados abaixo: ( ) Aprovado ( ) Retido ( ) Desistente/Abandono a partir de __/__/____ ( ) PAA ( ) Educação de Jovens e Adultos ( ) Progressão Parcial ( ) Conclusão do Ensino Fundamental Nas demais opções nenhuma ação. Lembrando que já conseguir inserir uma macro que preenche a data e hora, nome do aluno e a finalidade da declaração registrando esses dados na Planilha Registro. Desde já agradeço quem souber me ajudar. Abraço Segue em anexo arquivo do excel Controle ListBox.rar

O problema foi justamente que faltou ajustar a configuração do auto filtro, mas precisamente no filtro avançado. E a mudança no código abaixo: Sheets("Senha").Range("$A$1:$C$50000").AutoFilter Field:=1, Criteria1:="=" & txtUsuario.Text Sheets("Senha").Range("$A$1:$C$50000").AutoFilter Field:=2, Criteria1:="=" & txtSenha.Text Para o Intervalo de usuários conforme definido na planilha Senha, caso contrário dará erro. Mesmo assim obrigado pela atenção de todos.

Boa tarde Pessoal! Gostaria na ajuda de vocês novamente! estou adaptando uma planilha do excel que já possuía as, nos testes que fiz foram bem sucedidos, porém ao adicionar novas planilhas a macro não está executando dando erro de execução, inclusive na propriedade de autofiltro. gostaria que o login fosse multi usuários, com definição de cada planilha ou várias planilhas a um determinado usuário. segue o anexo, que estou adaptando. Desde já agradeço a ajuda! Login TESTE.rar

Muito Obrigado! Osvaldomp.

Obrigado! Osvaldomp pela resposta. Mas, no meu caso específico gostaria que botão de auto completar ficasse na Plan1, sendo ela a planilha ativa, porém que os dados fossem os da Plan2. Eu tentei inúmeras vezes referenciar a os dados da Plan2 utilizando a Private Const r As String = "Exemplo intervalo da Plan2 A1:A10"

Boa noite Pessoal! Gostaria da ajuda de vocês numa macro no Microsoft Excel 2007, para autocompletar os nomes. É o seguinte: Fiz o download de uma planilha com a macro já funcionando perfeitamente! Porém, ao ativar a Macro ela só completa os nomes que estão na Plan 1, gostaria que ela auto completasse os nomes que estão na Plan2, e os inserisse na Plan1 numa célula específica. 'Digite aqui o intervalo a ser autocompletado Private Const r As String = "A1:A100" Private sInput As String 'Faz parar a pesquisa dos dados digitados Dim flParar As Boolean Como escrevo o código para que a execução do auto completar se dê na Plan 2, e o dado autocompletado fique na plan1 numa célula específica. Quem puder ajudar, agradeço. segue o anexo da Macro Autocompletar, que estou tentando adaptar. AutocompletarExcel.rar