Ir para conteúdo
Fórum Script Brasil

rondini

Membros
  • Total de itens

    5
  • Registro em

  • Última visita

Sobre rondini

rondini's Achievements

0

Reputação

  1. Olá realmente é difícil comecei a pesquisar pelo Chrome e cheguei no seguinte código abaixo Sub chrome() Dim chromePath As String Dim endereco As String chromePath = """C:\Users\IBM_ADMIN\AppData\Local\Google\Chrome\Application\chrome.exe""" endereco = "http:uol.com.br" Shell (chromePath & endereco) End Sub Pelo Chrome consigo se tiver alguma tela de login e senha, inserir via código e me logar? não sei se seria algo assim Document.getElementById("USERNAME").Value = "rondini"
  2. Olá amigos, vejam se podem me ajudar com essa duvida. Tenho uma macro que abre uma pagina na internet (IE) coloca a URL e consigo inserir dados como (Login e senha) e clicar no botão confirma tudo pelo vba. Ai sem mais sem menos decidi usar o Firefox como meu navegador padrão, ou seja não quero mais usar o IE. Ai vai as pesquisas de como montar um código que fazia para o IE mas para o Mozila Firefox, Então cheguei nesse que irei postar abaixo é só colocar no modulo e executar, vai funcionar, a única coisa que não consegui, é inserir os dados nos formulários tipo (Login e Senha) por ele, se puderem me ajudar Ah no IE era usado esse para fazer o insert no formulario; IE.document.all("username").innerText = "rondini" IE.document.all("password").innerText = "XXXX" IE.document.all("btnLogin").Click Segue o código Firefox Sub Test_OpenFireFoxNewTab() OpenInFireFoxNewTab "http://scriptbrasil.com.br/forum/index.php?showforum=15" End Sub Sub OpenInFireFoxNewTab(url As String) Dim pathFireFox As String pathFireFox = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe" If Dir(pathFireFox) = "" Then pathFireFox = "C:\Program Files\Mozilla Firefox\firefox.exe" If Dir(pathFireFox) = "" Then MsgBox "FireFox Path Not Found", vbCritical, "Macro Ending" Exit Sub End If Shell """" & pathFireFox & """" & " -new-window " & url, vbHide 'para newtab usar esse -new-tab End Sub
  3. Olá Patropi Obrigado pela dica fiz e postei. obrigado por enquanto. !!! http://www.sendspace.com/file/2rslrr
  4. Olá Patropi essa formulá só da certo quando a posição dos dados está identica a tabela de Origem, ao embaralhar os dados já não funciona, pela minha visão acho que só a PROCV tem a propriedade de varrer a tabela e procurar o item desejado e trazer o valor, porem estamos está é a dificuldade, procurar 3 variaveis para trazer X valor.
  5. Olá a Todos vejam se podem me ajudar no caso abaixo. A / B / C / 1 CLIENTE / SEV / TIPO / 2 MACRO / 1 / PADARIA / =PROCV(A2&B2&F2;'COMPARAR OS MESMOS CAMPOS DA PLANILHA ABAIXO;4;FALSE) 3 SONDA / 2 / PADARIA / 4 COOP / 3 / PADARIA / 5 MACRO / 4 / AÇOUGUE / 6 SONDA / 1 / GONDULA / No exemplo abaixo ele faz o concatenate das Celulas A2, B2 e C2, e gostaria que procurasse abaixo para trazer o valor da coluna D "CLASS". A / B / C / D / 1 CLIENTE SEV TIPO CLASS 2 MACRO / 1 / PADARIA / BOM / 3 SONDA / 2 / PADARIA / RUIM / 4 COOP / 3 / PADARIA / BOM / 5 MACRO / 4 / AÇOUGUE / RUIM / 6 SONDA / 1 / GONDULA / RUIM / Eu tenho criado uma coluna que concatena os 3 tipo e pela PROCV eu trago o valor da 4 casa, como mostra abaixo Concatena MACRO1PADARIA SONDA2PADARIA COOP3PADARIA MACRO4AÇOUGUE SONDA1GONDULA Mas gostaria de usar uma outra forma sem precisar criar esse concatenate. Tem alguma solução Obrigado a Todos
×
×
  • Criar Novo...